Practical - 1

Name - Prakash Chandra

Roll no - 2132144
B.Sc. Mathematics Hons.
Section - B

 FIND THE NTH ROOT OF

UNITY AND SHOW THAT
THEY ARE EQUIDISTANT 
I n [ ] : = s = NSolvez3  1, z
O u t [ ] =

{{z  1.}, {z  - 0.5 - 0.866025 }, {z  - 0.5 + 0.866025 }}

(*N Number Form

s=List of elements*)

{z  1}, z  - (- 1)1/3 , z  (- 1)2/3 

2 2132144 - Prac 01.nb

Graphics[Point[{0, 1}]]
O u t [ ] =

I n [ ] : = Graphics[{PointSize[0.04], Red, Point[{0, 1}]}]

O u t [ ] =
 2132144 - Prac 01.nb 3

I n [ ] : = Graphics[{PointSize[0.04], Red, Point[{0, 1}], Purple, Point[{2, 4}]}]

O u t [ ] =

I n [ ] : = Graphics[{Thickness[0.02], Purple, Dashed,

Line[{{0, 1}, {4, 5}}], DotDashed, Red, Line[{{3, 5}, {7, 5}}]}]
O u t [ ] =
4 2132144 - Prac 01.nb

π π
I n [ ] : = PolarPlot{0, 1}, θ, - 3 , , PolarGridLines  True, PlotStyle  Opacity[0.7]
2 4
O u t [ ] =

1.0

0.5

-1.0 -0.5 0.5 1.0

-0.5

-1.0

QUESTION:-1 Show that the nth root of unity are equally spaced points that lies on the unit circle
and form the vertices of a regular polygon with n sides.
(*Obtaining the 3 cube root of unity .The
third root of unity are the root of equation z 3 1=0*)

I n [ ] : = s = Solvez3  1, z // N
O u t [ ] =

{{z  1.}, {z  - 0.5 - 0.866025 }, {z  - 0.5 + 0.866025 }}

(*Plotting the roots and show graphically that they lie on a unit circle*)
 2132144 - Prac 01.nb 5

I n [ ] : = z1 = s〚1, 1, 2〛;
z2 = s〚2, 1, 2〛;
z3 = s〚3, 1, 2〛;
a = Graphics[{PointSize[0.04], Red, Point[{Re[z1], Im[z1]}], Blue,
Point[{Re[z2], Im[z2]}], Green, Point[{Re[z3], Im[z3]}]}, Axes  True,
AxesLabel  {"Real Axis", "Imaginary Axis"}, PlotRange  {{- 2, 2}, {- 2, 2}}]
b = PolarPlot[1, {θ, 0, 2 π}, PolarAxes  True, PolarGridLines  True, PlotStyle  Thick];
Show[a, b]

O u t [ ] =
Imaginary Axis
2

Real Axis
-2 -1 1 2

-1

-2

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π 1 1. π

6 0.75 6
11 π π
0.5
12 12
0.25

π 0. 0 Real Axis
-2 -1 1 2
13 π 23 π

12 12
7π 11 π

6 -1 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

(*Marking Points*)
6 2132144 - Prac 01.nb

I n [ ] : = c = Graphics[{Text[Style["z1", Bold], {1.2, 0.2}],

Text[Style["z2", Bold], {- 0.7, - 1}], Text[Style["z3", Bold], {- 0.7, 1}]}];
Show[a, b, c]

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π z3 1 1. π

6 0.75 6
11 π π
0.5
12 12
0.25 z1
π 0. 0 Real Axis
-2 -1 1 2
13 π 23 π

12 12
7π 11 π

6 z2 -1 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

(*Show that the points are equally spaced by obtaining

the angles between lines joining the origin to the points*)

I n [ ] : = d = Graphics[{Purple, Thick, Line[{{0, 0}, {Re[z1], Im[z1]}}],

Line[{{0, 0}, {Re[z2], Im[z2]}}], Line[{{0, 0}, {Re[z3], Im[z3]}}]}];
Show[a, b, c, d]
O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π z3 1 1. π

