3 |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
;; Copyright (C) 1990, 1991, 1992, 1993, 2001 Free Software Foundation, Inc. |
4 |
|
|
5 |
;; Author: David Gillespie <daveg@synaptics.com> |
;; Author: David Gillespie <daveg@synaptics.com> |
6 |
;; Maintainers: D. Goel <deego@gnufans.org> |
;; Maintainer: Jay Belanger <belanger@truman.edu> |
|
;; Colin Walters <walters@debian.org> |
|
7 |
|
|
8 |
;; This file is part of GNU Emacs. |
;; This file is part of GNU Emacs. |
9 |
|
|
27 |
;;; Code: |
;;; Code: |
28 |
|
|
29 |
;; This file is autoloaded from calc-ext.el. |
;; This file is autoloaded from calc-ext.el. |
|
(require 'calc-ext) |
|
30 |
|
|
31 |
|
(require 'calc-ext) |
32 |
(require 'calc-macs) |
(require 'calc-macs) |
33 |
|
|
|
(defun calc-Need-calc-stat () nil) |
|
|
|
|
|
|
|
34 |
;;; Statistical operations on vectors. |
;;; Statistical operations on vectors. |
35 |
|
|
36 |
(defun calc-vector-count (arg) |
(defun calc-vector-count (arg) |
582 |
(math-div (math-mul suminvsqrwts (1- len)) len)) |
(math-div (math-mul suminvsqrwts (1- len)) len)) |
583 |
(if pop len (1- len))))))))) |
(if pop len (1- len))))))))) |
584 |
|
|
585 |
|
(provide 'calc-stat) |
586 |
|
|
587 |
;;; arch-tag: 423858e9-8513-489c-9f35-710cd9d9c307 |
;;; arch-tag: 423858e9-8513-489c-9f35-710cd9d9c307 |
588 |
;;; calc-stat.el ends here |
;;; calc-stat.el ends here |