Black-Scholes期权定价公式
没在mathematica里找到内置的函数，自己写了一下，记录在这，方便以后使用。
(*s-代表0时刻的价格 t--代表时长 k--代表执行价 r--代表利率 a--代表波动率*)
p[s_, t_, k_, r_, a_] := Block[{w, wp, wp2},
w = (r*t + a^2*t/2 - Log[k/s])/(a*Sqrt[t]);
wp = NProbability[x < w, x \[Distributed] NormalDistribution[0, 1]];
wp2 = NProbability[x < w - a*Sqrt[t],
x \[Distributed] NormalDistribution[0, 1]];
s*wp - k*E^(-r*t)*wp2
]