6 0.75 6
11 π π
0.5
12 12
0.25 z1
π 0. 0 Real Axis
-2 -1 1 2
13 π 23 π

12 12
7π 11 π

6 z2 -1 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2
 2132144 - Prac 01.nb 7

z3 z1 z2
I n [ ] : = IfArg   Arg   Arg ,
z1 z2 z3
Print["All points are equally spaced"], Print["point aren't equally spaced"]

All points are equally spaced

I n [ ] : = e = Graphics[{Purple, Thick, Line[{{Re[z2], Im[z2]}, {Re[z1], Im[z1]}}],

Line[{{Re[z3], Im[z3]}, {Re[z2], Im[z2]}}],
Line[{{Re[z1], Im[z1]}, {Re[z3], Im[z3]}}]}];
Show[a, b, c, e]
O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π z3 1 1. π

6 0.75 6
11 π π
0.5
12 12
0.25 z1
π 0. 0 Real Axis
-2 -1 1 2
13 π 23 π

12 12
7π 11 π

6 z2 -1 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

I n [ ] : = If[Abs[z1 - z2]  Abs[z2 - z3]  Abs[z1 - z3],

Print["Points are at vertices of regular polygon"],
Print["Points aren't at vertices of regular polygon"]]
Points are at vertices of regular polygon

QUESTION:-2 Show that the 5th root of unity are equally spaced points that lies on the unit circle
and form the vertices of a regular polygon with n sides.
8 2132144 - Prac 01.nb

I n [ ] : = Clear[s, a, b, c, d, e, z1, z2, z3, z4, z5, z6, z7, z8]

s = Solvez5  1, z // N
z1 = s〚1, 1, 2〛;
z2 = s〚2, 1, 2〛;
z3 = s〚3, 1, 2〛;
z4 = s〚4, 1, 2〛;
z5 = s〚5, 1, 2〛;
a = Graphics[{PointSize[0.04], Red, Point[{Re[z1], Im[z1]}],
Blue, Point[{Re[z2], Im[z2]}], Green, Point[{Re[z3], Im[z3]}], Cyan,
Point[{Re[z4], Im[z4]}], Orange, Point[{Re[z5], Im[z5]}]}, Axes  True,
AxesLabel  {"Real axis", "Imaginary Axis"}, PlotRange  {{- 2, 2}, {- 2, 2}}];
b = PolarPlot[1, {θ, 0, 2 π}, PolarAxes  True, PolarGridLines  True, PlotStyle  Thick];
Show[a, b];
c = Graphics[{Text[Style["z1", Bold], {1.2, 0.2}],
Text[Style["z2", Bold], {- 1, - 1}], Text[Style["z3", Bold], {0.5, 1.2}],
Text[Style["z4", Bold], {0.5, - 1.2}], Text[Style["z5", Bold], {- 1, 0.6}]}];
Show[a, b, c];
d = Graphics[{Purple, Thick, Line[{{0, 0}, {Re[z1], Im[z1]}}],
Line[{{0, 0}, {Re[z2], Im[z2]}}], Line[{{0, 0}, {Re[z3], Im[z3]}}],
Line[{{0, 0}, {Re[z4], Im[z4]}}], Line[{{0, 0}, {Re[z5], Im[z5]}}]}];
Show[a, b, c, d]
z3 z1 z4 z2 z5
IfArg   Arg   Arg   Arg   Arg ,
z1 z4 z2 z5 z3

