Function: math-make-sdev

math-make-sdev is an autoloaded and byte-compiled function defined in calc-forms.el.gz.

Signature

(math-make-sdev X SIGMA)

Source Code

;; Defined in /usr/src/emacs/lisp/calc/calc-forms.el.gz
;;;; Error forms.

;;; Build a standard deviation form.  [X X X]
(defun math-make-sdev (x sigma)
  (if (memq (car-safe x) '(date mod sdev intv vec))
      (math-reject-arg x 'realp))
  (if (memq (car-safe sigma) '(date mod sdev intv vec))
      (math-reject-arg sigma 'realp))
  (if (or (Math-negp sigma) (memq (car-safe sigma) '(cplx polar)))
      (setq sigma (math-abs sigma)))
  (if (and (Math-zerop sigma) (Math-scalarp x))
      x
    (list 'sdev x sigma)))