Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- a2 = 0;
- a1 = 1;
- a0 = 1;
- NSolve[z^3 + a2 z^2 + a1 z + a0 == 0, z]
- q = 1/3 a1 - 1/9 a2^2;
- r = 1/6 (a1 a2 - 3 a0) - 1/27 a2^3;
- s1 = (r + (q^3 + r^2)^(1/2))^(1/3);
- s2 = (r - (q^3 + r^2)^(1/2))^(1/3);
- z1 = (s1 + s2) - a2/3 // N
- z2 = -1/2 (s1 + s2) - a2/3 + I Sqrt[3]/2 (s1 - s2) // N
- z3 = -1/2 (s1 + s2) - a2/3 - I Sqrt[3]/2 (s1 - s2) // N
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement