mathematica 去画出一个隐函数的