Print[" Points are equally spaced"], Print[" Points aren't equally spaced"]
e = Graphics[{Purple, Thick, Line[{{Re[z3], Im[z3]}, {Re[z1], Im[z1]}}],
Line[{{Re[z1], Im[z1]}, {Re[z4], Im[z4]}}],
Line[{{Re[z4], Im[z4]}, {Re[z2], Im[z2]}}],
Line[{{Re[z2], Im[z2]}, {Re[z5], Im[z5]}}],
Line[{{Re[z5], Im[z5]}, {Re[z3], Im[z3]}}]}];
Show[a, b, c, e]
If[Abs[z1 - z3]  Abs[z1 - z4]  Abs[z4 - z2]  Abs[z2 - z5]  Abs[z5 - z3],
Print["Points are at vertices of regular polygon"],
Print["Points aren't at vertices of regular polygon"]]

O u t [ ] =

{{z  1.}, {z  - 0.809017 - 0.587785 }, {z  0.309017 + 0.951057 },

{z  0.309017 - 0.951057 }, {z  - 0.809017 + 0.587785 }}
 2132144 - Prac 01.nb 9

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25 z3
4 4
5π 1 1. π

6 0.75 6
11 π z5 π
0.5
12 12
0.25 z1
π 0. 0 Real axis
-2 -1 1 2
13 π 23 π

12 12
7π 11 π

6 z2 -1 6
5π 7π
z4
4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points are equally spaced

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25 z3
4 4
5π 1 1. π

6 0.75 6
11 π z5 π
0.5
12 12
0.25 z1
π 0. 0 Real axis
-2 -1 1 2
13 π 23 π

12 12
7π 11 π

6 z2 -1 6
5π 7π
z4
4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points are at vertices of regular polygon

QUESTION:-3 Show that the 6th root of unity are equally spaced points that lies on the unit circle
and form the vertices of a regular polygon with n sides.
10 2132144 - Prac 01.nb

I n [ ] : = Clear[s, a, b, c, d, e, z1, z2, z3, z4, z5, z6, z7, z8]

s = Solvez6  1, z // N
z1 = s〚1, 1, 2〛;
z2 = s〚2, 1, 2〛;
z3 = s〚3, 1, 2〛;
z4 = s〚4, 1, 2〛;
z5 = s〚5, 1, 2〛;
z6 = s〚6, 1, 2〛;
a = Graphics[
{PointSize[0.04], Red, Point[{Re[z1], Im[z1]}], Blue, Point[{Re[z2], Im[z2]}],
Green, Point[{Re[z3], Im[z3]}], Cyan, Point[{Re[z4], Im[z4]}], Orange,
Point[{Re[z5], Im[z5]}], Brown, Point[{Re[z6], Im[z6]}]}, Axes  True,
AxesLabel  {"Real axis", "Imaginary Axis"}, PlotRange  {{- 2, 2}, {- 2, 2}}];
b = PolarPlot[1, {θ, 0, 2 π}, PolarAxes  True, PolarGridLines  True, PlotStyle  Thick];
Show[a, b];
c=
Graphics[{Text[Style["z1", Bold], {- 1.2, 0.2}], Text[Style["z2", Bold], {1.2, - 0.2}],
Text[Style["z3", Bold], {- 0.5, - 1.}], Text[Style["z4", Bold], {0.6, 1.}],
Text[Style["z5", Bold], {0.6, - 1}], Text[Style["z6", Bold], {- 0.5, 1}]}];
Show[a, b, c];
d = Graphics[
{Purple, Thick, Line[{{0, 0}, {Re[z1], Im[z1]}}], Line[{{0, 0}, {Re[z2], Im[z2]}}],
Line[{{0, 0}, {Re[z3], Im[z3]}}], Line[{{0, 0}, {Re[z4], Im[z4]}}],
Line[{{0, 0}, {Re[z5], Im[z5]}}], Line[{{0, 0}, {Re[z6], Im[z6]}}]}];
Show[a, b, c, d]
z6 z4 z2 z5 z3 z1
IfArg   Arg   Arg   Arg   Arg   Arg ,
z4 z2 z5 z3 z1 z6

