#%
sub func(n,
xyz)
{
x = xyz[0];
y =
xyz[1];
z = xyz[2];
hx =(x-1)*x*x*(x+1);
f =
pow((hx+y*y),2)+z*z;
func.ret = f;
return (f);
}
put 1;
implicitsurface2("u[0]=x;u[1]=y;u[2]=z;t_=$func(3,u[]);t_-0.02",[-0.7,-0.73,-0.3],[0.7,0.73,0.3],[1,1,1],0.025);
implicitsurface2("u[0]=x;u[1]=y;u[2]=z;t_=$func(3,u[]);t_-0.02",[-1.5,-0.73,-0.3],[0.7,0.73,0.3],[1,1,1],0.025);
implicitsurface2("u[0]=x;u[1]=y;u[2]=z;t_=$func(3,u[]);t_-0.02",[0.6,-0.73,-0.3],[1.5,0.73,0.3],[1.5,0,0],0.025);
end;
|