具有 pstricks 的绝对值函数的三维图

Question

我想重现图中给出的情节。函数（已知a和c）是

a(x^2+y^2+z^2)+(1-a)(abs(x)+abs(y)+abs(z))=c where 0<a<1, c>0

我怎样才能做到这一点？

Answer 1

\documentclass[pstricks]{standalone}
\usepackage{pst-solides3d}
\begin{document}
\begin{pspicture}(-6,-4)(6,6)
\psset{lightsrc=5 50 30 rtp2xyz,viewpoint=50 60 15 rtp2xyz,Decran=50}
\psImplicitSurface[ % a=0.5 c=2
 XMinMax=-2.0 2.0 0.1,YMinMax=-2.0 2.0 0.1,ZMinMax=-2.0 2.0 0.1,
 algebraic,
 ImplFunction=0.5*(x^2+y^2+z^2)+(1-0.5)*(abs(x)+abs(y)+abs(z))-2,
 fillcolor=red,
 grid]%
\gridIIID[Zmin=-2,Zmax=2](-2,2)(-2,2)
\end{pspicture}
\end{document}