请教一下大家,Mathematica中解混合策略纳什均衡的命令怎么编啊?或者有没有别的软件能求解纳什均衡?

具体问题是这样的:

对于0<=p1,p2,p3<=1,求p1*,p2*,p3*

使得(U表示期望效用):

U1(p1*)>=U1(p1)

U2(p2*)>=U2(p2)

U3(p3*)>=U3(p3)

0<=p1*,p2*,p3*<=1

谢谢!