Wolfram mathematica 求解Black Sholes偏微分方程时，边界条件和初始条件不一致

我想解两因素Black-Scholes偏微分方程

q = 0;
\[Sigma] = 0.3;
T = 1;
r = 0.06;
NDSolve[{ D[V[Subscript[S, 1],Subscript[S, 2],t],t] + r Subscript[S, 1] D[V[Subscript[S, 1],Subscript[S, 2],t],Subscript[S, 1]]+ r Subscript[S, 2] D[V[Subscript[S, 1],Subscript[S, 2],t],Subscript[S, 2]] + 1/2 \[Sigma]^2 Subscript[S, 1]^2 D[V[Subscript[S, 1],Subscript[S, 2],t],Subscript[S, 1],Subscript[S, 1]] + 1/2 \[Sigma]^2 Subscript[S, 2]^2 D[V[Subscript[S, 1],Subscript[S, 2],t],Subscript[S, 2],Subscript[S, 2]] - r V[Subscript[S, 1],Subscript[S, 2],t] == 0,
V[Subscript[S, 1],Subscript[S, 2],T] == Max[Subscript[S, 1],Subscript[S, 2]],
V[0,Subscript[S, 2],t] == Subscript[S, 2],
V[Subscript[S, 1],0,t] == Subscript[S, 1],
V[100,Subscript[S, 2],t]== 100,
V[Subscript[S, 1],100,t] == 100
},
V,
{Subscript[S, 1],0,100},{Subscript[S, 2],0,100},{t,0,T}
]

我得到两个警告

警告：边界条件和初始条件不一致

及

初始条件的计算结果不是一系列的 空间网格上的深度2。偏微分方程的初始条件 微分方程应指定为的标量函数 空间变量

如果我打开浏览器，耐心等待“键入Wolfram语言输入…”出现，我用鼠标左键点击下方的空框，然后点击“x”键，等待它出现，然后点击backspace键，等待它消失，然后我刮-n-粘贴正是这个

q=0; \[Sigma]=0.3; T=1; r=0.06;
sol=V/.NDSolve[{ D[V[s1,s2,t],t] + r s1 D[V[s1,s2,t],s1]+ r s2 D[V[s1,s2,t],s2] +
  1/2 \[Sigma]^2 s1^2 D[V[s1,s2,t],s1,s1] + 1/2 \[Sigma]^2 s2^2 D[V[s1,s2,t],s2,s2] -
  r V[s1,s2,t]==0, V[s1,s2,T]==Max[s1,s2], V[0,s2,t]==s2, V[s1,0,t]==s1,
  V[100,s2,t]==100, V[s1,100,t]==100}, V, {s1,0,100},{s2,0,100},{t,0,T}][[1]];
Table[{s1,s2,t,sol[s1,s2,t]},{s1,0,100,25},{s2,0,100,25},{t,0,1,1/4}]

进入那个空框，耐心地等待它出现，然后我点击shift+enter，等待结果出现

然后我得到了关于网格点的三个警告，但这些警告似乎可以安全地忽略，在另一次延迟后，我看到出现了

{s1，s2，t，sol[s1，s2，t]}

表

我看不到您报告的任何错误消息

你能完全复制我在这里展示的步骤并得到完全相同的结果吗

---

也许这是一个版本问题。出现错误时，您使用的是什么版本？也许这是一个下标问题。也许这是一个缓存问题，使用您笔记本中的先前分配。

我使用mathematica 12它在我的mathematica 12上工作！！！！，但是我很困惑，因为你的代码和我的代码没有区别！但你的工作，而我的从来没有工作。