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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 4, ImExp2 * Pi * I * k 4, {k, 0, 3}
Out[4]=
2 Practical 1.nb
In[5]:= p4c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 4, ImExp2 * Pi * I * k - 1 4,
ReExp2 * Pi * I * k 4, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 5, ImExp2 * Pi * I * k 5, {k, 0, 4}
Out[8]=
In[9]:= p5c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 5, ImExp2 * Pi * I * k - 1 5,
ReExp2 * Pi * I * k 5, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 6, ImExp2 * Pi * I * k 6, {k, 0, 5}
Out[12]=
In[13]:= p6c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 6, ImExp2 * Pi * I * k - 1 6,
ReExp2 * Pi * I * k 6, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 7, ImExp2 * Pi * I * k 7, {k, 0, 6}
Out[16]=
6 Practical 1.nb
In[17]:= p7c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 7, ImExp2 * Pi * I * k - 1 7,
ReExp2 * Pi * I * k 7, ImExp2 * 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 = ListPlotTableReExp2 * Pi * I * K 8, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 8, ImExp2 * Pi * I * k 8, {k, 0, 7}
Out[20]=
In[21]:= p8c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 8, ImExp2 * Pi * I * k - 1 8,
ReExp2 * Pi * I * k 8, ImExp2 * 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 = ListPlotTableReExp2 * Pi * I * K 9, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 9, ImExp2 * Pi * I * k 9, {k, 0, 8}
Out[24]=
In[25]:= p9c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 9, ImExp2 * Pi * I * k - 1 9,
ReExp2 * Pi * I * k 9, ImExp2 * 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 = ListPlotTableReExp2 * Pi * I * K 10, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 10, ImExp2 * Pi * I * k 10, {k, 0, 9}
Out[28]=
10 Practical 1.nb
In[29]:= p10c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 10, ImExp2 * Pi * I * k - 1 10,
ReExp2 * Pi * I * k 10, ImExp2 * 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 = ListPlotTableReExp2 * Pi * I * K 11, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 11, ImExp2 * Pi * I * k 11, {k, 0, 10}
Out[32]=
In[33]:= p11c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 11, ImExp2 * Pi * I * k - 1 11,
ReExp2 * Pi * I * k 11, ImExp2 * 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 = ListPlotTableReExp2 * Pi * I * K 12, ImExp2 * 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 = ShowTableGraphicsThick, Blue,
Line{0, 0}, ReExp2 * Pi * I * k 12, ImExp2 * Pi * I * k 12, {k, 0, 11}
Out[36]=
In[37]:= p12c = ShowTableGraphicsThick, Dashed, Red,
LineReExp2 * Pi * I * k - 1 12, ImExp2 * Pi * I * k - 1 12,
ReExp2 * Pi * I * k 12, ImExp2 * 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
