mathematica三维热传导方程求解

本人想解下列方程，然而程序出错，方程和代码见图。本人初学mathematica，实在不知如何排除问题，恳求大神指点。
原题是2016年美国数模竞赛的A题

比如画球x^2+y^2+z^2=1ContourPlot3D[x^2+y^2+z^2==1,{x,-1,1},{y,-1,1},{z,-1,1}]又比如：ContourPlot3D[{(x^2+(9y^2)/4+z^2-1)^3-x^2z^3-(9y^2z^3)/80==0},{x,-3,3},{y,-3,3},{z,-3,3}]

温馨提示：内容为网友见解，仅供参考

当前网址：https://11.t2y.org/zz/fsq8f27fqpf2qpqmp2.html