Question: complex roots of polynomial; How to Assign complex roots to variable ,and how to separate out Imaginary and complex parts

restart; with(LinearAlgebra); with(plots); with(SolveTools); eq1 := m1*m2*x^4+(c1*m2+c2*m1+c2*m2)*x^3+(c1*c2+k1*m2+k2*m1+k2*m2)*x^2+(c1*k2+c2*k1)*x+k1*k2

m1*m2*x^4+(c1*m2+c2*m1+c2*m2)*x^3+(c1*c2+k1*m2+k2*m1+k2*m2)*x^2+(c1*k2+c2*k1)*x+k1*k2

(1)

m1 := 2;
m2 := 4;
c1 := 1;
c2 := 0;
k1 := 3;
k2 := 2;

2

 

4

 

1

 

0

 

3

 

2

(2)

eq1

8*x^4+4*x^3+24*x^2+2*x+6

(3)

``

sol1 := evalf(solve(8*x^4+4*x^3+24*x^2+2*x+6 = 0))

-0.2293604281e-1+.5263956354*I, -.2270639572+1.627879522*I, -.2270639572-1.627879522*I, -0.2293604281e-1-.5263956354*I

(4)

assign(sol1)

Error, invalid left hand side in assignment

 

NULL

``

Download complex_numbers.mw

Please Wait...