Function: math-rwcomp-count-pnots

math-rwcomp-count-pnots is a byte-compiled function defined in calc-rewr.el.gz.

Signature

(math-rwcomp-count-pnots EXPR)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-rewr.el.gz
(defun math-rwcomp-count-pnots (expr)
  (if (Math-primp expr)
      0
    (if (eq (car expr) 'calcFunc-pnot)
	100
      (let ((count 0))
	(while (setq expr (cdr expr))
	  (setq count (+ count (math-rwcomp-count-pnots (car expr)))))
	count))))