A question about option pricing using Mathematica

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

I enter the code to the Mathematica as follows:

k = 40; T = 1; r = 0.08; sigma = 0.3; deta = 0;
d1 = {Log[s/k] + (r - deta + 0.5*sigma^2)*(T - t)}/sigma/Sqrt[T - t];
d2 = d1 - sigma*Sqrt[T - t];
n1 = CDF[NormalDistribution[0, 1], d1[[1]]];
n2 = CDF[NormalDistribution[0, 1], d2[[1]]];
c = s*Exp[-deta*(T - t)]*n1 - k*Exp[-r*(T - t)]*n2;
Manipulate[Plot[c, {s, 1, 70}], {t, 1/12, 11/12}]


But after I press "shift+enter", the maniputlate reult shows nothing. Any one know what I do wrong?

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：mathematica Mathematic question Thematic Pricing question nothing option

怎麼没人理我?

泱泱大国，苟无能者，況不悲乎!

估计是s的范围问题?

Plot[Piecewise[{{1, x > 0}}], {x, -5, 5}]
Plot[Piecewise[{{1, x > 0}}], {x, -10, -5}]