Jump to content

File:Exponential Function (Imag Part).png

This is a file from the Wikimedia Commons
From Wikipedia, the free encyclopedia

Original file (1,700 × 1,400 pixels, file size: 630 KB, MIME type: image/png)

Description

Diagram of the real part of exponetial function in the complex plane. The surface is given by:

Date
Source Own drawing, Plotted in MuPAD
Author Inductiveload
Permission
(Reusing this file)
Public domain I, the copyright holder of this work, release this work into the public domain. This applies worldwide.
In some countries this may not be legally possible; if so:
I grant anyone the right to use this work for any purpose, without any conditions, unless such conditions are required by law.

MuPAD Code

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

  conts := 21:
  projectionlevel:=-10:
  ylimit := 2*PI:
  xlimit := 3:
  submeshlevel := 4:
  approx := 20:

colourfunc := zip(RGB::DarkGreen, RGB::Yellow,
                  (a, b) -> (q(x,y)+10)/(12)*a
                           -(q(x,y)-10)/(20)*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 = -10..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 = [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::DarkGreen.[0.99],
                                                LineColor2 = RGB::Yellow.[0.99],
                                                XLinesVisible = FALSE,
                                                YLinesVisible = FALSE,
                                                Filled = FALSE
                                               )
                                  ):
                             
camera := plot::Camera([-25, -80, 120],
                       [-0.5, -1, 0],
                       0.15
                      ):
                             
ploteverything := plot::Canvas(funcplot, contours, projcontours,
                               Width = 8.5*unit::inch, 
                               Height = 7*unit::inch,
                               camera
                              ): 
                          
plot(ploteverything)

Captions

Add a one-line explanation of what this file represents

Items portrayed in this file

depicts

20 April 2007

File history

Click on a date/time to view the file as it appeared at that time.

Date/TimeThumbnailDimensionsUserComment
current15:29, 20 April 2007Thumbnail for version as of 15:29, 20 April 20071,700 × 1,400 (630 KB)Inductiveload{{Information |Description=Diagram of the real part of exponetial function in the complex plane. The surface is given by: ::<math>z=\operatorname{Re} \left (\exp \left( x + i y \right)\right)</math> |Source=Own drawing, Plotted in MuPAD |Date=20/04/2007 |

Global file usage

The following other wikis use this file: