Стр.71/ Пример 1 / г)

Solve[(z^2)+z+1.==0]

Solve[(z^2)+z+1==0]

Solve[(z^2)+z+1==0,z,Complexes]

Намиране на алгебрична форма на комплексните числа

%//N

Проверка за реални корени

Solve[(z^2)+z+1==0,z,Reals]

Намиране на r

(Sqrt[(0.5^2)+(0.866025^2)])

((Sqrt[3])/2.)

Намиране на ϑ

ArcCos[-1/2]

Пример 1 от дъската

Solve[(z^3)-(z^2)+z-1==0]

Проверка за общото решение

y[n_]:=C1 + C2 Cos[n*(Pi/2)]+ C3 Sin[n*(Pi/2)]
y[n+3]-y[n+2]+y[n+1]-y[n]==0//Simplify

Пример 2 от дъската

Solve[(z^3)-(11/6)*(z^2)+z-(1/6)==0]

Проверка за общото решение

y[n_]:=C1*((((1/3)))^n)+ C2 *((((1/2)))^n)+ C3 
y[n+1]-(11/6)*y[n]+y[n-1]-(1/6)*y[n-2]==0//Simplify

Намиране на константите C1,C2,C3

A=(({{1, 1, 1}, {1/3, 1/2, 1}, {1/9, 1/4, 1}})); b = {0,1,2};
LinearSolve[A,b]