R代码#蒙特卡洛法计算欧式看涨期权

#蒙特卡洛法计算欧式看涨期权 payoff_call=function(price,X) { return(max(0,price-X)) } price_simulate=function(S,r,sigma,t) { R=(r-0.5*sigma^2)*t sd=sigma*sqrt(t) return(S*exp(R+sd*rnorm(1))) }