;; This file:
;;   http://anggtwu.net/MAXIMA/dim-2.lisp.html
;;   http://anggtwu.net/MAXIMA/dim-2.lisp
;;          (find-angg "MAXIMA/dim-2.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "MAXIMA/dim-2.lisp"))
;; diff
;; integrate
;; at
;; *.

;; (find-es "maxima" "mtimes")
;; (find-maximagitgrep "grep --color=auto -niH --null -e mtimes $(cat .files.lisp) | grep -ia bp")
;; (find-maximagitgrep "grep --color=auto -niH --null -e '\\$\\*' $(cat .files.lisp)")
;; (find-maximagitfile "src/displa.lisp" "(displa-def mtimes dimension-nary")
;; (find-es "maxima" "seq-infix")
;; (find-es "maxima" "gf")


;; (find-maximagitfile "src/grind.lisp" "(defprop mtimes 120. lbp)")
;; (find-maximagitfile "src/nparse.lisp" "(def-lbp" "|$*| 120.)")
;; (find-es "maxima" "supernouns")

(defun my-copy-properties (tosymbol fromsymbol keys)
  (loop for key in keys
	do (setf (get tosymbol key) (get fromsymbol key))))

(my-copy-properties '$diff_      '%derivative '(dimension tex))
(my-copy-properties '$integrate_ '%integrate  '(dimension tex))

($infix "*." 120 120)
($nary  "*.")
(my-copy-properties '|$*.| 'mtimes
		    '($nary lbp rbp
		      dimension dissym
		      tex texsym))







#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("dim-2.lisp");
o1 : 'integrate(1,x);
o2 : integrate_(1,x);
o3 : 'diff(1,x);
o4 : diff_(1,x);
o5 : a *  b *  c;
o6 : a *. b *. c;
tex1('integrate(f(x),x));
tex1(integrate_(f(x),x));
tex1('diff(f(x),x));
tex1(diff_(f(x),x));     "bad"$
tex1(o5);
tex1(o6);

RC : diff_(f(g(x)),x) = fp(g(x)) *. gp(x);

|#






;; Local Variables:
;; coding:  utf-8-unix
;; End: