/* probs.
Test problems for Cardan Method
Alan Bundy 13.5.81 */

test1(Imp,Aux) :-
	gensym(cubic,Name),
	form_eqn(Name, [p,q], (p+q)^3 + h*(p+q) + g = 0, Imp, Aux).

test2(Ans) :-
	solve(z^3 + h*z + g = 0, z, Ans).
