Complex Plane

Author

Eric W. Weisstein
June 12, 2024

This notebook downloaded from http://mathworld.wolfram.com/notebooks/ComplexAnalysis/ComplexPlane.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/ComplexPlane.html.

©2024 Wolfram Research, Inc. except for portions noted otherwise

Diagram

Graphics[{
FaceForm[LightGray],EdgeForm[Black],
Polygon[2{{-1,1},{1,1},{1,-1},{-1,-1}}],
Arrowheads[{-1,1}.05],
Arrow[2{{0,-1.2},{0,1.2}}],Arrow[2{{-1.2,0},{1.2,0}}],
AbsolutePointSize[8],
Point[{0,1}],Text[Style["i",Italic],{0,1},{6,0}],
Point[{1,0}],Text["1",{1,0},{0,2}],
Point[{-1,0}],Text[Row[{"-","1"}],{-1,0},{0,2}],
Point[{1,-1}],Text[Row[{"-",Style["i",Italic],"+","1"}],{1,-1},{-1.7,0}],
Point[{0,0}],Text["0",{0,0},{2,2}],
Point[{1,1}],Text[Row[{"1","+",Style["i",Italic]}],{1,1},{-2,0}],
Point[{0,-1}],Text[Row[{"-",Style["i",Italic]}],{0,-1},{2,0}],
Point[{-1,-1}],Text[Row[{"-",Style["i",Italic],"-",1}],{-1,-1},{1.5,0}],
Point[{-1,1}],Text[Row[{Style["i",Italic],"-",1}],{-1,1},{1.6,0}],
Text[Style["imaginary axis",Italic],{0,2.6}],
Text[Style["real axis",Italic],{2.9,0}]
},BaseStyle->Directive[14,FontFamily->"Times"]]

Old

Import["https://mathworld.wolfram.com/images/eps-svg/ComplexPlane_700.svg"]

Import["/Users/eww/Documents/Troves/MathOzTeX/graphics/pdf/ComplexPlane.pdf"][[1]]