Print[" Points are equally spaced"], Print[" Points aren't equally spaced"]
e = Graphics[{Purple, Thick, Line[{{Re[z3], Im[z3]}, {Re[z1], Im[z1]}}],
Line[{{Re[z1], Im[z1]}, {Re[z6], Im[z6]}}],
Line[{{Re[z4], Im[z4]}, {Re[z6], Im[z6]}}],
Line[{{Re[z2], Im[z2]}, {Re[z4], Im[z4]}}],
Line[{{Re[z5], Im[z5]}, {Re[z2], Im[z2]}}],
Line[{{Re[z5], Im[z5]}, {Re[z3], Im[z3]}}]}];
Show[a, b, c, e]
If[Abs[z1 - z3]  Abs[z1 - z6]  Abs[z4 - z6]  Abs[z2 - z4]  Abs[z5 - z2]  Abs[z5 - z3],
Print["Points are at vertices of regular polygon"],
Print["Points aren't at vertices of regular polygon"]]

O u t [ ] =

{{z  - 1.}, {z  1.}, {z  - 0.5 - 0.866025 },

{z  0.5 + 0.866025 }, {z  0.5 - 0.866025 }, {z  - 0.5 + 0.866025 }}
 2132144 - Prac 01.nb 11

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π z6 1 1. z4 π

6 0.75 6
11 π π
0.5
12 12
z1 0.25

π 0. 0 Real axis
-2 -1 1 2
z2
13 π 23 π

12 12
7π 11 π

6 z3 -1 z5 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points are equally spaced

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π z6 1 1. z4 π

6 0.75 6
11 π π
0.5
12 12
z1 0.25

π 0. 0 Real axis
-2 -1 1 2
z2
13 π 23 π

12 12
7π 11 π

6 z3 -1 z5 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points are at vertices of regular polygon

QUESTION:-4 Show that the 7th root of unity are equally spaced points that lies on the unit circle
and form the vertices of a regular polygon with n sides.
12 2132144 - Prac 01.nb

I n [ ] : = Clear[s, a, b, c, d, e, z1, z2, z3, z4, z5, z6, z7, z8]

s = Solvez7  1, z // N
z1 = s〚1, 1, 2〛;
z2 = s〚2, 1, 2〛;
z3 = s〚3, 1, 2〛;
z4 = s〚4, 1, 2〛;
z5 = s〚5, 1, 2〛;
z6 = s〚6, 1, 2〛;
z7 = s〚7, 1, 2〛;
a = Graphics[{PointSize[0.04], Red, Point[{Re[z1], Im[z1]}],
Blue, Point[{Re[z2], Im[z2]}], Green, Point[{Re[z3], Im[z3]}], Cyan,
Point[{Re[z4], Im[z4]}], Orange, Point[{Re[z5], Im[z5]}], Brown,
Point[{Re[z6], Im[z6]}], Yellow, Point[{Re[z7], Im[z7]}]}, Axes  True,
AxesLabel  {"Real axis", "Imaginary Axis"}, PlotRange  {{- 2, 2}, {- 2, 2}}];
b = PolarPlot[1, {θ, 0, 2 π}, PolarAxes  True, PolarGridLines  True, PlotStyle  Thick];
Show[a, b];
c = Graphics[{Text[Style["z1", Bold], {1.2, 0.}],
Text[Style["z2", Bold], {- 1.2, - 0.4}], Text[Style["z3", Bold], {0.8, 1}],
Text[Style["z4", Bold], {- 0.4, - 1.}], Text[Style["z5", Bold], {- 0.4, 1}],
Text[Style["z6", Bold], {0.8, - 0.75}], Text[Style["z7", Bold], {- 1, 0.5}]}];
Show[a, b, c];
d = Graphics[{Purple, Thick, Line[{{0, 0}, {Re[z1], Im[z1]}}],
Line[{{0, 0}, {Re[z2], Im[z2]}}], Line[{{0, 0}, {Re[z3], Im[z3]}}],
Line[{{0, 0}, {Re[z4], Im[z4]}}], Line[{{0, 0}, {Re[z5], Im[z5]}}],
Line[{{0, 0}, {Re[z6], Im[z6]}}], Line[{{0, 0}, {Re[z7], Im[z7]}}]}];
Show[a, b, c, d]
z5 z3 z1 z6 z4 z2 z7
IfArg   Arg   Arg   Arg   Arg   Arg   Arg ,
z3 z1 z6 z4 z2 z7 z5

