RealCubicRoots
RealCubicRoots is an external procedure that returns either one or three real value(s) of z that the cubic equation: z^3+a_2*z^2+a_1*z+a_0=0.
If there is only 1 real root, it will appear in z_1, with z_2 and z_3=0. The imaginary roots are not determined.}
Example:
{Solve for roots of z^3-4*z^2-3*z+6=0}
$Arrays off
a_2=-4
a_1=-3
a_0=6
Call realcubicroots(a_2,a_1,a_0: z[1..3])
{Solution:
z[1]=4.372
z[2]=-1.372
z[3]=1
}