资源描述：
《excel vba 金融工程 section 2 - 期权定价》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。
1、1AnthonyKong梦特卡罗期权价格计算欧洲看涨不派息股票期权我会将之前介绍到技巧应用在不派息的欧洲看涨期权上。分别是控制変量方法CMcEuropeanCall()程序-请参考源代码OP02，对偶変量法AMcEuropeanCall()程序-请参考源代码OP03及原模拟McEuropeanCall()程序-请参考源代码OP04，。当分别输入资料{S0,K,r,σ,T,n}，而经由读取程序readData()-请参考源代码OP01后。而readData()程序会分别将资料放到以上三个不同方法的程序里，最后
2、结果会输回其期权现价及标准误差到readData()程序。在全部程序里，随机抽样数ɛ会由StdNormNum()函数产生，并由此根据(FOP.16)带出抽様的到期价格ST(ɛ)。就对偶変量法，在相同的随机数上加上负数即可ST(-ɛ)。相同的数值在不同函数，引用不同公式(FOP.18),(FOP.19)及(FOP.21)里运作后评估。根据(FOP.2),其均值及方差的现值可将每个抽祥数分别加起来及将其倍乘即可,其可以一个小回路程序由1到n项。可以更简单的将(FOP.2)的方差计算用以下方式表达21?2?2S=
3、?+1∑?=1?(xi)-?−1m(FOP.25)此两个流程都可以在估算期权现价时得出其均值。在控制变量法，一定要时刻记者将S0包括在均值估算上当为控制变量(FOP.20)的解决方法。在评估过程里的标准误差可以根据在方差计算时的附加因子1/√?所找出。SubreadData()DimassetPriceAsDouble:assetPrice=Cells(2,2)DimstrikeAsDouble:strike=Cells(3,2)DimmaturityAsDouble:maturity=Cells(4,2)
4、DimriskFreeAsDouble:riskFree=Cells(5,2)DimsigmaAsDouble:sigma=Cells(6,2)DimnsampleAsLong:nsample=Cells(7,2)DimoptionPriceAsDoubleDimstdErAsDoubleseed=5678CallMcEuropeanCall(assetPrice,strike,riskFree,sigma,maturity,nsample,optionPrice,stdEr)Cells(9,2)=opti
5、onPriceCells(10,2)=stdErCallCMcEuropeanCall(assetPrice,strike,riskFree,sigma,maturity,nsample,optionPrice,stdEr)Cells(9,3)=optionPriceCells(10,3)=stdErCallAMcEuropeanCall(assetPrice,strike,riskFree,sigma,maturity,nsample,optionPrice,stdEr)Cells(9,4)=option
6、PriceCells(10,4)=stdErEndSub源代码OP01:读取基本期权资料程序SubCMcEuropeanCall(assetPriceAsDouble,strikeAsDouble,riskFreeAsDouble,sigmaAsDouble,maturityAsDouble,nsampleAsLong,ByRefoptionPriceAsDouble,ByRefstdErAsDouble)Dimsum01AsDouble,sum02AsDouble,VnumAsDoubleDimmeanA
7、sDouble,VdAsDouble,VsAsLongDimsTAsDouble,fTAsDouble,pVAsDoublesum01=0sum02=0ForVs=1TonsampleVnum=StdNormNum()sT=assetPrice*Exp((riskFree-0.5*sigma^2)*maturity+sigma*Sqr(maturity)*Vnum)fT=CallPayoff(strike,sT)-sTpV=Exp(-riskFree*maturity)*fTsum01=sum01+pVsu
8、m02=sum02+pV*pVNextVsmean=sum01/nsample2AnthonyKongVd=Sqr(sum02/(nsample-1)-(nsample/(nsample-1))*mean^2)optionPrice=assetPrice+meanstdEr=Vd/Sqr(nsample)EndSub源代码OP02:欧州看涨期权控制変量法梦特卡罗模拟程序SubAMcEuropeanCall(ass