Print[" Points are equally spaced"], Print[" Points aren't equally spaced"]

e = Graphics[{Purple, Thick, Line[{{Re[z3], Im[z3]}, {Re[z1], Im[z1]}}],

Line[{{Re[z1], Im[z1]}, {Re[z6], Im[z6]}}],
Line[{{Re[z4], Im[z4]}, {Re[z6], Im[z6]}}],
Line[{{Re[z2], Im[z2]}, {Re[z4], Im[z4]}}],
Line[{{Re[z7], Im[z7]}, {Re[z2], Im[z2]}}],
Line[{{Re[z5], Im[z5]}, {Re[z3], Im[z3]}}],
Line[{{Re[z7], Im[z7]}, {Re[z5], Im[z5]}}]}];
Show[a, b, c, e]
If[Abs[z1 - z3]  Abs[z1 - z6]  Abs[z4 - z6]  Abs[z2 - z4]  Abs[z5 - z7] 
Abs[z2 - z5]  Abs[z5 - z3], Print["Points are at vertices of regular polygon"],
Print["Points aren't at vertices of regular polygon"]]
O u t [ ] =

{{z  1.}, {z  - 0.900969 - 0.433884 }, {z  0.62349 + 0.781831 },

{z  - 0.222521 - 0.974928 }, {z  - 0.222521 + 0.974928 },
{z  0.62349 - 0.781831 }, {z  - 0.900969 + 0.433884 }}
 2132144 - Prac 01.nb 13

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π z5 1 1. z3 π

6 0.75 6
11 π π
z7 0.5
12 12
0.25

π 0. z1 0 Real axis
-2 -1 1 2
13 π 23 π
z2
12 12
7π z6 11 π

6 z4 -1 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points aren't equally spaced

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
1.25
4 4
5π z5 1 1. z3 π

6 0.75 6
11 π π
z7 0.5
12 12
0.25

π 0. z1 0 Real axis
-2 -1 1 2
13 π 23 π
z2
12 12
7π z6 11 π

6 z4 -1 6
5π 7π

4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points aren't at vertices of regular polygon

QUESTION:-5 Show that the 8th root of unity are equally spaced points that lies on the unit circle
and form the vertices of a regular polygon with n sides.
14 2132144 - Prac 01.nb

I n [ ] : = Clear[s, a, b, c, d, e, z1, z2, z3, z4, z5, z6, z7, z8]

