想在mathematica上算出图中的S*的值,要解方程组,但是解不出来,有大神帮忙看一下吗?
V = 628989.55; t1 = 1; t0 = 0; t2 = 6; X1 = 300000; X2 = 140000;
delta = 0.01; sigma = 0.3; gamma = 0.03;
Solve [{m1- (Log[V11/X2] + (gamma - delta + sigma^2/2)*(t1 - t0))/sigma/Sqrt[t1 - t0] == 0,
m2 - m1 + sigma*Sqrt[t1 - t0] == 0,
S*Exp[-(t2 - t1)]*Probability[x <= m1, x \[Distributed] NormalDistribution[0, 1]] - X2*Exp[-gamma *(t2 - t1)]*Probability[x <= m2, x \[Distributed] NormalDistribution[0, 1]] - X1== 0}, {m1, m2,
S}]
运行后结果这样