;; This file:
;;   http://anggtwu.net/MAXIMA/2025-caixinhas-1.lisp.html
;;   http://anggtwu.net/MAXIMA/2025-caixinhas-1.lisp
;;          (find-angg "MAXIMA/2025-caixinhas-1.lisp")
;; Author: Eduardo Ochs <eduardoochs@gmail.com>
;;
;; (defun e () (interactive) (find-angg "MAXIMA/2025-caixinhas-1.lisp"))
;; (find-es "maxima" "dimension-ccc")

(displa-def $ca_inner dimension-nary     " : ")
(displa-def $ca_outer dimension-match "[ "   " ]")

(setf (get '$ca 'dimension) 'dimension-ca)

(defun dimension-ca (o result)
  (let* ((o2 `(($ca_outer) (($ca_inner) ,@(cdr o))))
         (o2-dimension (get (caar o2) 'dimension)))
    (funcall o2-dimension o2 result)))


#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-caixinhas-1.lisp");

     ca(10,20,30);
args(ca(10,20,30));

ca(1);

|#

(defun $get_dimension (headsymbol)
  (get headsymbol 'dimension))

(defun $setf_dimension (headsymbol dimfunction)
  (setf (get headsymbol 'dimension) dimfunction))

#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-caixinhas-1.lisp");
get_dimension('ca);

     ca(10,20,30);
setf_dimension('ca, false);
     ca(10,20,30);
setf_dimension('ca, ?dimension\-ca);
     ca(10,20,30);

|#


(displa-def $aaa dimension-nary     " : "     40 40)
(displa-def $bbb dimension-infix    " . "     30 30)
(displa-def $ccc dimension-match "[ "   " ]"  20 20)

#|
* (eepitch-maxima)
* (eepitch-kill)
* (eepitch-maxima)
load("2025-caixinhas-1.lisp");

ccc(bbb(aaa(10,20,30), aaa(40,50)));

p : 20*x^2 + 30*x + 40;
makelist(ratcoef(p,x,k),k,[2,1,0]);

)
coef_list(p,ks)



|#





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