CONTENTS
Page
Sl. No. Topic
No.
Mathematica program to define two complex numbers 𝑧 = 3 + 4𝑖
1 1
and 𝑧 = 4 − 7𝑖
Codes to compute sum, difference, product and quotient of
2 1
complex numbers
Program to extract the real and imaginary parts of a complex
3 1
number
4 Program to compute the conjugate of a given complex number 1
Program to compute the modulus and argument of a complex
5 1
number
Program to convert a complex number from rectangular form to
6 2
polar form
Program to convert a complex number from polar form to
7 2
rectangular form
8 Program to plot a complex number on an Argand plane 2
Program to compute
9 sin(𝑧) 𝑑𝑧 2
where 𝐶 is a straight line from −1 + 𝑖 to 2 − 𝑖
Program to compute
10 (𝑧 − 2𝑧 + 1)𝑑𝑧 2
where 𝐶 is given by 𝑥 = 𝑦 + 1, −2 ≤ 𝑦 ≤ 2
Program to compute
(𝑧 + 2𝑧 + 1)𝑑𝑧
11 3
where 𝐶 is the unit circle parameterized by 𝑥 = cos(𝑡) , 𝑦 =
sin(𝑡) , 0 ≤ 𝑡 ≤ 2𝜋
1) Write a Mathematica program to define two complex numbers 𝑧 = 3 + 4𝑖 and
𝑧 = 4 − 7𝑖 and display them.
z1 = 3 + 4I;
z2 = 4 - 7I;
{z1, z2}
2) If 𝑧 = 3 + 4𝑖 and 𝑧 = 4 − 7𝑖 , then write a program to compute:
a) 𝑧 + 𝑧
b) 𝑧 − 𝑧
c) 𝑧 . 𝑧
d)
z1 = 3 + 4I;
z2 = 4 - 7I;
sum = z1 + z2
diff = z1 – z2
prod = z1 * z2
quot = z1 / z2
3) Write a Mathematica program to extract the real and imaginary parts of a
complex number.
z = 5 - 3I;
Re[z]
Im[z]
4) Write a program to compute the conjugate of a given complex number.
z = 5 - 3I;
Conjugate[z]
5) Write a program to compute the modulus and argument of a complex number.
z = 3 + 4I;
Abs[z]
Arg[z]
6) Write a program to convert a complex number from rectangular form to polar
form.
z = 3 + 4I;
{Abs[z], Arg[z]}
7) Write a program to convert a complex number from polar form to rectangular
form.
r = 5;
theta = Pi/4;
z = r Exp[I theta]
8) Write a Mathematica program to plot a complex number on an Argand plane.
z = 3 + 4I;
ListPlot[{{Re[z], Im[z]}}, AxesLabel -> {“Re”, “Im”}]
9) Write a Mathematica program to compute
sin(𝑧) 𝑑𝑧
where 𝐶 is a straight line from −1 + 𝑖 to 2 − 𝑖.
z[t_] := (-1+I) + t((2-I) – (-1+I));
integral = Integrate[Sin[z[t]] z’[t], {t, 0, 1}]
10) Write a Mathematica program to compute
(𝑧 − 2𝑧 + 1)𝑑𝑧
where 𝐶 is given by 𝑥 = 𝑦 + 1, −2 ≤ 𝑦 ≤ 2.
x[y_] := y^2 + 1;
z[y_] := x + Iy;
Integrate[z[y]^2 – 2z[y] + 1) D[z[y], y], {y, -2, 2}]
11) Write a Mathematica program to compute
(𝑧 + 2𝑧 + 1)𝑑𝑧
where 𝐶 is the unit circle parameterized by 𝑥 = cos(𝑡) , 𝑦 = sin(𝑡) , 0 ≤ 𝑡 ≤ 2𝜋
z[t_] := Exp[I t];
Integrate[z[t]^3 + 2 z[t]^2 + 1) z’[t], {t, 0, 2 Pi}]