0% found this document useful (0 votes)
2 views4 pages

Complex Practical PDF

The document contains a series of Mathematica programs focused on operations with complex numbers, including defining complex numbers, computing their sum, difference, product, and quotient, as well as extracting their real and imaginary parts. It also includes programs for calculating the conjugate, modulus, argument, and converting between rectangular and polar forms, along with plotting on an Argand plane and computing integrals along specified paths. Each program is presented with corresponding code snippets for implementation.

Uploaded by

tafazulhaque18
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd
0% found this document useful (0 votes)
2 views4 pages

Complex Practical PDF

The document contains a series of Mathematica programs focused on operations with complex numbers, including defining complex numbers, computing their sum, difference, product, and quotient, as well as extracting their real and imaginary parts. It also includes programs for calculating the conjugate, modulus, argument, and converting between rectangular and polar forms, along with plotting on an Argand plane and computing integrals along specified paths. Each program is presented with corresponding code snippets for implementation.

Uploaded by

tafazulhaque18
Copyright
© All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as PDF, TXT or read online on Scribd

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}]

You might also like