EquationSymbolicSolve[List[Equal[Sum[Product[a,Exponent[15,2]],Product[b,15]],8.5],Equal[Sum[Product[a,Exponent[9,2]],Product[b,9]],7.2]]]Solution[{a,ExpressionSetPoint[-7/180,False,ReservedReal],-0.0388888888889},{b,ExpressionSetPoint[23/20,False,ReservedReal],1.15}]