Passo 1

p1 = Plot[x Sin[x] - 1, {x, -2.5, 2.5}]

Output

-Graphics-

Passo 2

p2 = Plot[Evaluate[D[x Sin[x] - 1, x]], {x, -2.5, 2.5}, PlotStyle -> Red]

Output

-Graphics-

Passo 3

p3 = Plot[Sin[x], {x, -2.5, 2.5}, PlotStyle -> Magenta]

Output

-Graphics-

Passo 4

p4 = Graphics[{Magenta, Polygon[{{0.4, 0}, {0, 0.5}, {-0.4, 0}}]}]

Output

-Graphics-

Passo 5

Show[p1, p2, p3, p4]

Output

-Graphics-

Passo 6

Show[p1, p2, p3, p4, PlotRange -> All]

Output

-Graphics-

Passo 7

GraphicsRow[{p1, p2, p3, p4}]

Output

-Graphics-

Passo 8

GraphicsGrid[{{p1, p2}, {p3, p4}}]

Output

-Graphics-

Passo 9

GraphicsColumn[{p1, p2, p3, p4}]

Output

-Graphics-

Passo 10

Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Epilog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]

Output

-Graphics-

Passo 11

Graphics[{StandardGray, Thick, Line[{{1, 1}, {2, 1}}]}, Prolog -> {Magenta, PointSize[0.2], Point[{{1.5, 1}}]}]

Output

-Graphics-

Passo 12

sp = Graphics3D[Sphere[{0, 0, 0}, 0.8], Boxed -> False]

Output

-Graphics3D-

Passo 13

pp3 = ParametricPlot3D[{(2 + Cos[v])Cos[u], (2 + Cos[v])Sin[u], Sin[v]}, {u, 0, 2Pi}, {v, 0, 2Pi}, Axes -> None, Boxed -> False]

Output

-Graphics3D-

Passo 14

Show[sp, pp3]

Output

-Graphics3D-

Passo 15

watermark = Style["Done", 36, Bold, Opacity[.6]]

Output

Done

Passo 16

SphericalPlot3D[ϕ, {θ, 0, Pi}, {ϕ, 0, 3Pi}, Boxed -> False, Axes -> None, Epilog -> Inset[watermark, Automatic, Automatic, Automatic, {1, 1}]]

Output

-Graphics3D-

Funzioni usate

Combine two or more graphics