Index: trunk/MagicSoft/Mars/mdata/MDataChain.cc
===================================================================
--- trunk/MagicSoft/Mars/mdata/MDataChain.cc	(revision 1629)
+++ trunk/MagicSoft/Mars/mdata/MDataChain.cc	(revision 1661)
@@ -69,4 +69,5 @@
 //   atan(x)   arc tangent (inverse tangent) of x
 //   sqrt(x)   square root of x
+//   sqr(x)    square of x
 //   abs(x)    absolute value of x, |x|
 //   floor(x)  round down to the nearest integer (floor(9.9)=9)
@@ -225,4 +226,5 @@
     if (txt=="atan")  return kEATan;
     if (txt=="sqrt")  return kESqrt;
+    if (txt=="sqr")   return kESqr;
     if (txt=="exp")   return kEExp;
     if (txt=="pow10") return kEPow10;
@@ -468,4 +470,5 @@
     case kEATan:     return atan(val);
     case kESqrt:     return sqrt(val);
+    case kESqr:      return val*val;
     case kEExp:      return exp(val);
     case kEPow10:    return pow(10, val);
@@ -551,4 +554,5 @@
     case kEATan:     str += "atan" ; break;
     case kESqrt:     str += "sqrt" ; break;
+    case kESqr:      str += "sqr"  ; break;
     case kEExp:      str += "exp"  ; break;
     case kEPow10:    str += "pow10"; break;
Index: trunk/MagicSoft/Mars/mdata/MDataChain.h
===================================================================
--- trunk/MagicSoft/Mars/mdata/MDataChain.h	(revision 1629)
+++ trunk/MagicSoft/Mars/mdata/MDataChain.h	(revision 1661)
@@ -34,4 +34,5 @@
         kEATan,
         kESqrt,
+        kESqr,
         kEPow10,
         kEExp,