share/simplification/absimp.dem

   1 /* There isn't any really good way to tell if a package needs to be loaded ... */
   2 if ?mget ('absimp, '?mexpr) # false
   3   then "absimp.dem: function absimp is present."
   4   else load ("absimp.mac");
   5 abs(x)^2;
   6 diff(abs(x),x);
   7 cosh(abs(x));