DescripciónMonkey Saddle Surface (Shaded).png	English: A monkey saddle surface, with the equation ${\displaystyle z=x^{3}-3xy^{2}\,}$. Done in MuPAD. Русский: Поверхность Обезьянье седло, задаваемая уравнением ${\displaystyle z=x^{3}-3xy^{2}\,}$. Сделано в MuPAD.
Fecha	11 de abril de 2006
Fuente	Trabajo propio
Autor	Inductiveload
Permiso (Reutilización de este archivo)	Public domainPublic domainfalsefalse Yo, el titular de los derechos de autor de esta obra, lo libero al dominio público. Esto aplica en todo el mundo. En algunos países esto puede no ser legalmente factible; si ello ocurriese: Concedo a cualquier persona el derecho de usar este trabajo para cualquier propósito, sin ningún tipo de condición al menos que éstas sean requeridas por la ley.
Otras versiones	Unshaded Version

f := x^3-3*x*y^2:

  conts := 16:
  projectionlevel:=-1.5:

colourfunc := zip(RGB::Red, RGB::CornflowerBlue,
                  (a, b) -> (f(x,y)+1)/(2)*a
                           -(f(x,y)-1)/(2)*b):

funcplot := plot::Function3d(f(x,y),
                             x = -1..1,
                             y = -1..1,
                             Mesh = [24, 24],
                             Submesh=[8,8],
                             LineColor = RGB::Black.[0.99],
                             LineWidth = 0.1,
                             Filled = TRUE,
                             FillColorFunction = colourfunc,                             
                             AxesTitleFont = ["Courier New", 14],                       
                             ViewingBoxZRange = -1.5..1
                            ):

contours := plot::modify(funcplot,
                         ZContours = [Automatic, conts],
                         LineWidth = 0.15,
                         LineColor = RGB::Gray90.[0.5],
                         XLinesVisible = FALSE,
                         YLinesVisible = FALSE,
                         Filled = FALSE
                        ):
                        
projcontours := plot::Transform3d([0, 0, projectionlevel],
                                  [1, 0, 0, 0, 1, 0, 0, 0, 0], 
                                   plot::modify(funcplot, ZContours = [Automatic, conts],
                                                LineWidth = 0.2,
                                                LineColorType = Dichromatic,
                                                LineColor = RGB::Red.[0.99],
                                                LineColor2 = RGB::CornflowerBlue.[0.99],
                                                XLinesVisible = FALSE,
                                                YLinesVisible = FALSE,
                                                Filled = FALSE
                                               )
                                  ):
                             
camera := plot::Camera([16, -24, 30],
                       [0, 0, -0.25],
                       0.08
                      ):
                             
ploteverything := plot::Canvas(funcplot,projcontours, contours,
                               Width = 200*unit::mm, 
                               Height = 150*unit::mm, 
                               Axes = Boxed,
                               TicksVisible = FALSE ,
                               TicksLabelsVisible = FALSE,
                               AxesTitles = ["", "", ""],                                                
                               camera
                              ): 
                          
plot(ploteverything)