DescriptionExponential Function (Abs Real Part at Infinity).png	Diagram of the absolute value real part of exponetial function in the complex plane, as the operand approaches infinity. The plot is given by: ${\displaystyle z={\bigg |}\operatorname {Re} \left(\exp \left({\frac {1}{x+iy}}\right)\right){\bigg |}}$
Date	20 avril 2007
Source	Own drawing, Plotted in MuPAD
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.

MuPAD Code

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

  conts := 21:
  projectionlevel:=-10:
  ylimit := 1:
  xlimit := 1:
  submeshlevel := 30:

zmin := 0:
zmax := 10:
color := zip(RGB::AliceBlue, RGB::DarkBlue,
             (a, b) -> (q(x,y)-zmin)/(zmax-zmin)*a
                      +(zmax-q(x,y))/(zmax-zmin)*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 = color,
                             AxesTitleFont = ["Courier New", Bold, 14],
                             ViewingBoxZRange = -10..10
                            ):

contours := plot::modify(funcplot,
                         ZContours = [Automatic, conts],
                         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 = [Automatic, conts],
                                                LineWidth = 0.2,
                                                LineColorType = Dichromatic,
                                                LineColor = RGB::SteelBlueLight.[0.99],
                                                LineColor2 = RGB::NavyBlue.[0.99],
                                                XLinesVisible = FALSE,
                                                YLinesVisible = FALSE,
                                                Filled = FALSE
                                               )
                                  ):
                             
camera := plot::Camera([-20, -35, 300],
                       [0, 0, 0],
                       0.06
                      ):
                             
ploteverything := plot::Canvas(funcplot, contours, projcontours,
                               Width = 8.5*unit::inch, 
                               Height = 7*unit::inch,
                               camera
                               ): 
                          
plot(ploteverything)