PRACTICAL 1 :

Plotting Of a Function
Plot[{x, - 3 x, 5 x}, {x, 0, 10}]

40

20

2 4 6 8 10

-20

Plot[{x, - 3 x, 5 x}, {x, - 50, 100}]

400

200

-40 -20 20 40 60 80 100

-200

Plot[{x, 5 x, 10 x}, {x, - 100, 100}, PlotLegends → LineLegend["Expressions"]]

1000

500

x
5x
-100 -50 50 100
10 x

-500

-1000
2 rkm1.nb

Plot[{Sin[x], Cos[x]}, {x, - Pi, Pi}, PlotLegends → "Expressions"]

1.0

0.5

sin(x)
-3 -2 -1 1 2 3 cos(x)

-0.5

-1.0

Plot[{Cot[x], Tan[x]}, {x, - 2 Pi, 2 Pi}, PlotLegends → "Expressions"]

cot(x)
-6 -4 -2 2 4 6 tan(x)
-2

-4

-6

Plot[{Log[x], Exp[x]}, {x, 0, 5}, PlotLegends → "Expressions"]

60

40

log(x)
20 exp(x)

1 2 3 4 5

-20
 rkm1.nb 3

Plot[{Sin[x], Cos[x]}, {x, - Pi, Pi}, PlotLegends → "Expressions", AxesLabel → Automatic]

1.0

0.5

sin(x)
x
-3 -2 -1 1 2 3 cos(x)

-0.5

-1.0

Plot[Floor[x], {x, - 5, 5}]

-4 -2 2 4

-2

-4

Plot[Ceiling[x], {x, - 5, 5}]

-4 -2 2 4

-2

-4
4 rkm1.nb

Plot[Sqrt[3 x + 2], {x, - 1, 10}]

2 4 6 8 10

Plot[Sqrt[x], {x, - 5, 5}]

2.0

1.5

1.0

0.5

-4 -2 2 4

Plot[{Sqrt[3 x + 2], Sqrt[x]}, {x, - 10, 10},

3
3x +2

x
2

x
-10 -5 5 10
 rkm1.nb 5

Plot[Abs[x], {x, - 10, 10}]

10

-10 -5 5 10

Plot[Abs[x ^ 2 + 2 x + 5], {x, - 10, 10}]

120

100

80

60

40

20

-10 -5 5 10

Plot[Abs[4 x + 7], {x, - 5, 10}]

40

30

20

10

-4 -2 2 4 6 8 10
6 rkm1.nb

Plot[Abs[4 x + 7] + 5, {x, - 5, 10}]

50

40

30

20

10

-4 -2 2 4 6 8 10

Plot[{Abs[2 x + 4], Abs[5 x], Abs[3 x - 1] - 5, Sqrt[4 x]},

50

40

2 x + 4
30
5 x
20 3 x - 1 - 5

4x
10

-10 -5 5 10

Plot[x ^ 3, {x, - 10, 10}]

1000

500

-10 -5 5 10

-500

-1000
 rkm1.nb 7

Plot[x ^ 4, {x, - 5, 5}]

600

500

400

300

200

100

-4 -2 2 4

Plot[{x ^ 2, x ^ 3, x ^ 4, x ^ 5}, {x, - 5, 5}, PlotLegends -> "Expressions"]

200

150

100 x2

50
x3
x4
2 4
-4 -2
x5
-50

-100

-150