Support TMath::Sq() function

Used with "pol2" fitting

Author: linev

modules/base/math.mjs

@@ -1593,6 +1593,12 @@ function Prob(chi2, ndf) {
    return chisquared_cdf_c(chi2,ndf,0);
 }
 
+/** @summary Square function
+  * @memberof Math */
+function Sq(x) {
+   return x * x;
+}
+
 /** @summary Gaus function
   * @memberof Math */
 function Gaus(x, mean, sigma, norm) {
@@ -2050,7 +2056,7 @@ export { gamma, gamma as tgamma, gamma as Gamma,
    tdistribution_cdf_c, tdistribution_cdf, tdistribution_pdf, exponential_cdf_c, exponential_cdf, chisquared_pdf,
    Beta, GammaDist, LaplaceDist, LaplaceDistI, LogNormal, Student, StudentI,
    gaus, gausn, gausxy, expo,
-   Prob, Gaus, BreitWigner, BetaDist, BetaDistI, landau, landaun,
+   Prob, Sq, Gaus, BreitWigner, BetaDist, BetaDistI, landau, landaun,
 
    ChebyshevN, Chebyshev0, Chebyshev1, Chebyshev2, Chebyshev3, Chebyshev4,
    Chebyshev5, Chebyshev6, Chebyshev7, Chebyshev8, Chebyshev9, Chebyshev10,