Name - Rohit Kumar Mandal

Roll no. - 2019/12/14

Date- 17/1/22

Practical 1:
th
Make a geometric plot to show that the n roots of unity are equally spaced
points that lie on the unit circle C1(0) = {z : z = 1} and form the vertices
of a regular polygon with n sides, for n = 4, 5, 6, 7, 8, 9, 10, 11, 12.

4th roots of unity

In[3]:= p4a = ListPlot[Table[{{Re[Exp[2 * Pi * I * K / 4]], Im[Exp[2 * Pi * I * K / 4]]}}, {K, 0, 3}],
PlotStyle → {{Blue, PointSize[0.05]}}]
1.0

0.5

Out[3]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0

In[4]:= p4b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  4, ImExp2 * Pi * I * k  4, {k, 0, 3}

Out[4]=
2 Practical 1.nb

In[5]:= p4c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  4, ImExp2 * Pi * I * k - 1  4,
ReExp2 * Pi * I * k  4, ImExp2 * Pi * I * k  4, {k, 0, 3}

Out[5]=

In[6]:= Show[p4a, p4b, p4c]

1.0

0.5

Out[6]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0

5th roots of unity

In[7]:= p5a = ListPlot[Table[{{Re[Exp[2 * Pi * I * K / 5]], Im[Exp[2 * Pi * I * K / 5]]}}, {K, 0, 4}],
PlotStyle → {{Blue, PointSize[0.05]}}]
1.0

0.5

Out[7]=
-0.5 0.5 1.0

-0.5

-1.0
 Practical 1.nb 3

In[8]:= p5b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  5, ImExp2 * Pi * I * k  5, {k, 0, 4}

Out[8]=

In[9]:= p5c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  5, ImExp2 * Pi * I * k - 1  5,
ReExp2 * Pi * I * k  5, ImExp2 * Pi * I * k  5, {k, 0, 4}

Out[9]=

In[10]:= Show[p5a, p5b, p5c]

1.0

0.5

Out[10]=
-0.5 0.5 1.0

-0.5

-1.0
4 Practical 1.nb

6th roots of unity

In[11]:= p6a = ListPlot[Table[{{Re[Exp[2 * Pi * I * K / 6]], Im[Exp[2 * Pi * I * K / 6]]}}, {K, 0, 5}],
PlotStyle → {{Blue, PointSize[0.05]}}]

0.5

Out[11]=
-1.0 -0.5 0.5 1.0

-0.5

In[12]:= p6b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  6, ImExp2 * Pi * I * k  6, {k, 0, 5}

Out[12]=

In[13]:= p6c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  6, ImExp2 * Pi * I * k - 1  6,
ReExp2 * Pi * I * k  6, ImExp2 * Pi * I * k  6, {k, 0, 5}

Out[13]=
 Practical 1.nb 5

In[14]:= Show[p6a, p6b, p6c]

0.5

Out[14]=
-1.0 -0.5 0.5 1.0

-0.5

7th roots of unity

In[15]:= p7a = ListPlot[Table[{{Re[Exp[2 * Pi * I * K / 7]], Im[Exp[2 * Pi * I * K / 7]]}}, {K, 0, 6}],
PlotStyle → {{Blue, PointSize[0.05]}}]
1.0

0.5

Out[15]=
-0.5 0.5 1.0

-0.5

-1.0

In[16]:= p7b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  7, ImExp2 * Pi * I * k  7, {k, 0, 6}

Out[16]=
6 Practical 1.nb

In[17]:= p7c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  7, ImExp2 * Pi * I * k - 1  7,
ReExp2 * Pi * I * k  7, ImExp2 * Pi * I * k  7, {k, 0, 6}

Out[17]=

In[18]:= Show[p7a, p7b, p7c]

1.0

0.5

Out[18]=
-0.5 0.5 1.0

-0.5

-1.0

8th roots of unity

