diff options
Diffstat (limited to 'src/GeneralizedPolynomial-Uniform/interpolate.maple')
-rw-r--r-- | src/GeneralizedPolynomial-Uniform/interpolate.maple | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/src/GeneralizedPolynomial-Uniform/interpolate.maple b/src/GeneralizedPolynomial-Uniform/interpolate.maple index 58a2c97..71280fe 100644 --- a/src/GeneralizedPolynomial-Uniform/interpolate.maple +++ b/src/GeneralizedPolynomial-Uniform/interpolate.maple @@ -208,6 +208,11 @@ deriv_eqnset := `union`(op(%)); # in terms of DATA() and DERIV() values # coeff_eqns := solve[linear](fn_eqnset union deriv_eqnset, coeff_set); +if (indets(map(rhs,%)) <> {}) + then error "no unique solution for coefficients -- %1 eqns for %2 coeffs", + nops(fn_eqnset union deriv_eqnset), + nops(coeff_set); +fi; # |