share/contrib/smath/smath.mac

   1 /* -*- Mode: maxima; Package: MAXIMA -*- */
   2 /*
   3 ;; Copyright Leo Butler (leo.butler@member.fsf.org) 2013
   4 ;; Released under the terms of GPLv2
   5 */
   6
   7 load("smath.lisp")$
   8
   9 /*
  10 o = set of operands
  11 in_or_out=true  -> test if op is in o
  12 in_or_out=false -> test if op is not o
  13 */
  14 sm_check_for_ops(o,in_or_out) ::= buildq([o:if atom(o) then {o} else o, in_or_out:in_or_out],
  15   lambda([e],
  16     is(numberp(e) and e<0 and e#-1) or is(not(atom(e)) and member(op(e),o)=in_or_out)));
  17
  18 /*
  19 sm_brace_in_exponent -> put a brace around all exponents
  20 */
  21 apply(matchdeclare,[[sm_x],true,sm_y,sm_check_for_ops({set},false)]);
  22 defrule(sm_brace_in_exponent,sm_x^sm_y,sm_x^{sm_y});
  23 sm_rules:['sm_brace_in_exponent];
  24
  25 /* end of smath.mac */