load(to_poly_solver)$ %solve([eq1,eq2,eq3],[r1,r2,theta]); On Mon, Mar 18, 2013 at 8:04 PM, Thomas D. Dean <tomdean at speakeasy.org>wrote: > eq1:r1*theta = 6*%pi; > eq2:r2*theta = 12*%pi; > eq3:sqrt((r2-r1)^2-3^2) = sqrt(6^2-3^2); > solve([eql1, eq2, eq3],[r1,r2,theta]); >