MuPAD Pro Computing Essentials - Examples 

Example 7.6 - How to obtain a good graph of 3D surface

Sometimes it is quite useful to obtain the graph of a curve and its asymptotes. For example, a family of hyperbolas and their common asymptotes.

g:=(x,y,z)->[abs(sin(PI-x)),abs(sin(PI-y)),abs(sin(z))]:

export(plot, Function3d):

funSin:=Function3d(
   sin(y^2+x^2), x=-3..3, y=-3..3,
   Grid = [40,40],
   Style = [ColorPatches, Only],
   Color = [Function,g]
);
 
plot(
   funSin,
   CameraPoint = [50, 30, 40],
   FocalPoint = [0, 0, 0],
   BackGround = [0.8, 0.8, 1]
)

NOTE - the Flash file displayed below is about 70kb. We can obtain much better quality of this plot by changing Grid option to 50 or more. However, the size of produced picture will be much larger.