s = Solvez8  1, z // N
z1 = s〚1, 1, 2〛;
z2 = s〚2, 1, 2〛;
z3 = s〚3, 1, 2〛;
z4 = s〚4, 1, 2〛;
z5 = s〚5, 1, 2〛;
z6 = s〚6, 1, 2〛;
z7 = s〚7, 1, 2〛;
z8 = s〚8, 1, 2〛;
a = Graphics[
{PointSize[0.04], Red, Point[{Re[z1], Im[z1]}], Blue, Point[{Re[z2], Im[z2]}],
Green, Point[{Re[z3], Im[z3]}], Yellow, Point[{Re[z4], Im[z4]}],
Orange, Point[{Re[z5], Im[z5]}], Purple, Point[{Re[z6], Im[z6]}], Cyan,
Point[{Re[z7], Im[z7]}], Brown, Point[{Re[z8], Im[z8]}]}, Axes  True,
AxesLabel  {"Real axis", "Imaginary Axis"}, PlotRange  {{- 2, 2}, {- 2, 2}}];
b = PolarPlot[1, {θ, 0, 2 π}, PolarAxes  True, PolarGridLines  True, PlotStyle  Thick];
Show[a, b];
c = Graphics[{Text[Style["z1", Bold], {- 1.2, 0.}], Text[Style["z2", Bold], {0, - 1.2}],
Text[Style["z3", Bold], {0, 1.2}], Text[Style["z4", Bold], {1.2, 0}],
Text[Style["z5", Bold], {- 1., - 0.8}], Text[Style["z6", Bold], {1., 0.7}],
Text[Style["z7", Bold], {1, - 0.8}], Text[Style["z8", Bold], {- 1, 0.8}]}];
Show[a, b, c];
d = Graphics[
{Purple, Thick, Line[{{0, 0}, {Re[z1], Im[z1]}}], Line[{{0, 0}, {Re[z2], Im[z2]}}],
Line[{{0, 0}, {Re[z3], Im[z3]}}], Line[{{0, 0}, {Re[z4], Im[z4]}}],
Line[{{0, 0}, {Re[z5], Im[z5]}}], Line[{{0, 0}, {Re[z6], Im[z6]}}],
Line[{{0, 0}, {Re[z7], Im[z7]}}], Line[{{0, 0}, {Re[z8], Im[z8]}}]}];
Show[a, b, c, d]
z3 z6 z4 z7 z2 z5 z1 z8
IfArg   Arg   Arg   Arg   Arg   Arg   Arg   Arg ,
z6 z4 z7 z2 z5 z1 z8 z3

Print[" Points are equally spaced"], Print[" Points aren't equally spaced"]
e = Graphics[{Purple, Thick, Line[{{Re[z3], Im[z3]}, {Re[z6], Im[z6]}}],
Line[{{Re[z4], Im[z4]}, {Re[z6], Im[z6]}}],
Line[{{Re[z4], Im[z4]}, {Re[z7], Im[z7]}}],
Line[{{Re[z2], Im[z2]}, {Re[z7], Im[z7]}}],
Line[{{Re[z5], Im[z5]}, {Re[z2], Im[z2]}}],
Line[{{Re[z5], Im[z5]}, {Re[z1], Im[z1]}}],
Line[{{Re[z1], Im[z1]}, {Re[z8], Im[z8]}}],
Line[{{Re[z8], Im[z8]}, {Re[z3], Im[z3]}}]}];
Show[a, b, c, e]
If[Abs[z3 - z6]  Abs[z4 - z6]  Abs[z4 - z7]  Abs[z2 - z7]  Abs[z5 - z2]  Abs[z1 - z5] 
Abs[z1 - z8]  Abs[z8 - z3], Print["Points are at vertices of regular polygon"],
Print["Points aren't at vertices of regular polygon"]]

O u t [ ] =

{{z  - 1.}, {z  0. - 1. }, {z  0. + 1. }, {z  1.}, {z  - 0.707107 - 0.707107 },

{z  0.707107 + 0.707107 }, {z  0.707107 - 0.707107 }, {z  - 0.707107 + 0.707107 }}
 2132144 - Prac 01.nb 15

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
z3 1.25
4 4
5π 1 1. π

6 z8 0.75 6
z6
11 π π
0.5
12 12
0.25

π z1 0. z4 0 Real axis
-2 -1 1 2
13 π 23 π

12 12
7π z5 z7 11 π

6 -1 6
5π 7π
z2
4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points are equally spaced

O u t [ ] =
Imaginary Axis
2
π
7π 5π
2π 2 π
12 12
1.5
3π 3 3 π
z3 1.25
4 4
5π 1 1. π

6 z8 0.75 6
z6
11 π π
0.5
12 12
0.25

π z1 0. z4 0 Real axis
-2 -1 1 2
13 π 23 π

12 12
7π z5 z7 11 π

6 -1 6
5π 7π
z2
4 4π 5π 4
17 π 19 π
3 3π 3
12 12
2
-2

Points are at vertices of regular polygon