In[19]:= p8a = ListPlotTableReExp2 * Pi * I * K  8, ImExp2 * Pi * I * K  8, {K, 0, 7},
PlotStyle → {{Blue, PointSize[0.05]}}
1.0

0.5

Out[19]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0
 Practical 1.nb 7

In[20]:= p8b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  8, ImExp2 * Pi * I * k  8, {k, 0, 7}

Out[20]=

In[21]:= p8c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  8, ImExp2 * Pi * I * k - 1  8,
ReExp2 * Pi * I * k  8, ImExp2 * Pi * I * k  8, {k, 0, 7}

Out[21]=

In[22]:= Show[p8a, p8b, p8c]

1.0

0.5

Out[22]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0
8 Practical 1.nb

9th roots of unity

In[23]:= p9a = ListPlotTableReExp2 * Pi * I * K  9, ImExp2 * Pi * I * K  9, {K, 0, 8},
PlotStyle → {{Blue, PointSize[0.05]}}
1.0

0.5

Out[23]=
-0.5 0.5 1.0

-0.5

-1.0

In[24]:= p9b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  9, ImExp2 * Pi * I * k  9, {k, 0, 8}

Out[24]=

In[25]:= p9c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  9, ImExp2 * Pi * I * k - 1  9,
ReExp2 * Pi * I * k  9, ImExp2 * Pi * I * k  9, {k, 0, 8}

Out[25]=
 Practical 1.nb 9

In[26]:= Show[p9a, p9b, p9c]

1.0

0.5

Out[26]=
-0.5 0.5 1.0

-0.5

-1.0

10th roots of unity

In[27]:= p10a = ListPlotTableReExp2 * Pi * I * K  10, ImExp2 * Pi * I * K  10, {K, 0, 9},
PlotStyle → {{Blue, PointSize[0.05]}}
1.0

0.5

Out[27]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0

In[28]:= p10b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  10, ImExp2 * Pi * I * k  10, {k, 0, 9}

Out[28]=
10 Practical 1.nb

In[29]:= p10c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  10, ImExp2 * Pi * I * k - 1  10,
ReExp2 * Pi * I * k  10, ImExp2 * Pi * I * k  10, {k, 0, 9}

Out[29]=

In[30]:= Show[p10a, p10b, p10c]

1.0

0.5

Out[30]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0

11th roots of unity

In[31]:= p11a = ListPlotTableReExp2 * Pi * I * K  11, ImExp2 * Pi * I * K  11, {K, 0, 10},
PlotStyle → {{Blue, PointSize[0.05]}}
1.0

0.5

Out[31]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0
 Practical 1.nb 11

In[32]:= p11b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  11, ImExp2 * Pi * I * k  11, {k, 0, 10}

Out[32]=

In[33]:= p11c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  11, ImExp2 * Pi * I * k - 1  11,
ReExp2 * Pi * I * k  11, ImExp2 * Pi * I * k  11, {k, 0, 10}

Out[33]=

In[34]:= Show[p11a, p11b, p11c]

1.0

0.5

Out[34]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0
12 Practical 1.nb

12th root of unity

In[35]:= p12a = ListPlotTableReExp2 * Pi * I * K  12, ImExp2 * Pi * I * K  12, {K, 0, 11},
PlotStyle → {{Blue, PointSize[0.05]}}
1.0

0.5

Out[35]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0

In[36]:= p12b = ShowTableGraphicsThick, Blue,

Line{0, 0}, ReExp2 * Pi * I * k  12, ImExp2 * Pi * I * k  12, {k, 0, 11}

Out[36]=

In[37]:= p12c = ShowTableGraphicsThick, Dashed, Red,

LineReExp2 * Pi * I * k - 1  12, ImExp2 * Pi * I * k - 1  12,
ReExp2 * Pi * I * k  12, ImExp2 * Pi * I * k  12, {k, 0, 11}

Out[37]=
 Practical 1.nb 13

In[38]:= Show[p12a, p12b, p12c]

1.0

0.5

Out[38]=
-1.0 -0.5 0.5 1.0

-0.5

-1.0