Guida pratica 20 passi, eseguiti in ordine in una sola sessione. Ogni passo è stato eseguito sul motore e l'output qui sotto è ciò che ha prodotto.

Passo 1

s = Solve[x + 3 == 5, x]

Output

{{x -> 2}}

Passo 2

s[[1]]

Output

{x -> 2}

Passo 3

x + 4 /. s[[1]]

Output

Passo 4

t = Solve[x ^ 2 == 9, x]

Output

{{x -> -3}, {x -> 3}}

Passo 5

x + 4 /. t[[2]]

Output

Passo 6

eqns = {x + 3 == 4, y - 5 == 2, 3z == 4}

Output

{3 + x == 4, -5 + y == 2, 3*z == 4}

Passo 7

u = Solve[eqns, {x, y, z}]

Output

{{x -> 1, y -> 7, z -> 4/3}}

Passo 8

u[[1]]

Output

{x -> 1, y -> 7, z -> 4/3}

Passo 9

x + y + z /. u[[1]]

Output

28/3

Passo 10

u[[1, 1]]

Output

x -> 1

Passo 11

x + y + z /. u[[1, 1]]

Output

1 + y + z

Passo 12

x + y + z /. {u[[1, 2]], u[[1, 3]]}

Output

25/3 + x

Passo 13

v = Solve[{x ^ 2 + y ^ 2 + z ^ 2 == 9, y == x, y == z}, {x, y, z}]

Output

{{x -> Sqrt[3], y -> Sqrt[3], z -> Sqrt[3]}}

Passo 14

x + y + z /. v

Output

{3*Sqrt[3]}

Passo 15

eqn = x ^ 2 + 2a x + 1 == 0;

Nessun output - questo passo prepara qualcosa per il successivo.

Passo 16

sol = Solve[eqn, x]

Output

{{x -> (-2*a - 2*Sqrt[-1 + a^2])/2}, {x -> (-2*a + 2*Sqrt[-1 + a^2])/2}}

Passo 17

sub = eqn /. sol

Output

{1 + (-2*a - 2*Sqrt[-1 + a^2])^2/4 + a*(-2*a - 2*Sqrt[-1 + a^2]) == 0, 1 + (-2*a + 2*Sqrt[-1 + a^2])^2/4 + a*(-2*a + 2*Sqrt[-1 + a^2]) == 0}

Passo 18

Simplify[sub]

Output

{True, True}

Passo 19

Plot[x /. sol, {a, -5, 5}]

Output

-Graphics-

Passo 20

Plot[x /. sol[[1]], {a, -5, 5}]

Output

-Graphics-

Use rule solutions

Funzioni usate