mathematica编程问题

想在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}]



运行后结果这样