你这是谁对谁的隐函数啊?是极大值还是极小值?嘛,不过稍加分析（画画图或者求求导）就会发现只有x在y取某值的时候有极小值：
sol = Solve[y == (1 - x E^y), x]
Minimize[Flatten@{x /. %}, {y}]
mathematica 求隐函数y=1-xe^y的极值怎么求
你这是谁对谁的隐函数啊?是极大值还是极小值?嘛,不过稍加分析（画画图或者求求导）就会发现只有x在y取某值的时候有极小值：
sol = Solve[y == (1 - x E^y), x]
Minimize[Flatten@{x /. %}, {y}]