BeschrijvingMonkey 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.
Datum	11 april 2006
Bron	Eigen werk
Auteur	Inductiveload
Toestemming (Hergebruik van dit bestand)	Public domainPublic domainfalsefalse Ik, de auteursrechthebbende van dit werk, geef dit werk vrij in het publieke domein. Dit is wereldwijd van toepassing. In sommige landen is dit wettelijk niet mogelijk; in die gevallen geldt: Ik sta iedereen toe dit werk voor eender welk doel te gebruiken, zonder enige voorwaarden, tenzij zulke voorwaarden door de wet worden voorgeschreven.
Andere versies	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)