DescriptionExponential Function Modulus.png	Diagram of the modulus of the exponential function in the complex plane. The plot is given by: ${\displaystyle z=|\exp \left(x+iy\right)|}$
Date	25 avril 2007
Source	Own drawing, Plotted in MuPAD, code given below.
Auteur	Inductiveload
Autorisation (Réutilisation de ce fichier)	Public domainPublic domainfalsefalse Moi, propriétaire des droits d’auteur sur cette œuvre, la place dans le domaine public. Ceci s'applique dans le monde entier. Dans certains pays, ceci peut ne pas être possible ; dans ce cas : J’accorde à toute personne le droit d’utiliser cette œuvre dans n’importe quel but, sans aucune condition, sauf celles requises par la loi.
Autres versions	See Exponential function for related graphics.

MuPAD Code

  q := abs(exp(x+I*y)):

  conts := 10:
  projectionlevel:=-5:
  ylimit := 2*PI:
  xlimit := 3:
  submeshlevel := 3:

colourfunc := zip(RGB::CadmiumYellow, RGB::SlateBlueDark,
                  (a, b) -> (q(x,y)+0)/(10)*a
                           -(q(x,y)-10)/(10)*b):

funcplot := plot::Function3d(q(x,y),
                             x = -xlimit..xlimit,
                             y = -ylimit..ylimit,
                             Mesh = [23, 23],
                             Submesh = [submeshlevel,submeshlevel],
                             LineColor = RGB::Black.[0.4],
                             LineWidth = 0.15,
                             FillColorFunction = colourfunc,
                             AxesTitleFont = ["Courier New", Bold, 14],
                             ViewingBoxZRange = -5..10,
                             YTicksNumber = None,
                             YTicksAt = [-3*PI/2 = "-3 PI/2", -PI = "-PI", -PI/2 = "-PI/2", -2*PI = "-2 PI",
                                         0 = "0", 
                                         PI/2 = "PI/2", PI = "PI",  3*PI/2 = "3 PI/2", 2*PI = "2 PI"]
                            ):

contours := plot::modify(funcplot,
                         ZContours = [$ 0..10 step 0.5],
                         LineWidth = 0.2,
                         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 = [$ 0..10 step 0.5],
                                                LineWidth = 0.2,
                                                LineColorType = Dichromatic,
                                                LineColor = RGB::CadmiumYellow.[0.99],
                                                LineColor2 = RGB::DarkBlue.[0.99],
                                                XLinesVisible = FALSE,
                                                YLinesVisible = FALSE,
                                                Filled = FALSE
                                               )
                                  ):
                             
camera := plot::Camera([-40, -120, 100],
                       [-0.5, -1, 3],
                       0.1
                      ):
                             
ploteverything := plot::Canvas(funcplot, contours, projcontours,
                               Width = 8.5*unit::inch, 
                               Height = 7*unit::inch,
                               camera
                              ): 
                          
plot(ploteverything)