Step 1

eq = x ^ 2

Output

x^2

Step 2

Plot[eq, {x, -2, 2}]

Output

-Graphics-

Step 3

eq2 = -x ^ 2

Output

-x^2

Step 4

eq = x ^ 4 + y ^ 4 - 5 x ^ 2 * y ^ 2

Output

x^4 - 5*x^2*y^2 + y^4

Step 5

Plot3D[eq, {x, -3, 3}, {y, -3, 3}]

Output

-Graphics3D-

Step 6

eq2 = -100 - x ^ 4 - y ^ 4 + 5 x ^ 2 * y ^ 2

Output

-100 - x^4 + 5*x^2*y^2 - y^4

Step 7

Graphics[Disk[]]

Output

-Graphics-

Step 8

Row[Table[
	Graphics[{Opacity[n], Disk[]}, ImageSize -> Scaled[.1]],
	{n, 0.1, 1, 0.3}]]

Output

-Graphics--Graphics--Graphics--Graphics-

Step 9

Row[Table[
	Graphics[{Red, Opacity[n], Disk[]}, ImageSize -> Scaled[.1]],
	{n, 0.1, 1, 0.3}]]

Output

-Graphics--Graphics--Graphics--Graphics-

Step 10

Manipulate[RegionPlot[
	{x - y ≥ t, x + y ≥ s}, {x, -3 Pi, 3 Pi}, {y, -3 Pi, 3 Pi},
	PlotPoints -> 30,
	PlotStyle -> {Directive[Red], Directive[Blue, Opacity[0.5]]}
	],
	Style["Solving the system of inequalities: x-y ≥ t and x +y ≥ s", Bold, 12],
	{{s, 0}, -20, 20}, {{t, 0}, -20, 20}
	]

Output

Manipulate[RegionPlot[{x - y >= t, x + y >= s}, {x, -3*Pi, 3*Pi}, {y, -3*Pi, 3*Pi}, PlotPoints -> 30, PlotStyle -> {Directive[Red], Directive[Blue, Opacity[0.5]]}], Solving the system of inequalities: x-y ≥ t and x +y ≥ s, {{s, 0}, -20, 20}, {{t, 0}, -20, 20}]

Run this on Qurak All recipes

Functions used

Directive Disk Graphics Manipulate Opacity Plot Plot3D RegionPlot Row Scaled Style Table

Add transparency to plots

Functions used

Related recipes