ファイル:Exponential Function (Imag Part).png

ページのコンテンツが他言語でサポートされていません。

元のファイル(1,700 × 1,400 ピクセル、ファイルサイズ: 630キロバイト、MIME タイプ: image/png)

解説

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

日付
原典 Own drawing, Plotted in MuPAD
作者 Inductiveload
許可
(ファイルの再利用)
Public domain この著作物の著作権者である私は、この著作物における権利を放棄しパブリックドメインとします。これは全世界で適用されます。
一部の国では、これが法的に可能ではない場合があります。その場合は、次のように宣言します。
私は、あらゆる人に対して、法により必要とされている条件を除き、如何なる条件も課すことなく、あらゆる目的のためにこの著作物を使用する権利を与えます。

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)

キャプション

このファイルの内容を1行で記述してください

このファイルに描写されている項目

題材

20 4 2007

ファイルの履歴

過去の版のファイルを表示するには、その版の日時をクリックしてください。

日付と時刻サムネイル寸法利用者コメント
現在の版2007年4月20日 (金) 15:292007年4月20日 (金) 15:29時点における版のサムネイル1,700 × 1,400 (630キロバイト)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 |

以下のページがこのファイルを使用しています:

グローバルなファイル使用状況

以下に挙げる他のウィキがこの画像を使っています: