Complex Analysis Wolfram Mathematica
Complex Analysis Wolfram Mathematica
nb 3
PRACTICAL 1
Make a geometric plot to show that the nth 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.
Solvez ^ 5 1, z
z 1, z , z ,
1 5 5 5 1 5 5 5
4 4 8 8 4 4 8 8
z , z
1 5 5 5 1 5 5 5
4 4 8 8 4 4 8 8
z . roots
1,
1 5 5 5 1 5 5 5
, ,
4 4 8 8 4 4 8 8
1 5 5 5 1 5 5 5
,
4 4 8 8 4 4 8 8
rootPlot ListPlotRez, Imz . roots, PlotRange 1.1, 1.1, 1.1, 1.1,
AxesLabel "Rez", "Imz", PlotStyle PointSize0.03
Imz
1.0
0.5
Rez
1.0 0.5 0.5 1.0
0.5
1.0
4 practicalsem 6.nb
Imz
1.0
0.5
Rez
1.0 0.5 0.5 1.0
0.5
1.0
RegularPolygon8;
GraphicsPink, , GraphicsEdgeFormThick, Pink,
practicalsem 6.nb 5
,
GraphicsPolygonCirclePoints5
6 practicalsem 6.nb
practicalsem 6.nb 7
PRACTICAL 2
Solvez ^ 3 8 I, z
z 2 , z 3 , z 3
z . roots
2 , 3 , 3
rootPlot ListPlotRez, Imz . roots, PlotRange 2.1, 2.1, 2.1, 2.1,
AxesLabel "Rez", "Imz", PlotStyle PointSize0.03
Imz
2
Rez
2 1 1 2
1
2
Imz
2
Rez
2 1 1 2
1
2
Q2
8 practicalsem 6.nb
Solvez ^ 4 9 I, z
z . roots
rootPlot ListPlotRez, Imz . roots, PlotRange 2.1, 2.1, 2.1, 2.1,
AxesLabel "Rez", "Imz", PlotStyle PointSize0.03
Imz
2
Rez
2 1 1 2
1
2
Imz
2
Rez
2 1 1 2
1
2
Q3
Solvez ^ 5 7 I, z
z 715 , z 1110 715 , z 1310 715 , z 1710 715 , z 1910 715
practicalsem 6.nb 9
z 715 5 715 ,
5 5 715 1
8 8 4 4
z . roots
715 , 715
5 5 715 1 5 5 715 1
5 715 , 715 5 715 ,
8 8 4 4 8 8 4 4
5 715
5 5 715 1 5 5 715 1
715 5 715 , 715
8 8 4 4 8 8 4 4
rootPlot ListPlotRez, Imz . roots, PlotRange 2.1, 2.1, 2.1, 2.1,
AxesLabel "Rez", "Imz", PlotStyle PointSize0.03
Imz
2
Rez
2 1 1 2
1
2
Imz
2
Rez
2 1 1 2
1
2
10 practicalsem 6.nb
PRACTICAL 3
Write the parametric equations and make a parametric plot for an ellipse
centered at the origin with horizontal major axis of 4 units and vertical
minor axis of 2 units.Show the effect of rotation of the ellipse by and angle
6
radians and shifting of the centre from (0,0) to (2,1) by making a
parametric plot.
Clearr, s, t;
st_ 2 Cos t Sin t;
rt_ st 6 2 I;
ParametricPlotRest, Imst, t, 0, 2 , PlotStyle Red,
PlotRange 2.1, 2.1, 1.05, 1.05, AspectRatio 1 2,
Ticks Range 2, 2, 1, Range 2, 2, 1, AxesLabel "x", "y"
Print"st", st, "for 0 t 2 .";
ParametricPlotRert, Imrt, t, 0, 2 ,
PlotStyle Blue, PlotRange 0, 4, 0.5, 2.5, AspectRatio 3 4,
Ticks Range0, 4, 1, Range0, 3, 1, AxesLabel "u", "v"
Print"rt", rt, " for 0 t 2 ."
y
1
x
2 1 1 2
1
0 u
1 2 3 4
Clearr, s, t;
st_ 2 Cost I Sint;
rt_ st I 3 1 I;
ParametricPlotRest, Imst, t, 0, 2 , PlotStyle Red,
PlotRange 2.1, 2.1, 1.05, 1.05, AspectRatio 1 2,
Ticks Range 2, 2, 1, Range 2, 2, 1, AxesLabel "x", "y"
Print"st", st, " for 0 t 2 .";
ParametricPlotRert, Imrt, t, 0, 2 ,
PlotStyle Blue, PlotRange 0, 4, 0.5, 2.5, AspectRatio 3 4,
Ticks Range0, 4, 1, Range0, 3, 1, AxesLabel "u", "v"
Print"rt", rt, " for 0 t 2 ."
y
1
x
2 1 1 2
1
0 u
1 2 3 4
PRACTICAL 4
z xIy
Solvew1 3 4 I z1 6 2 I, z1
A1 RegionPlotAbsz 1 I 1, x, 3, 3, y, 3, 3, BoundaryStyle Dashed, Axes True;
A2 RegionPlotAbsz 6 2 I 3 4 I 1 I 1,
x, 8, 8, y, 8, 8, BoundaryStyle Dashed, Axes True;
GraphicsRowA1, A2
xy
z1 10 3 w1 2 15 2 w1
1
25
14 practicalsem 6.nb
z xIy
Solvew1 2 5 I z1 8 9 I, z1
A1 RegionPlotAbsz 2 I 1, x, 3, 3, y, 3, 3, BoundaryStyle Dashed, Axes True;
A2 RegionPlotAbsz 6 2 I 3 4 I 1 I 1,
x, 8, 8, y, 8, 8, BoundaryStyle Dashed, Axes True;
GraphicsRow
A1,
A2
xy
2 5
0 0
1
2 5
3
3 2 1 0 1 2 3 5 0 5
practicalsem 6.nb 15
PRACTICAL 5
Show that the image of the right half plane Re z = x > 1 under the linear
transformation w = (-1 + i)z – 2 + 3i is the half plane v > u + 7, where u =
Re(w), etc. Plot the map.
z xIy
Solvew1 1 I z1 2 3 I, z1
A1 RegionPlotRez 1, x, 3, 3, y, 3, 3, Axes True;
A2 RegionPlotRez 2 3 I 1 I 1, x, 7, 7, y, 7, 7, Axes True;
GraphicsRowA1, A2
xy
z xIy
Solvew1 2 I z1 2 4 I, z1
A1 RegionPlotRez 1, x, 5, 5, y, 5, 5, Axes True;
A2 RegionPlotRez 2 7 I 1 I 1, x, 9, 9, y, 9, 9, Axes True;
GraphicsRowA1, A2
xy
PRACTICAL 6
Show that the image of the right half plane A = {z : Re z 12 } under the
mapping w = f (z) = 1
z
is the closed disk D1 1= {w : |w - 1| 1} in the w-
plane.
z xIy
Solvew1 1 z1, z1
A1 RegionPlotRez 1 2, x, 3, 3, y, 3, 3;
A2 RegionPlotRe1 z 1 2, x, 3, 3, y, 3, 3;
GraphicsRowA1, A2
xy
z1
1
w1
18 practicalsem 6.nb
z xIy
Solvew1 3 2 z1, z1
A1 RegionPlotRez 1 2, x, 3, 3, y, 3, 3;
A2 RegionPlotRe1 z 1 2, x, 3, 3, y, 3, 3;
GraphicsRowA1, A2
xy
z1
2 w1
3
practicalsem 6.nb 19
PRACTICAL 7
Make a plot of the vertical lines x = a, for a = -1, -1/2,1/2,1 and the
horizontal lines y = b, for b = -1, -1/2,1/2,1 . Find the plot of this grid under
the mapping w = f (z) = 1z .
z xIy
A1 ContourPlotAbsz 1 2 1 2, Absz 1 2 1 2,
Absz 1 4 1 4, Absz 1 4 1 4, Absz I 2 1 2, Absz I 2 1 2,
Absz I 4 1 4, Absz I 4 1 4, x, 1, 1, y, 1, 1, Axes True;
A2 ContourPlotAbs1 z 1 2 1 2, Abs1 z 1 2 1 2,
Abs1 z 1 4 1 4, Abs1 z 1 4 1 4,
Abs1 z I 2 1 2, Abs1 z I 2 1 2, Abs1 z I 4 1 4,
Abs1 z I 4 1 4, x, 3, 3, y, 3, 3, Axes True;
GraphicsRowA1, A2
xy
1.0 3
2
0.5
1
0.0 0
1
0.5
2
1.0 3
1.0 0.5 0.0 0.5 1.0 3 2 1 0 1 2 3
20 practicalsem 6.nb
z xIy
A1 ContourPlotAbsz 1 2 1 2, Absz 1 2 1 2,
Absz 1 4 1 4, Absz 1 4 1 4, Absz I 2 1 2, Absz I 2 1 2,
Absz I 4 1 4, Absz I 4 1 4, x, 1, 1, y, 1, 1, Axes True;
A2 ContourPlotAbs1 z 1 2 1 2, Abs1 z 1 2 1 2,
Abs1 z 1 4 1 4, Abs1 z 1 4 1 4,
Abs1 z I 2 1 2, Abs1 z I 2 1 2, Abs1 z I 4 1 4,
Abs1 z I 4 1 4, x, 3, 3, y, 3, 3, Axes True;
GraphicsRowA1, A2
xy
1.0 3
2
0.5
1
0.0 0
1
0.5
2
1.0 3
1.0 0.5 0.0 0.5 1.0 3 2 1 0 1 2 3
practicalsem 6.nb 21
PRACTICAL 8
C1 1, 1 t;
C2 1 2 t, t;
C3 1 2 t, 1 2 t
ParametricPlotC1, C2, C3, t, 0, 1, PlotLabel "C1", "C2", "C3", AxesLabel x, y
1 2 t, 1 2 t
1.0
0.5
x
1 1 2 3
0.5
1.0
Q
C1 1, 1 t;
C2 1 3 t, t;
C3 1 3 t, 1 2 t
ParametricPlotC1, C2, C3, t, 0, 1, PlotLabel "C1", "C2", "C3", AxesLabel x, y
1 3 t, 1 2 t
2.5
2.0
1.5
1.0
0.5
x
2 1 1 2 3 4
22 practicalsem 6.nb
PRACTICAL 9
i
Plot the line segment ‘L’ joining the point A = 0 to B = 2 + and give an
exact calculation of Lez z.
4
ParametricPlot2 t, Pi 4 t, t, 0, 1, AxesLabel x, y, PlotLabel "L"
L
y
0.8
0.6
0.4
0.2
x
0.5 1.0 1.5 2.0
z xIy
xy
fz_ : Expz
gt_ : 2 4 t
fgt g 't t
1
0
1 2 4
Q
ParametricPlot3 t, Pi 2 t, t, 0, 1, AxesLabel x, y, PlotLabel "L"
L
y
1.5
1.0
0.5
x
0.5 1.0 1.5 2.0 2.5 3.0
practicalsem 6.nb 23
fz_ : Expz
gt_ : 3 2 t
fgt g 't t
1
0
3
1 2
24 practicalsem 6.nb
PRACTICAL 10
C
1.0
0.8
0.6
0.4
0.2
fz_ : 1 z 2
gt_ : 2 t
fgt g 't t
Q
ParametricPlot3 Cost, Sint, t, 0, Pi, PlotLabel "C"
C
1.0
0.8
0.6
0.4
0.2
fz_ : 1 z 3
gt_ : 3 t
fgt g 't t
practicalsem 6.nb 25
PRACTICAL 11
z t z1 1 t z2
C1 ParametricPlot2 t 1, t, t, 1, 1, PlotLabel "C1";
C2 ParametricPlott ^ 2 2 t, t, t, 1, 1, PlotLabel "C2";
GraphicsRowC1, C2
t z1 1 t z2
C1 C2
1.0 1.0
0.5 0.5
1 1 2 3 1 1 2 3
0.5 0.5
1.0 1.0
ClearAll;
fz_ : z
gt_ : 2 t 1 I t
ht_ : t ^ 2 2 t I t
fgt g 't t
1
1
fht h 't t
1
1
42
42
Q
z t z1 1 t z2
C1 ParametricPlot3 t 1, t, t, 1, 1, PlotLabel "C1";
C2 ParametricPlott ^ 3 2 t, t, t, 1, 1, PlotLabel "C2";
GraphicsRowC1, C2
t z1 1 t z2
C1 C2
1.0 1.0
0.5 0.5
2 1 1 2 3 4 3 2 1 1 2 3
1.0 1.0
Q
26 practicalsem 6.nb
z t z1 1 t z2
C1 ParametricPlott 1, t, t, 1, 1, PlotLabel "C1";
C2 ParametricPlott ^ 2 4 t, t, t, 1, 1, PlotLabel "C2";
GraphicsRowC1, C2
t z1 1 t z2
C1
1.0
C2
0.5 1.0
0.5
0.5 1.0 1.5 2.0 2 0.5 2 4
0.5 1.0
1.0
practicalsem 6.nb 27
PRACTICAL 12
1
fz_ :
1z2
gt_ : 2 I t;
0
ComplexExpandval
NAbsComplexExpandval
N1 2 Sqrt5
ShowGraphicsPurple, Arrow2, 0, 2, 1,
Red, Arrow2, 1, 0, 1, Green, Arrow2, 0, 0, 1, Blue,
Arrow2, 1 2, 0, 1, Magenta, Arrow2, 1 2, 0, 1, Axes True
3 Log2 Log8
ArcTan2
8 2 4
0.187249
1.11803
1.0
0.5
0.5
1.0
28 practicalsem 6.nb
PRACTICAL 13
Show thatc 1
z,where z12 is the principal branch of the square root
2 z12
function and C is the line segment joining 4 to 8 + 6i. Also plot the path of
integration.
1
fz_ :
2 z12
gt_ : 4 4 6 I t;
fgt g 't t
1
C
y
6
x
2 4 6 8
practicalsem 6.nb 29
PRACTICAL 14
fz_ : 3 2 z z ^ 2;
L1 Seriesfz, z, 2, 10
L2 Seriesfz, z, 2, 4
L3 Seriesfz, z, 1, 12
1 1 2 3 4 5 6
30 practicalsem 6.nb
4 6 8 10
1
2
3
4
3.5
3.0
2.5
2.0
1.5
PRACTICAL 15
1
Locate the poles of f(z)= 5 z426 z2 5
and specify their orders.
ClearAll
ClearAll
1
fz_ ;
5 z4 26 z2 5
TransferFunctionPolesTransferFunctionModelfz, z
5
, , 5 ,
5 5
N 1 Sqrt5
0.447214
N Sqrt5
2.23607
gz_ TransferFunctionModelfz, z
1
5 26 z2 5 z4
PRACTICAL 16
cot z
Locate the zeros and poles of g(z) and determine their order.
z2
Also justify that Res(g, 0) = -3/3.
Clearg;
Cos z
gz_ ;
z2 Sin z
FullSimplifygz
Cot z
z2
Solve Cos z 0, z
2 C 1
z ConditionalExpression , C 1 ,
2
2 C 1
z ConditionalExpression , C 1
2
TransferFunctionModelgz, z
, z
Cot z
TransferFunctionModel
z2
For poles
Reducez2 Sin z 0, z
1 z 3 z3 2 5 z5 7 z7 2 9 z9
z 3 45 945 4725 93 555
z2
2
3
practicalsem 6.nb 33
PRACTICAL 17
Evaluate c 0 exp2 z z, where C1 (0) denotes the circle: {z: |z|=1} with
positive orientation. Similarly evaluate c 0 4 31 2 z.
1
3 z z 2 z
ClearAll;
jz_ NormalSeriesExpz, z, 0, 10;
kz_ j
2
z
4 4 2 8 4 4 2 4 2 2
1
10 9 8 7 6 5 4 3 2 z
14 175 z 2835 z 315 z 315 z 45 z 15 z 3z 3z z
, z, 0, 10
1
Mz_ NormalSeries
z4 z3 2 z 2
3 1 1 5z 11 z2 21 z3 43 z4 85 z5 171 z6 341 z7 683 z8 1365 z9 2731 z10
8 2 z2 4z 16 32 64 128 256 512 1024 2048 4096 8192
1
tz_
z4 z3 2 z2
1
2 z 2 z3 z4
TransferFunctionPolesTransferFunctionModeltz, z
, z
1
TransferFunctionPolesTransferFunctionModel
2 z z3 z4
2
1
12
1
4
1
3
Integration is 2 Pi I 12 3
1 1 1
4
34 practicalsem 6.nb
Q
ClearAll;
jz_ NormalSeriesExpz, z, 0, 10;
kz_ j
6
z
2916 972 1458 1944 324 324 54 36 18 6
1
10 9 8 7 6 5 4 3 2 z
175 z 35 z 35 z 35 z 5z 5z z z z
, z, 0, 10
1
Mz_ NormalSeries
z z 4 z2
4 3
3 1 1 7z 5 z2 33 z3 13 z4
64 4 z2 16 z 256 1024 4096 16 384
119 z5 171 z6 305 z7 989 z8 231 z9 4187 z10
65 536 262 144 1 048 576 4 194 304 16 777 216 67 108 864
1
tz_
z z 4 z2
4 3
1
4 z z3 z4
2
1
16