HCoop / bpt / emacs.git / blame
? search:
summary | shortlog | log | commit | commitdiff | tree
blob | blame (incremental) | history | HEAD
* erc-stamp.el (erc-echo-timestamp):
[bpt/emacs.git] / lisp / calc / calc-ext.el
CommitLineData
3132f345
CW		 1;;; calc-ext.el --- various extension functions for Calc
2
58ba2f8f 3;; Copyright (C) 1990, 1991, 1992, 1993, 2001, 2002, 2003, 2004,
f0fa15c5 4;; 2005, 2006, 2007 Free Software Foundation, Inc.
3132f345
CW		 5
6;; Author: David Gillespie <daveg@synaptics.com>
e8fff8ed 7;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
136211a9
EZ		 8
9;; This file is part of GNU Emacs.
10
7c671b23
GM		 11;; GNU Emacs is free software; you can redistribute it and/or modify
12;; it under the terms of the GNU General Public License as published by
075969b4 13;; the Free Software Foundation; either version 3, or (at your option)
7c671b23
GM		 14;; any later version.
15
136211a9 16;; GNU Emacs is distributed in the hope that it will be useful,
7c671b23
GM		 17;; but WITHOUT ANY WARRANTY; without even the implied warranty of
18;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19;; GNU General Public License for more details.
20
21;; You should have received a copy of the GNU General Public License
22;; along with GNU Emacs; see the file COPYING. If not, write to the
23;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
24;; Boston, MA 02110-1301, USA.
136211a9 25
3132f345 26;;; Commentary:
136211a9 27
3132f345 28;;; Code:
136211a9 29
8391faa1 30(require 'calc)
136211a9
EZ		 31(require 'calc-macs)
32
ded4d419
JB		 33;; Declare functions which are defined elsewhere.
34(declare-function math-clip "calc-bin" (a &optional w))
35(declare-function math-round "calc-arith" (a &optional prec))
36(declare-function math-simplify "calc-alg" (top-expr))
37(declare-function math-simplify-extended "calc-alg" (a))
38(declare-function math-simplify-units "calc-units" (a))
39(declare-function calc-set-language "calc-lang" (lang &optional option no-refresh))
40(declare-function calc-flush-caches "calc-stuff" (&optional inhibit-msg))
41(declare-function calc-save-modes "calc-mode" ())
42(declare-function calc-embedded-modes-change "calc-embed" (vars))
43(declare-function calc-embedded-var-change "calc-embed" (var &optional buf))
44(declare-function math-mul-float "calc-arith" (a b))
45(declare-function math-arctan-raw "calc-math" (x))
58dddf38 46(declare-function math-sqrt-raw "calc-math" (a &optional guess))
ded4d419
JB		 47(declare-function math-sqrt-float "calc-math" (a &optional guess))
48(declare-function math-exp-minus-1-raw "calc-math" (x))
49(declare-function math-normalize-polar "calc-cplx" (a))
50(declare-function math-normalize-hms "calc-forms" (a))
51(declare-function math-normalize-mod "calc-forms" (a))
52(declare-function math-make-sdev "calc-forms" (x sigma))
53(declare-function math-make-intv "calc-forms" (mask lo hi))
54(declare-function math-normalize-logical-op "calc-prog" (a))
55(declare-function math-possible-signs "calc-arith" (a &optional origin))
56(declare-function math-infinite-dir "calc-math" (a &optional inf))
57(declare-function math-calcFunc-to-var "calc-map" (f))
58(declare-function calc-embedded-evaluate-expr "calc-embed" (x))
59(declare-function math-known-nonzerop "calc-arith" (a))
60(declare-function math-read-expr-level "calc-aent" (exp-prec &optional exp-term))
8ac92256 61(declare-function math-read-big-rec "calc-lang" (math-rb-h1 math-rb-v1 math-rb-h2 math-rb-v2 &optional baseline prec short))
ded4d419
JB		 62(declare-function math-read-big-balance "calc-lang" (h v what &optional commas))
63(declare-function math-format-date "calc-forms" (math-fd-date))
64(declare-function math-vector-is-string "calccomp" (a))
65(declare-function math-vector-to-string "calccomp" (a &optional quoted))
66(declare-function math-format-radix-float "calc-bin" (a prec))
67(declare-function math-compose-expr "calccomp" (a prec))
68(declare-function math-abs "calc-arith" (a))
69(declare-function math-format-bignum-binary "calc-bin" (a))
70(declare-function math-format-bignum-octal "calc-bin" (a))
71(declare-function math-format-bignum-hex "calc-bin" (a))
72(declare-function math-format-bignum-radix "calc-bin" (a))
73(declare-function math-compute-max-digits "calc-bin" (w r))
58dddf38
JB		 74(declare-function math-map-vec "calc-vec" (f a))
75(declare-function math-make-frac "calc-frac" (num den))
76
ded4d419 77
3132f345
CW		 78(defvar math-simplifying nil)
79(defvar math-living-dangerously nil) ; true if unsafe simplifications are okay.
80(defvar math-integrating nil)
81
82(defvar math-rewrite-selections nil)
83
84(defvar math-compose-level 0)
85(defvar math-comp-selected nil)
86(defvar math-comp-tagged nil)
87(defvar math-comp-sel-hpos nil)
88(defvar math-comp-sel-vpos nil)
89(defvar math-comp-sel-cpos nil)
90(defvar math-compose-hash-args nil)
91
430c8528
JB		 92(defvar calc-alg-map)
93(defvar calc-alg-esc-map)
94
136211a9
EZ		 95;;; The following was made a function so that it could be byte-compiled.
96(defun calc-init-extensions ()
97
136211a9
EZ		 98 (define-key calc-mode-map ":" 'calc-fdiv)
99 (define-key calc-mode-map "\\" 'calc-idiv)
100 (define-key calc-mode-map "|" 'calc-concat)
101 (define-key calc-mode-map "!" 'calc-factorial)
102 (define-key calc-mode-map "C" 'calc-cos)
103 (define-key calc-mode-map "E" 'calc-exp)
104 (define-key calc-mode-map "H" 'calc-hyperbolic)
105 (define-key calc-mode-map "I" 'calc-inverse)
106 (define-key calc-mode-map "J" 'calc-conj)
107 (define-key calc-mode-map "L" 'calc-ln)
108 (define-key calc-mode-map "N" 'calc-eval-num)
109 (define-key calc-mode-map "P" 'calc-pi)
110 (define-key calc-mode-map "Q" 'calc-sqrt)
111 (define-key calc-mode-map "R" 'calc-round)
112 (define-key calc-mode-map "S" 'calc-sin)
113 (define-key calc-mode-map "T" 'calc-tan)
114 (define-key calc-mode-map "U" 'calc-undo)
115 (define-key calc-mode-map "X" 'calc-call-last-kbd-macro)
116 (define-key calc-mode-map "o" 'calc-realign)
117 (define-key calc-mode-map "p" 'calc-precision)
118 (define-key calc-mode-map "w" 'calc-why)
119 (define-key calc-mode-map "x" 'calc-execute-extended-command)
120 (define-key calc-mode-map "y" 'calc-copy-to-buffer)
121
122 (define-key calc-mode-map "(" 'calc-begin-complex)
123 (define-key calc-mode-map ")" 'calc-end-complex)
124 (define-key calc-mode-map "[" 'calc-begin-vector)
125 (define-key calc-mode-map "]" 'calc-end-vector)
126 (define-key calc-mode-map "," 'calc-comma)
127 (define-key calc-mode-map ";" 'calc-semi)
128 (define-key calc-mode-map "`" 'calc-edit)
129 (define-key calc-mode-map "=" 'calc-evaluate)
130 (define-key calc-mode-map "~" 'calc-num-prefix)
131 (define-key calc-mode-map "<" 'calc-scroll-left)
132 (define-key calc-mode-map ">" 'calc-scroll-right)
133 (define-key calc-mode-map "{" 'calc-scroll-down)
134 (define-key calc-mode-map "}" 'calc-scroll-up)
135 (define-key calc-mode-map "\C-k" 'calc-kill)
136 (define-key calc-mode-map "\M-k" 'calc-copy-as-kill)
137 (define-key calc-mode-map "\C-w" 'calc-kill-region)
138 (define-key calc-mode-map "\M-w" 'calc-copy-region-as-kill)
139 (define-key calc-mode-map "\C-y" 'calc-yank)
5f16f8be 140 (define-key calc-mode-map [mouse-2] 'calc-yank)
136211a9
EZ		 141 (define-key calc-mode-map "\C-_" 'calc-undo)
142 (define-key calc-mode-map "\C-xu" 'calc-undo)
143 (define-key calc-mode-map "\M-\C-m" 'calc-last-args)
144
145 (define-key calc-mode-map "a" nil)
146 (define-key calc-mode-map "a?" 'calc-a-prefix-help)
147 (define-key calc-mode-map "aa" 'calc-apart)
148 (define-key calc-mode-map "ab" 'calc-substitute)
149 (define-key calc-mode-map "ac" 'calc-collect)
150 (define-key calc-mode-map "ad" 'calc-derivative)
151 (define-key calc-mode-map "ae" 'calc-simplify-extended)
152 (define-key calc-mode-map "af" 'calc-factor)
153 (define-key calc-mode-map "ag" 'calc-poly-gcd)
154 (define-key calc-mode-map "ai" 'calc-integral)
155 (define-key calc-mode-map "am" 'calc-match)
156 (define-key calc-mode-map "an" 'calc-normalize-rat)
157 (define-key calc-mode-map "ap" 'calc-poly-interp)
158 (define-key calc-mode-map "ar" 'calc-rewrite)
159 (define-key calc-mode-map "as" 'calc-simplify)
160 (define-key calc-mode-map "at" 'calc-taylor)
161 (define-key calc-mode-map "av" 'calc-alg-evaluate)
162 (define-key calc-mode-map "ax" 'calc-expand)
163 (define-key calc-mode-map "aA" 'calc-abs)
164 (define-key calc-mode-map "aF" 'calc-curve-fit)
165 (define-key calc-mode-map "aI" 'calc-num-integral)
166 (define-key calc-mode-map "aM" 'calc-map-equation)
167 (define-key calc-mode-map "aN" 'calc-find-minimum)
168 (define-key calc-mode-map "aP" 'calc-poly-roots)
169 (define-key calc-mode-map "aS" 'calc-solve-for)
170 (define-key calc-mode-map "aR" 'calc-find-root)
171 (define-key calc-mode-map "aT" 'calc-tabulate)
172 (define-key calc-mode-map "aX" 'calc-find-maximum)
173 (define-key calc-mode-map "a+" 'calc-summation)
174 (define-key calc-mode-map "a-" 'calc-alt-summation)
175 (define-key calc-mode-map "a*" 'calc-product)
176 (define-key calc-mode-map "a\\" 'calc-poly-div)
177 (define-key calc-mode-map "a%" 'calc-poly-rem)
178 (define-key calc-mode-map "a/" 'calc-poly-div-rem)
179 (define-key calc-mode-map "a=" 'calc-equal-to)
180 (define-key calc-mode-map "a#" 'calc-not-equal-to)
181 (define-key calc-mode-map "a<" 'calc-less-than)
182 (define-key calc-mode-map "a>" 'calc-greater-than)
183 (define-key calc-mode-map "a[" 'calc-less-equal)
184 (define-key calc-mode-map "a]" 'calc-greater-equal)
185 (define-key calc-mode-map "a." 'calc-remove-equal)
186 (define-key calc-mode-map "a{" 'calc-in-set)
187 (define-key calc-mode-map "a&" 'calc-logical-and)
188 (define-key calc-mode-map "a|" 'calc-logical-or)
189 (define-key calc-mode-map "a!" 'calc-logical-not)
190 (define-key calc-mode-map "a:" 'calc-logical-if)
191 (define-key calc-mode-map "a_" 'calc-subscript)
192 (define-key calc-mode-map "a\"" 'calc-expand-formula)
193
194 (define-key calc-mode-map "b" nil)
195 (define-key calc-mode-map "b?" 'calc-b-prefix-help)
196 (define-key calc-mode-map "ba" 'calc-and)
197 (define-key calc-mode-map "bc" 'calc-clip)
198 (define-key calc-mode-map "bd" 'calc-diff)
199 (define-key calc-mode-map "bl" 'calc-lshift-binary)
200 (define-key calc-mode-map "bn" 'calc-not)
201 (define-key calc-mode-map "bo" 'calc-or)
202 (define-key calc-mode-map "bp" 'calc-pack-bits)
203 (define-key calc-mode-map "br" 'calc-rshift-binary)
204 (define-key calc-mode-map "bt" 'calc-rotate-binary)
205 (define-key calc-mode-map "bu" 'calc-unpack-bits)
206 (define-key calc-mode-map "bw" 'calc-word-size)
207 (define-key calc-mode-map "bx" 'calc-xor)
208 (define-key calc-mode-map "bB" 'calc-log)
209 (define-key calc-mode-map "bD" 'calc-fin-ddb)
210 (define-key calc-mode-map "bF" 'calc-fin-fv)
211 (define-key calc-mode-map "bI" 'calc-fin-irr)
212 (define-key calc-mode-map "bL" 'calc-lshift-arith)
213 (define-key calc-mode-map "bM" 'calc-fin-pmt)
214 (define-key calc-mode-map "bN" 'calc-fin-npv)
215 (define-key calc-mode-map "bP" 'calc-fin-pv)
216 (define-key calc-mode-map "bR" 'calc-rshift-arith)
217 (define-key calc-mode-map "bS" 'calc-fin-sln)
218 (define-key calc-mode-map "bT" 'calc-fin-rate)
219 (define-key calc-mode-map "bY" 'calc-fin-syd)
220 (define-key calc-mode-map "b#" 'calc-fin-nper)
221 (define-key calc-mode-map "b%" 'calc-percent-change)
222
223 (define-key calc-mode-map "c" nil)
224 (define-key calc-mode-map "c?" 'calc-c-prefix-help)
225 (define-key calc-mode-map "cc" 'calc-clean)
226 (define-key calc-mode-map "cd" 'calc-to-degrees)
227 (define-key calc-mode-map "cf" 'calc-float)
228 (define-key calc-mode-map "ch" 'calc-to-hms)
229 (define-key calc-mode-map "cp" 'calc-polar)
230 (define-key calc-mode-map "cr" 'calc-to-radians)
231 (define-key calc-mode-map "cC" 'calc-cos)
232 (define-key calc-mode-map "cF" 'calc-fraction)
233 (define-key calc-mode-map "c%" 'calc-convert-percent)
234
235 (define-key calc-mode-map "d" nil)
236 (define-key calc-mode-map "d?" 'calc-d-prefix-help)
237 (define-key calc-mode-map "d0" 'calc-decimal-radix)
238 (define-key calc-mode-map "d2" 'calc-binary-radix)
239 (define-key calc-mode-map "d6" 'calc-hex-radix)
240 (define-key calc-mode-map "d8" 'calc-octal-radix)
241 (define-key calc-mode-map "db" 'calc-line-breaking)
242 (define-key calc-mode-map "dc" 'calc-complex-notation)
243 (define-key calc-mode-map "dd" 'calc-date-notation)
244 (define-key calc-mode-map "de" 'calc-eng-notation)
245 (define-key calc-mode-map "df" 'calc-fix-notation)
246 (define-key calc-mode-map "dg" 'calc-group-digits)
247 (define-key calc-mode-map "dh" 'calc-hms-notation)
248 (define-key calc-mode-map "di" 'calc-i-notation)
249 (define-key calc-mode-map "dj" 'calc-j-notation)
250 (define-key calc-mode-map "dl" 'calc-line-numbering)
251 (define-key calc-mode-map "dn" 'calc-normal-notation)
252 (define-key calc-mode-map "do" 'calc-over-notation)
253 (define-key calc-mode-map "dp" 'calc-show-plain)
254 (define-key calc-mode-map "dr" 'calc-radix)
255 (define-key calc-mode-map "ds" 'calc-sci-notation)
256 (define-key calc-mode-map "dt" 'calc-truncate-stack)
257 (define-key calc-mode-map "dw" 'calc-auto-why)
258 (define-key calc-mode-map "dz" 'calc-leading-zeros)
259 (define-key calc-mode-map "dB" 'calc-big-language)
260 (define-key calc-mode-map "dD" 'calc-redo)
261 (define-key calc-mode-map "dC" 'calc-c-language)
262 (define-key calc-mode-map "dE" 'calc-eqn-language)
263 (define-key calc-mode-map "dF" 'calc-fortran-language)
264 (define-key calc-mode-map "dM" 'calc-mathematica-language)
265 (define-key calc-mode-map "dN" 'calc-normal-language)
266 (define-key calc-mode-map "dO" 'calc-flat-language)
267 (define-key calc-mode-map "dP" 'calc-pascal-language)
268 (define-key calc-mode-map "dT" 'calc-tex-language)
4617278c 269 (define-key calc-mode-map "dL" 'calc-latex-language)
136211a9
EZ		 270 (define-key calc-mode-map "dU" 'calc-unformatted-language)
271 (define-key calc-mode-map "dW" 'calc-maple-language)
272 (define-key calc-mode-map "d[" 'calc-truncate-up)
273 (define-key calc-mode-map "d]" 'calc-truncate-down)
274 (define-key calc-mode-map "d." 'calc-point-char)
275 (define-key calc-mode-map "d," 'calc-group-char)
276 (define-key calc-mode-map "d\"" 'calc-display-strings)
277 (define-key calc-mode-map "d<" 'calc-left-justify)
278 (define-key calc-mode-map "d=" 'calc-center-justify)
279 (define-key calc-mode-map "d>" 'calc-right-justify)
280 (define-key calc-mode-map "d{" 'calc-left-label)
281 (define-key calc-mode-map "d}" 'calc-right-label)
282 (define-key calc-mode-map "d'" 'calc-display-raw)
283 (define-key calc-mode-map "d " 'calc-refresh)
284 (define-key calc-mode-map "d\r" 'calc-refresh-top)
4813c362 285 (define-key calc-mode-map "d@" 'calc-toggle-banner)
136211a9
EZ		 286
287 (define-key calc-mode-map "f" nil)
288 (define-key calc-mode-map "f?" 'calc-f-prefix-help)
289 (define-key calc-mode-map "fb" 'calc-beta)
290 (define-key calc-mode-map "fe" 'calc-erf)
291 (define-key calc-mode-map "fg" 'calc-gamma)
292 (define-key calc-mode-map "fh" 'calc-hypot)
293 (define-key calc-mode-map "fi" 'calc-im)
294 (define-key calc-mode-map "fj" 'calc-bessel-J)
295 (define-key calc-mode-map "fn" 'calc-min)
296 (define-key calc-mode-map "fr" 'calc-re)
297 (define-key calc-mode-map "fs" 'calc-sign)
298 (define-key calc-mode-map "fx" 'calc-max)
299 (define-key calc-mode-map "fy" 'calc-bessel-Y)
300 (define-key calc-mode-map "fA" 'calc-abssqr)
301 (define-key calc-mode-map "fB" 'calc-inc-beta)
302 (define-key calc-mode-map "fE" 'calc-expm1)
303 (define-key calc-mode-map "fF" 'calc-floor)
304 (define-key calc-mode-map "fG" 'calc-inc-gamma)
305 (define-key calc-mode-map "fI" 'calc-ilog)
306 (define-key calc-mode-map "fL" 'calc-lnp1)
307 (define-key calc-mode-map "fM" 'calc-mant-part)
308 (define-key calc-mode-map "fQ" 'calc-isqrt)
309 (define-key calc-mode-map "fS" 'calc-scale-float)
310 (define-key calc-mode-map "fT" 'calc-arctan2)
311 (define-key calc-mode-map "fX" 'calc-xpon-part)
312 (define-key calc-mode-map "f[" 'calc-decrement)
313 (define-key calc-mode-map "f]" 'calc-increment)
314
315 (define-key calc-mode-map "g" nil)
316 (define-key calc-mode-map "g?" 'calc-g-prefix-help)
317 (define-key calc-mode-map "ga" 'calc-graph-add)
318 (define-key calc-mode-map "gb" 'calc-graph-border)
319 (define-key calc-mode-map "gc" 'calc-graph-clear)
320 (define-key calc-mode-map "gd" 'calc-graph-delete)
321 (define-key calc-mode-map "gf" 'calc-graph-fast)
322 (define-key calc-mode-map "gg" 'calc-graph-grid)
323 (define-key calc-mode-map "gh" 'calc-graph-header)
324 (define-key calc-mode-map "gk" 'calc-graph-key)
325 (define-key calc-mode-map "gj" 'calc-graph-juggle)
326 (define-key calc-mode-map "gl" 'calc-graph-log-x)
327 (define-key calc-mode-map "gn" 'calc-graph-name)
328 (define-key calc-mode-map "gp" 'calc-graph-plot)
329 (define-key calc-mode-map "gq" 'calc-graph-quit)
330 (define-key calc-mode-map "gr" 'calc-graph-range-x)
331 (define-key calc-mode-map "gs" 'calc-graph-line-style)
332 (define-key calc-mode-map "gt" 'calc-graph-title-x)
333 (define-key calc-mode-map "gv" 'calc-graph-view-commands)
334 (define-key calc-mode-map "gx" 'calc-graph-display)
335 (define-key calc-mode-map "gz" 'calc-graph-zero-x)
336 (define-key calc-mode-map "gA" 'calc-graph-add-3d)
337 (define-key calc-mode-map "gC" 'calc-graph-command)
338 (define-key calc-mode-map "gD" 'calc-graph-device)
339 (define-key calc-mode-map "gF" 'calc-graph-fast-3d)
340 (define-key calc-mode-map "gG" 'calc-argument)
341 (define-key calc-mode-map "gH" 'calc-graph-hide)
342 (define-key calc-mode-map "gK" 'calc-graph-kill)
343 (define-key calc-mode-map "gL" 'calc-graph-log-y)
344 (define-key calc-mode-map "gN" 'calc-graph-num-points)
345 (define-key calc-mode-map "gO" 'calc-graph-output)
346 (define-key calc-mode-map "gP" 'calc-graph-print)
347 (define-key calc-mode-map "gR" 'calc-graph-range-y)
348 (define-key calc-mode-map "gS" 'calc-graph-point-style)
349 (define-key calc-mode-map "gT" 'calc-graph-title-y)
350 (define-key calc-mode-map "gV" 'calc-graph-view-trail)
351 (define-key calc-mode-map "gX" 'calc-graph-geometry)
352 (define-key calc-mode-map "gZ" 'calc-graph-zero-y)
353 (define-key calc-mode-map "g\C-l" 'calc-graph-log-z)
354 (define-key calc-mode-map "g\C-r" 'calc-graph-range-z)
355 (define-key calc-mode-map "g\C-t" 'calc-graph-title-z)
356
357 (define-key calc-mode-map "h" 'calc-help-prefix)
358
359 (define-key calc-mode-map "j" nil)
360 (define-key calc-mode-map "j?" 'calc-j-prefix-help)
361 (define-key calc-mode-map "ja" 'calc-select-additional)
362 (define-key calc-mode-map "jb" 'calc-break-selections)
363 (define-key calc-mode-map "jc" 'calc-clear-selections)
364 (define-key calc-mode-map "jd" 'calc-show-selections)
365 (define-key calc-mode-map "je" 'calc-enable-selections)
366 (define-key calc-mode-map "jl" 'calc-select-less)
367 (define-key calc-mode-map "jm" 'calc-select-more)
368 (define-key calc-mode-map "jn" 'calc-select-next)
369 (define-key calc-mode-map "jo" 'calc-select-once)
370 (define-key calc-mode-map "jp" 'calc-select-previous)
371 (define-key calc-mode-map "jr" 'calc-rewrite-selection)
372 (define-key calc-mode-map "js" 'calc-select-here)
373 (define-key calc-mode-map "jv" 'calc-sel-evaluate)
374 (define-key calc-mode-map "ju" 'calc-unselect)
375 (define-key calc-mode-map "jC" 'calc-sel-commute)
376 (define-key calc-mode-map "jD" 'calc-sel-distribute)
377 (define-key calc-mode-map "jE" 'calc-sel-jump-equals)
378 (define-key calc-mode-map "jI" 'calc-sel-isolate)
379 (define-key calc-mode-map "jJ" 'calc-conj)
380 (define-key calc-mode-map "jL" 'calc-commute-left)
381 (define-key calc-mode-map "jM" 'calc-sel-merge)
382 (define-key calc-mode-map "jN" 'calc-sel-negate)
383 (define-key calc-mode-map "jO" 'calc-select-once-maybe)
384 (define-key calc-mode-map "jR" 'calc-commute-right)
385 (define-key calc-mode-map "jS" 'calc-select-here-maybe)
386 (define-key calc-mode-map "jU" 'calc-sel-unpack)
387 (define-key calc-mode-map "j&" 'calc-sel-invert)
388 (define-key calc-mode-map "j\r" 'calc-copy-selection)
389 (define-key calc-mode-map "j\n" 'calc-copy-selection)
390 (define-key calc-mode-map "j\010" 'calc-del-selection)
391 (define-key calc-mode-map "j\177" 'calc-del-selection)
392 (define-key calc-mode-map "j'" 'calc-enter-selection)
393 (define-key calc-mode-map "j`" 'calc-edit-selection)
394 (define-key calc-mode-map "j+" 'calc-sel-add-both-sides)
395 (define-key calc-mode-map "j-" 'calc-sel-sub-both-sides)
396 (define-key calc-mode-map "j*" 'calc-sel-mult-both-sides)
397 (define-key calc-mode-map "j/" 'calc-sel-div-both-sides)
398 (define-key calc-mode-map "j\"" 'calc-sel-expand-formula)
399
400 (define-key calc-mode-map "k" nil)
401 (define-key calc-mode-map "k?" 'calc-k-prefix-help)
402 (define-key calc-mode-map "ka" 'calc-random-again)
403 (define-key calc-mode-map "kb" 'calc-bernoulli-number)
404 (define-key calc-mode-map "kc" 'calc-choose)
405 (define-key calc-mode-map "kd" 'calc-double-factorial)
406 (define-key calc-mode-map "ke" 'calc-euler-number)
407 (define-key calc-mode-map "kf" 'calc-prime-factors)
408 (define-key calc-mode-map "kg" 'calc-gcd)
409 (define-key calc-mode-map "kh" 'calc-shuffle)
410 (define-key calc-mode-map "kl" 'calc-lcm)
411 (define-key calc-mode-map "km" 'calc-moebius)
412 (define-key calc-mode-map "kn" 'calc-next-prime)
413 (define-key calc-mode-map "kp" 'calc-prime-test)
414 (define-key calc-mode-map "kr" 'calc-random)
415 (define-key calc-mode-map "ks" 'calc-stirling-number)
416 (define-key calc-mode-map "kt" 'calc-totient)
417 (define-key calc-mode-map "kB" 'calc-utpb)
418 (define-key calc-mode-map "kC" 'calc-utpc)
419 (define-key calc-mode-map "kE" 'calc-extended-gcd)
420 (define-key calc-mode-map "kF" 'calc-utpf)
421 (define-key calc-mode-map "kK" 'calc-keep-args)
422 (define-key calc-mode-map "kN" 'calc-utpn)
423 (define-key calc-mode-map "kP" 'calc-utpp)
424 (define-key calc-mode-map "kT" 'calc-utpt)
425
426 (define-key calc-mode-map "m" nil)
427 (define-key calc-mode-map "m?" 'calc-m-prefix-help)
428 (define-key calc-mode-map "ma" 'calc-algebraic-mode)
429 (define-key calc-mode-map "md" 'calc-degrees-mode)
2f432506 430 (define-key calc-mode-map "me" 'calc-embedded-preserve-modes)
136211a9
EZ		 431 (define-key calc-mode-map "mf" 'calc-frac-mode)
432 (define-key calc-mode-map "mg" 'calc-get-modes)
433 (define-key calc-mode-map "mh" 'calc-hms-mode)
434 (define-key calc-mode-map "mi" 'calc-infinite-mode)
435 (define-key calc-mode-map "mm" 'calc-save-modes)
436 (define-key calc-mode-map "mp" 'calc-polar-mode)
437 (define-key calc-mode-map "mr" 'calc-radians-mode)
438 (define-key calc-mode-map "ms" 'calc-symbolic-mode)
439 (define-key calc-mode-map "mt" 'calc-total-algebraic-mode)
440 (define-key calc-mode-map "\emt" 'calc-total-algebraic-mode)
441 (define-key calc-mode-map "\em\et" 'calc-total-algebraic-mode)
442 (define-key calc-mode-map "mv" 'calc-matrix-mode)
443 (define-key calc-mode-map "mw" 'calc-working)
444 (define-key calc-mode-map "mx" 'calc-always-load-extensions)
445 (define-key calc-mode-map "mA" 'calc-alg-simplify-mode)
446 (define-key calc-mode-map "mB" 'calc-bin-simplify-mode)
447 (define-key calc-mode-map "mC" 'calc-auto-recompute)
448 (define-key calc-mode-map "mD" 'calc-default-simplify-mode)
449 (define-key calc-mode-map "mE" 'calc-ext-simplify-mode)
450 (define-key calc-mode-map "mF" 'calc-settings-file-name)
451 (define-key calc-mode-map "mM" 'calc-more-recursion-depth)
452 (define-key calc-mode-map "mN" 'calc-num-simplify-mode)
453 (define-key calc-mode-map "mO" 'calc-no-simplify-mode)
454 (define-key calc-mode-map "mR" 'calc-mode-record-mode)
455 (define-key calc-mode-map "mS" 'calc-shift-prefix)
456 (define-key calc-mode-map "mU" 'calc-units-simplify-mode)
457 (define-key calc-mode-map "mX" 'calc-load-everything)
458
459 (define-key calc-mode-map "r" nil)
460 (define-key calc-mode-map "r?" 'calc-r-prefix-help)
461
462 (define-key calc-mode-map "s" nil)
463 (define-key calc-mode-map "s?" 'calc-s-prefix-help)
464 (define-key calc-mode-map "sc" 'calc-copy-variable)
465 (define-key calc-mode-map "sd" 'calc-declare-variable)
466 (define-key calc-mode-map "se" 'calc-edit-variable)
467 (define-key calc-mode-map "si" 'calc-insert-variables)
2833f421 468 (define-key calc-mode-map "sk" 'calc-copy-special-constant)
136211a9
EZ		 469 (define-key calc-mode-map "sl" 'calc-let)
470 (define-key calc-mode-map "sm" 'calc-store-map)
471 (define-key calc-mode-map "sn" 'calc-store-neg)
472 (define-key calc-mode-map "sp" 'calc-permanent-variable)
473 (define-key calc-mode-map "sr" 'calc-recall)
474 (define-key calc-mode-map "ss" 'calc-store)
475 (define-key calc-mode-map "st" 'calc-store-into)
476 (define-key calc-mode-map "su" 'calc-unstore)
477 (define-key calc-mode-map "sx" 'calc-store-exchange)
478 (define-key calc-mode-map "sA" 'calc-edit-AlgSimpRules)
479 (define-key calc-mode-map "sD" 'calc-edit-Decls)
480 (define-key calc-mode-map "sE" 'calc-edit-EvalRules)
481 (define-key calc-mode-map "sF" 'calc-edit-FitRules)
482 (define-key calc-mode-map "sG" 'calc-edit-GenCount)
483 (define-key calc-mode-map "sH" 'calc-edit-Holidays)
484 (define-key calc-mode-map "sI" 'calc-edit-IntegLimit)
485 (define-key calc-mode-map "sL" 'calc-edit-LineStyles)
486 (define-key calc-mode-map "sP" 'calc-edit-PointStyles)
487 (define-key calc-mode-map "sR" 'calc-edit-PlotRejects)
488 (define-key calc-mode-map "sS" 'calc-sin)
489 (define-key calc-mode-map "sT" 'calc-edit-TimeZone)
490 (define-key calc-mode-map "sU" 'calc-edit-Units)
491 (define-key calc-mode-map "sX" 'calc-edit-ExtSimpRules)
492 (define-key calc-mode-map "s+" 'calc-store-plus)
493 (define-key calc-mode-map "s-" 'calc-store-minus)
494 (define-key calc-mode-map "s*" 'calc-store-times)
495 (define-key calc-mode-map "s/" 'calc-store-div)
496 (define-key calc-mode-map "s^" 'calc-store-power)
497 (define-key calc-mode-map "s|" 'calc-store-concat)
498 (define-key calc-mode-map "s&" 'calc-store-inv)
499 (define-key calc-mode-map "s[" 'calc-store-decr)
500 (define-key calc-mode-map "s]" 'calc-store-incr)
501 (define-key calc-mode-map "s:" 'calc-assign)
502 (define-key calc-mode-map "s=" 'calc-evalto)
503
504 (define-key calc-mode-map "t" nil)
505 (define-key calc-mode-map "t?" 'calc-t-prefix-help)
506 (define-key calc-mode-map "tb" 'calc-trail-backward)
507 (define-key calc-mode-map "td" 'calc-trail-display)
508 (define-key calc-mode-map "tf" 'calc-trail-forward)
509 (define-key calc-mode-map "th" 'calc-trail-here)
510 (define-key calc-mode-map "ti" 'calc-trail-in)
511 (define-key calc-mode-map "tk" 'calc-trail-kill)
512 (define-key calc-mode-map "tm" 'calc-trail-marker)
513 (define-key calc-mode-map "tn" 'calc-trail-next)
514 (define-key calc-mode-map "to" 'calc-trail-out)
515 (define-key calc-mode-map "tp" 'calc-trail-previous)
516 (define-key calc-mode-map "tr" 'calc-trail-isearch-backward)
517 (define-key calc-mode-map "ts" 'calc-trail-isearch-forward)
518 (define-key calc-mode-map "ty" 'calc-trail-yank)
519 (define-key calc-mode-map "t[" 'calc-trail-first)
520 (define-key calc-mode-map "t]" 'calc-trail-last)
521 (define-key calc-mode-map "t<" 'calc-trail-scroll-left)
522 (define-key calc-mode-map "t>" 'calc-trail-scroll-right)
523 (define-key calc-mode-map "t{" 'calc-trail-backward)
524 (define-key calc-mode-map "t}" 'calc-trail-forward)
525 (define-key calc-mode-map "t." 'calc-full-trail-vectors)
526 (define-key calc-mode-map "tC" 'calc-convert-time-zones)
527 (define-key calc-mode-map "tD" 'calc-date)
528 (define-key calc-mode-map "tI" 'calc-inc-month)
529 (define-key calc-mode-map "tJ" 'calc-julian)
530 (define-key calc-mode-map "tM" 'calc-new-month)
531 (define-key calc-mode-map "tN" 'calc-now)
532 (define-key calc-mode-map "tP" 'calc-date-part)
533 (define-key calc-mode-map "tT" 'calc-tan)
534 (define-key calc-mode-map "tU" 'calc-unix-time)
535 (define-key calc-mode-map "tW" 'calc-new-week)
536 (define-key calc-mode-map "tY" 'calc-new-year)
537 (define-key calc-mode-map "tZ" 'calc-time-zone)
538 (define-key calc-mode-map "t+" 'calc-business-days-plus)
539 (define-key calc-mode-map "t-" 'calc-business-days-minus)
540
541 (define-key calc-mode-map "u" 'nil)
542 (define-key calc-mode-map "u?" 'calc-u-prefix-help)
543 (define-key calc-mode-map "ua" 'calc-autorange-units)
544 (define-key calc-mode-map "ub" 'calc-base-units)
545 (define-key calc-mode-map "uc" 'calc-convert-units)
546 (define-key calc-mode-map "ud" 'calc-define-unit)
547 (define-key calc-mode-map "ue" 'calc-explain-units)
548 (define-key calc-mode-map "ug" 'calc-get-unit-definition)
549 (define-key calc-mode-map "up" 'calc-permanent-units)
550 (define-key calc-mode-map "ur" 'calc-remove-units)
551 (define-key calc-mode-map "us" 'calc-simplify-units)
552 (define-key calc-mode-map "ut" 'calc-convert-temperature)
553 (define-key calc-mode-map "uu" 'calc-undefine-unit)
554 (define-key calc-mode-map "uv" 'calc-enter-units-table)
555 (define-key calc-mode-map "ux" 'calc-extract-units)
556 (define-key calc-mode-map "uV" 'calc-view-units-table)
557 (define-key calc-mode-map "uC" 'calc-vector-covariance)
558 (define-key calc-mode-map "uG" 'calc-vector-geometric-mean)
559 (define-key calc-mode-map "uM" 'calc-vector-mean)
560 (define-key calc-mode-map "uN" 'calc-vector-min)
561 (define-key calc-mode-map "uS" 'calc-vector-sdev)
562 (define-key calc-mode-map "uU" 'calc-undo)
563 (define-key calc-mode-map "uX" 'calc-vector-max)
564 (define-key calc-mode-map "u#" 'calc-vector-count)
565 (define-key calc-mode-map "u+" 'calc-vector-sum)
566 (define-key calc-mode-map "u*" 'calc-vector-product)
567
568 (define-key calc-mode-map "v" 'nil)
569 (define-key calc-mode-map "v?" 'calc-v-prefix-help)
570 (define-key calc-mode-map "va" 'calc-arrange-vector)
571 (define-key calc-mode-map "vb" 'calc-build-vector)
572 (define-key calc-mode-map "vc" 'calc-mcol)
573 (define-key calc-mode-map "vd" 'calc-diag)
574 (define-key calc-mode-map "ve" 'calc-expand-vector)
575 (define-key calc-mode-map "vf" 'calc-vector-find)
576 (define-key calc-mode-map "vh" 'calc-head)
577 (define-key calc-mode-map "vi" 'calc-ident)
578 (define-key calc-mode-map "vk" 'calc-cons)
579 (define-key calc-mode-map "vl" 'calc-vlength)
580 (define-key calc-mode-map "vm" 'calc-mask-vector)
581 (define-key calc-mode-map "vn" 'calc-rnorm)
582 (define-key calc-mode-map "vp" 'calc-pack)
583 (define-key calc-mode-map "vr" 'calc-mrow)
584 (define-key calc-mode-map "vs" 'calc-subvector)
585 (define-key calc-mode-map "vt" 'calc-transpose)
586 (define-key calc-mode-map "vu" 'calc-unpack)
587 (define-key calc-mode-map "vv" 'calc-reverse-vector)
588 (define-key calc-mode-map "vx" 'calc-index)
589 (define-key calc-mode-map "vA" 'calc-apply)
590 (define-key calc-mode-map "vC" 'calc-cross)
591 (define-key calc-mode-map "vD" 'calc-mdet)
592 (define-key calc-mode-map "vE" 'calc-set-enumerate)
593 (define-key calc-mode-map "vF" 'calc-set-floor)
594 (define-key calc-mode-map "vG" 'calc-grade)
595 (define-key calc-mode-map "vH" 'calc-histogram)
596 (define-key calc-mode-map "vI" 'calc-inner-product)
597 (define-key calc-mode-map "vJ" 'calc-conj-transpose)
598 (define-key calc-mode-map "vL" 'calc-mlud)
599 (define-key calc-mode-map "vM" 'calc-map)
600 (define-key calc-mode-map "vN" 'calc-cnorm)
601 (define-key calc-mode-map "vO" 'calc-outer-product)
602 (define-key calc-mode-map "vR" 'calc-reduce)
603 (define-key calc-mode-map "vS" 'calc-sort)
604 (define-key calc-mode-map "vT" 'calc-mtrace)
605 (define-key calc-mode-map "vU" 'calc-accumulate)
606 (define-key calc-mode-map "vV" 'calc-set-union)
607 (define-key calc-mode-map "vX" 'calc-set-xor)
608 (define-key calc-mode-map "v^" 'calc-set-intersect)
609 (define-key calc-mode-map "v-" 'calc-set-difference)
610 (define-key calc-mode-map "v~" 'calc-set-complement)
611 (define-key calc-mode-map "v:" 'calc-set-span)
612 (define-key calc-mode-map "v#" 'calc-set-cardinality)
613 (define-key calc-mode-map "v+" 'calc-remove-duplicates)
614 (define-key calc-mode-map "v&" 'calc-inv)
615 (define-key calc-mode-map "v<" 'calc-matrix-left-justify)
616 (define-key calc-mode-map "v=" 'calc-matrix-center-justify)
617 (define-key calc-mode-map "v>" 'calc-matrix-right-justify)
618 (define-key calc-mode-map "v." 'calc-full-vectors)
619 (define-key calc-mode-map "v/" 'calc-break-vectors)
620 (define-key calc-mode-map "v," 'calc-vector-commas)
621 (define-key calc-mode-map "v[" 'calc-vector-brackets)
622 (define-key calc-mode-map "v]" 'calc-matrix-brackets)
623 (define-key calc-mode-map "v{" 'calc-vector-braces)
624 (define-key calc-mode-map "v}" 'calc-matrix-brackets)
625 (define-key calc-mode-map "v(" 'calc-vector-parens)
626 (define-key calc-mode-map "v)" 'calc-matrix-brackets)
e1fbd956
SM		 627 ;; We can't rely on the automatic upper->lower conversion because
628 ;; in the global map V is explicitly bound, so we need to bind it
629 ;; explicitly as well :-( --stef
136211a9
EZ		 630 (define-key calc-mode-map "V" (lookup-key calc-mode-map "v"))
631
632 (define-key calc-mode-map "z" 'nil)
633 (define-key calc-mode-map "z?" 'calc-z-prefix-help)
634
635 (define-key calc-mode-map "Z" 'nil)
636 (define-key calc-mode-map "Z?" 'calc-shift-Z-prefix-help)
637 (define-key calc-mode-map "ZC" 'calc-user-define-composition)
638 (define-key calc-mode-map "ZD" 'calc-user-define)
639 (define-key calc-mode-map "ZE" 'calc-user-define-edit)
640 (define-key calc-mode-map "ZF" 'calc-user-define-formula)
641 (define-key calc-mode-map "ZG" 'calc-get-user-defn)
642 (define-key calc-mode-map "ZI" 'calc-user-define-invocation)
643 (define-key calc-mode-map "ZK" 'calc-user-define-kbd-macro)
644 (define-key calc-mode-map "ZP" 'calc-user-define-permanent)
645 (define-key calc-mode-map "ZS" 'calc-edit-user-syntax)
646 (define-key calc-mode-map "ZT" 'calc-timing)
647 (define-key calc-mode-map "ZU" 'calc-user-undefine)
648 (define-key calc-mode-map "Z[" 'calc-kbd-if)
649 (define-key calc-mode-map "Z:" 'calc-kbd-else)
650 (define-key calc-mode-map "Z|" 'calc-kbd-else-if)
651 (define-key calc-mode-map "Z]" 'calc-kbd-end-if)
652 (define-key calc-mode-map "Z<" 'calc-kbd-repeat)
653 (define-key calc-mode-map "Z>" 'calc-kbd-end-repeat)
654 (define-key calc-mode-map "Z(" 'calc-kbd-for)
655 (define-key calc-mode-map "Z)" 'calc-kbd-end-for)
656 (define-key calc-mode-map "Z{" 'calc-kbd-loop)
657 (define-key calc-mode-map "Z}" 'calc-kbd-end-loop)
658 (define-key calc-mode-map "Z/" 'calc-kbd-break)
659 (define-key calc-mode-map "Z`" 'calc-kbd-push)
660 (define-key calc-mode-map "Z'" 'calc-kbd-pop)
661 (define-key calc-mode-map "Z=" 'calc-kbd-report)
662 (define-key calc-mode-map "Z#" 'calc-kbd-query)
663
664 (calc-init-prefixes)
665
e80155aa
JB		 666 (mapc (function
667 (lambda (x)
668 (define-key calc-mode-map (format "c%c" x) 'calc-clean-num)
669 (define-key calc-mode-map (format "j%c" x) 'calc-select-part)
670 (define-key calc-mode-map (format "r%c" x) 'calc-recall-quick)
671 (define-key calc-mode-map (format "s%c" x) 'calc-store-quick)
672 (define-key calc-mode-map (format "t%c" x) 'calc-store-into-quick)
673 (define-key calc-mode-map (format "u%c" x) 'calc-quick-units)))
674 "0123456789")
136211a9 675
136211a9 676 (let ((i ?A))
4ebcaf0e
JB		 677 (while (<= i ?z)
678 (if (eq (car-safe (aref (nth 1 calc-mode-map) i)) 'keymap)
679 (aset (nth 1 calc-mode-map) i
680 (cons 'keymap (cons (cons ?\e (aref (nth 1 calc-mode-map) i))
681 (cdr (aref (nth 1 calc-mode-map) i))))))
136211a9 682 (setq i (1+ i))))
e80155aa 683
4ebcaf0e
JB		 684 (setq calc-alg-map (copy-keymap calc-mode-map)
685 calc-alg-esc-map (copy-keymap esc-map))
136211a9
EZ		 686 (let ((i 32))
687 (while (< i 127)
688 (or (memq i '(?' ?` ?= ??))
4ebcaf0e 689 (aset (nth 1 calc-alg-map) i 'calc-auto-algebraic-entry))
136211a9 690 (or (memq i '(?# ?x ?0 ?1 ?2 ?3 ?4 ?5 ?6 ?7 ?8 ?9))
4ebcaf0e 691 (aset (nth 1 calc-alg-esc-map) i (aref (nth 1 calc-mode-map) i)))
136211a9
EZ		 692 (setq i (1+ i))))
693 (define-key calc-alg-map "\e" calc-alg-esc-map)
694 (define-key calc-alg-map "\e\t" 'calc-roll-up)
695 (define-key calc-alg-map "\e\C-m" 'calc-last-args-stub)
696 (define-key calc-alg-map "\e\177" 'calc-pop-above)
a1506d29 697
136211a9 698;;;; (Autoloads here)
e80155aa 699 (mapc (function (lambda (x)
136211a9
EZ		 700 (mapcar (function (lambda (func)
701 (autoload func (car x)))) (cdr x))))
702 '(
703
1b303b2c 704 ("calc-alg" calc-has-rules math-defsimplify
136211a9
EZ		 705calc-modify-simplify-mode calcFunc-collect calcFunc-esimplify
706calcFunc-islin calcFunc-islinnt calcFunc-lin calcFunc-linnt
3b2fad43 707calcFunc-simplify calcFunc-subst calcFunc-powerexpand math-beforep
136211a9
EZ		 708math-build-polynomial-expr math-expand-formula math-expr-contains
709math-expr-contains-count math-expr-depends math-expr-height
710math-expr-subst math-expr-weight math-integer-plus math-is-linear
711math-is-multiple math-is-polynomial math-linear-in math-multiple-of
1b303b2c 712math-poly-depends math-poly-mix math-poly-mul
136211a9
EZ		 713math-poly-simplify math-poly-zerop math-polynomial-base
714math-polynomial-p math-recompile-eval-rules math-simplify
715math-simplify-exp math-simplify-extended math-simplify-sqrt
716math-to-simple-fraction)
717
1b303b2c 718 ("calcalg2" calcFunc-asum calcFunc-deriv
136211a9
EZ		 719calcFunc-ffinv calcFunc-finv calcFunc-fsolve calcFunc-gpoly
720calcFunc-integ calcFunc-poly calcFunc-prod calcFunc-roots
721calcFunc-solve calcFunc-sum calcFunc-table calcFunc-taylor
722calcFunc-tderiv math-expr-calls math-integral-q02 math-integral-q12
723math-integral-rational-funcs math-lcm-denoms math-looks-evenp
724math-poly-all-roots math-prod-rec math-reject-solution math-solve-eqn
725math-solve-for math-sum-rec math-try-integral)
726
1b303b2c 727 ("calcalg3" calcFunc-efit calcFunc-fit
136211a9
EZ		 728calcFunc-fitdummy calcFunc-fitparam calcFunc-fitvar
729calcFunc-hasfitparams calcFunc-hasfitvars calcFunc-maximize
730calcFunc-minimize calcFunc-ninteg calcFunc-polint calcFunc-ratint
731calcFunc-root calcFunc-wmaximize calcFunc-wminimize calcFunc-wroot
732calcFunc-xfit math-find-minimum math-find-root math-ninteg-evaluate
733math-ninteg-midpoint math-ninteg-romberg math-poly-interp)
734
1b303b2c 735 ("calc-arith" calcFunc-abs calcFunc-abssqr
136211a9
EZ		 736calcFunc-add calcFunc-ceil calcFunc-decr calcFunc-deven calcFunc-dimag
737calcFunc-dint calcFunc-div calcFunc-dnatnum calcFunc-dneg
738calcFunc-dnonneg calcFunc-dnonzero calcFunc-dnumint calcFunc-dodd
739calcFunc-dpos calcFunc-drange calcFunc-drat calcFunc-dreal
740calcFunc-dscalar calcFunc-fceil calcFunc-ffloor calcFunc-float
741calcFunc-fround calcFunc-frounde calcFunc-froundu calcFunc-ftrunc
3b2fad43 742calcFunc-idiv calcFunc-incr calcFunc-ldiv calcFunc-mant calcFunc-max calcFunc-min
136211a9
EZ		 743calcFunc-mod calcFunc-mul calcFunc-neg calcFunc-percent calcFunc-pow
744calcFunc-relch calcFunc-round calcFunc-rounde calcFunc-roundu
745calcFunc-scf calcFunc-sub calcFunc-xpon math-abs math-abs-approx
746math-add-objects-fancy math-add-or-sub math-add-symb-fancy
747math-ceiling math-combine-prod math-combine-sum math-div-by-zero
748math-div-objects-fancy math-div-symb-fancy math-div-zero
749math-float-fancy math-floor-fancy math-floor-special math-guess-if-neg
750math-intv-constp math-known-evenp math-known-imagp math-known-integerp
751math-known-matrixp math-known-negp math-known-nonnegp
752math-known-nonposp math-known-nonzerop math-known-num-integerp
753math-known-oddp math-known-posp math-known-realp math-known-scalarp
754math-max math-min math-mod-fancy math-mul-float math-mul-objects-fancy
755math-mul-or-div math-mul-symb-fancy math-mul-zero math-neg-fancy
756math-neg-float math-okay-neg math-possible-signs math-possible-types
757math-pow-fancy math-pow-mod math-pow-of-zero math-pow-zero
758math-quarter-integer math-round math-setup-declarations math-sqr
759math-sqr-float math-trunc-fancy math-trunc-special)
760
1b303b2c 761 ("calc-bin" calcFunc-and calcFunc-ash
136211a9
EZ		 762calcFunc-clip calcFunc-diff calcFunc-lsh calcFunc-not calcFunc-or
763calcFunc-rash calcFunc-rot calcFunc-rsh calcFunc-xor math-clip
764math-compute-max-digits math-convert-radix-digits math-float-parts
765math-format-bignum-binary math-format-bignum-hex
766math-format-bignum-octal math-format-bignum-radix math-format-binary
767math-format-radix math-format-radix-float math-integer-log2
768math-power-of-2 math-radix-float-power)
769
1b303b2c 770 ("calc-comb" calc-report-prime-test
136211a9
EZ		 771calcFunc-choose calcFunc-dfact calcFunc-egcd calcFunc-fact
772calcFunc-gcd calcFunc-lcm calcFunc-moebius calcFunc-nextprime
773calcFunc-perm calcFunc-prevprime calcFunc-prfac calcFunc-prime
774calcFunc-random calcFunc-shuffle calcFunc-stir1 calcFunc-stir2
775calcFunc-totient math-init-random-base math-member math-prime-test
776math-random-base)
777
1b303b2c 778 ("calccomp" calcFunc-cascent calcFunc-cdescent
136211a9
EZ		 779calcFunc-cheight calcFunc-cwidth math-comp-ascent math-comp-descent
780math-comp-height math-comp-width math-compose-expr
781math-composition-to-string math-stack-value-offset-fancy
782math-vector-is-string math-vector-to-string)
783
1b303b2c 784 ("calc-cplx" calcFunc-arg calcFunc-conj
136211a9
EZ		 785calcFunc-im calcFunc-polar calcFunc-re calcFunc-rect math-complex
786math-fix-circular math-imaginary math-imaginary-i math-normalize-polar
787math-polar math-want-polar)
788
1b303b2c 789 ("calc-embed" calc-do-embedded
136211a9 790calc-do-embedded-activate calc-embedded-evaluate-expr
2f432506
JB		 791calc-embedded-modes-change calc-embedded-var-change
792calc-embedded-preserve-modes)
136211a9 793
1b303b2c 794 ("calc-fin" calc-to-percentage calcFunc-ddb
136211a9
EZ		 795calcFunc-fv calcFunc-fvb calcFunc-fvl calcFunc-irr calcFunc-irrb
796calcFunc-nper calcFunc-nperb calcFunc-nperl calcFunc-npv calcFunc-npvb
797calcFunc-pmt calcFunc-pmtb calcFunc-pv calcFunc-pvb calcFunc-pvl
798calcFunc-rate calcFunc-rateb calcFunc-ratel calcFunc-sln calcFunc-syd)
799
1b303b2c 800 ("calc-forms" calcFunc-badd calcFunc-bsub
136211a9
EZ		 801calcFunc-date calcFunc-day calcFunc-dsadj calcFunc-hms
802calcFunc-holiday calcFunc-hour calcFunc-incmonth calcFunc-incyear
803calcFunc-intv calcFunc-julian calcFunc-makemod calcFunc-minute
804calcFunc-month calcFunc-newmonth calcFunc-newweek calcFunc-newyear
805calcFunc-now calcFunc-pwday calcFunc-sdev calcFunc-second
806calcFunc-time calcFunc-tzconv calcFunc-tzone calcFunc-unixtime
807calcFunc-weekday calcFunc-year calcFunc-yearday math-combine-intervals
808math-date-parts math-date-to-dt math-div-mod math-dt-to-date
809math-format-date math-from-business-day math-from-hms math-make-intv
810math-make-mod math-make-sdev math-mod-intv math-normalize-hms
811math-normalize-mod math-parse-date math-read-angle-brackets
812math-setup-add-holidays math-setup-holidays math-setup-year-holidays
813math-sort-intv math-to-business-day math-to-hms)
814
1b303b2c 815 ("calc-frac" calc-add-fractions
136211a9
EZ		 816calc-div-fractions calc-mul-fractions calcFunc-fdiv calcFunc-frac
817math-make-frac)
818
1b303b2c 819 ("calc-funcs" calc-prob-dist calcFunc-bern
136211a9
EZ		 820calcFunc-besJ calcFunc-besY calcFunc-beta calcFunc-betaB
821calcFunc-betaI calcFunc-erf calcFunc-erfc calcFunc-euler
822calcFunc-gamma calcFunc-gammaG calcFunc-gammaP calcFunc-gammaQ
823calcFunc-gammag calcFunc-ltpb calcFunc-ltpc calcFunc-ltpf
824calcFunc-ltpn calcFunc-ltpp calcFunc-ltpt calcFunc-utpb calcFunc-utpc
825calcFunc-utpf calcFunc-utpn calcFunc-utpp calcFunc-utpt
826math-bernoulli-number math-gammap1-raw)
827
1b303b2c 828 ("calc-graph" calc-graph-show-tty)
136211a9 829
1b303b2c 830 ("calc-incom" calc-digit-dots)
136211a9 831
1b303b2c 832 ("calc-keypd" calc-do-keypad
136211a9
EZ		 833calc-keypad-x-left-click calc-keypad-x-middle-click
834calc-keypad-x-right-click)
835
1b303b2c 836 ("calc-lang" calc-set-language
136211a9
EZ		 837math-read-big-balance math-read-big-rec)
838
1b303b2c 839 ("calc-map" calc-get-operator calcFunc-accum
136211a9
EZ		 840calcFunc-afixp calcFunc-anest calcFunc-apply calcFunc-call
841calcFunc-fixp calcFunc-inner calcFunc-map calcFunc-mapa calcFunc-mapc
842calcFunc-mapd calcFunc-mapeq calcFunc-mapeqp calcFunc-mapeqr
843calcFunc-mapr calcFunc-nest calcFunc-outer calcFunc-raccum
844calcFunc-reduce calcFunc-reducea calcFunc-reducec calcFunc-reduced
845calcFunc-reducer calcFunc-rreduce calcFunc-rreducea calcFunc-rreducec
846calcFunc-rreduced calcFunc-rreducer math-build-call
847math-calcFunc-to-var math-multi-subst math-multi-subst-rec
848math-var-to-calcFunc)
849
1b303b2c 850 ("calc-mtx" calcFunc-det calcFunc-lud calcFunc-tr
136211a9
EZ		 851math-col-matrix math-lud-solve math-matrix-inv-raw math-matrix-lud
852math-mul-mat-vec math-mul-mats math-row-matrix)
853
1b303b2c 854 ("calc-math" calcFunc-alog calcFunc-arccos
136211a9 855calcFunc-arccosh calcFunc-arcsin calcFunc-arcsincos calcFunc-arcsinh
86c88be7
JB		 856calcFunc-arctan calcFunc-arctan2 calcFunc-arctanh calcFunc-csc
857calcFunc-csch calcFunc-cos calcFunc-cosh calcFunc-cot calcFunc-coth
858calcFunc-deg calcFunc-exp calcFunc-exp10 calcFunc-expm1
136211a9 859calcFunc-hypot calcFunc-ilog calcFunc-isqrt calcFunc-ln calcFunc-lnp1
86c88be7
JB		 860calcFunc-log calcFunc-log10 calcFunc-nroot calcFunc-rad calcFunc-sec
861calcFunc-sech calcFunc-sin
136211a9
EZ		 862calcFunc-sincos calcFunc-sinh calcFunc-sqr calcFunc-sqrt calcFunc-tan
863calcFunc-tanh math-arccos-raw math-arcsin-raw math-arctan-raw
86c88be7
JB		 864math-arctan2-raw math-cos-raw math-cot-raw math-csc-raw
865math-exp-minus-1-raw math-exp-raw
136211a9
EZ		 866math-from-radians math-from-radians-2 math-hypot math-infinite-dir
867math-isqrt-small math-ln-raw math-nearly-equal math-nearly-equal-float
868math-nearly-zerop math-nearly-zerop-float math-nth-root
869math-sin-cos-raw math-sin-raw math-sqrt math-sqrt-float math-sqrt-raw
870math-tan-raw math-to-radians math-to-radians-2)
871
1b303b2c 872 ("calc-mode" math-get-modes-vec)
136211a9 873
1b303b2c 874 ("calc-poly" calcFunc-apart calcFunc-expand
136211a9
EZ		 875calcFunc-expandpow calcFunc-factor calcFunc-factors calcFunc-nrat
876calcFunc-pcont calcFunc-pdeg calcFunc-pdiv calcFunc-pdivide
877calcFunc-pdivrem calcFunc-pgcd calcFunc-plead calcFunc-pprim
878calcFunc-prem math-accum-factors math-atomic-factorp
879math-div-poly-const math-div-thru math-expand-power math-expand-term
880math-factor-contains math-factor-expr math-factor-expr-part
881math-factor-expr-try math-factor-finish math-factor-poly-coefs
882math-factor-protect math-mul-thru math-padded-polynomial
883math-partial-fractions math-poly-degree math-poly-deriv-coefs
884math-poly-gcd-frac-list math-poly-modulus-rec math-ratpoly-p
885math-to-ratpoly math-to-ratpoly-rec)
886
1b303b2c 887 ("calc-prog" calc-default-formula-arglist
136211a9
EZ		 888calc-execute-kbd-macro calc-finish-user-syntax-edit
889calc-fix-token-name calc-fix-user-formula calc-read-parse-table
890calc-read-parse-table-part calc-subsetp calc-write-parse-table
891calc-write-parse-table-part calcFunc-constant calcFunc-eq calcFunc-geq
892calcFunc-gt calcFunc-if calcFunc-in calcFunc-integer calcFunc-istrue
893calcFunc-land calcFunc-leq calcFunc-lnot calcFunc-lor calcFunc-lt
894calcFunc-negative calcFunc-neq calcFunc-nonvar calcFunc-real
895calcFunc-refers calcFunc-rmeq calcFunc-typeof calcFunc-variable
896math-body-refers-to math-break math-composite-inequalities
897math-do-defmath math-handle-for math-handle-foreach
898math-normalize-logical-op math-return)
899
1b303b2c 900 ("calc-rewr" calcFunc-match calcFunc-matches
136211a9
EZ		 901calcFunc-matchnot calcFunc-rewrite calcFunc-vmatches
902math-apply-rewrites math-compile-patterns math-compile-rewrites
903math-flatten-lands math-match-patterns math-rewrite
904math-rewrite-heads)
905
906 ("calc-rules" calc-CommuteRules calc-DistribRules calc-FactorRules
907calc-FitRules calc-IntegAfterRules calc-InvertRules calc-JumpRules
1b303b2c 908calc-MergeRules calc-NegateRules
136211a9
EZ		 909calc-compile-rule-set)
910
1b303b2c 911 ("calc-sel" calc-auto-selection
136211a9
EZ		 912calc-delete-selection calc-encase-atoms calc-find-assoc-parent-formula
913calc-find-parent-formula calc-find-sub-formula calc-prepare-selection
914calc-preserve-point calc-replace-selections calc-replace-sub-formula
915calc-roll-down-with-selections calc-roll-up-with-selections
916calc-sel-error)
917
1b303b2c 918 ("calc-stat" calc-vector-op calcFunc-agmean
136211a9
EZ		 919calcFunc-vcorr calcFunc-vcount calcFunc-vcov calcFunc-vflat
920calcFunc-vgmean calcFunc-vhmean calcFunc-vmax calcFunc-vmean
921calcFunc-vmeane calcFunc-vmedian calcFunc-vmin calcFunc-vpcov
922calcFunc-vprod calcFunc-vpsdev calcFunc-vpvar calcFunc-vsdev
923calcFunc-vsum calcFunc-vvar math-flatten-many-vecs)
924
1b303b2c 925 ("calc-store" calc-read-var-name
136211a9
EZ		 926calc-store-value calc-var-name)
927
1b303b2c 928 ("calc-stuff" calc-explain-why calcFunc-clean
136211a9
EZ		 929calcFunc-pclean calcFunc-pfloat calcFunc-pfrac)
930
1b303b2c 931 ("calc-units" calcFunc-usimplify
136211a9
EZ		 932math-build-units-table math-build-units-table-buffer
933math-check-unit-name math-convert-temperature math-convert-units
934math-extract-units math-remove-units math-simplify-units
935math-single-units-in-expr-p math-to-standard-units
936math-units-in-expr-p)
937
1b303b2c 938 ("calc-vec" calcFunc-append calcFunc-appendrev
136211a9
EZ		 939calcFunc-arrange calcFunc-cnorm calcFunc-cons calcFunc-cross
940calcFunc-ctrn calcFunc-cvec calcFunc-diag calcFunc-find
941calcFunc-getdiag calcFunc-grade calcFunc-head calcFunc-histogram
942calcFunc-idn calcFunc-index calcFunc-mcol calcFunc-mdims
943calcFunc-mrcol calcFunc-mrow calcFunc-mrrow calcFunc-pack
944calcFunc-rcons calcFunc-rdup calcFunc-rev calcFunc-rgrade
945calcFunc-rhead calcFunc-rnorm calcFunc-rsort calcFunc-rsubvec
946calcFunc-rtail calcFunc-sort calcFunc-subscr calcFunc-subvec
947calcFunc-tail calcFunc-trn calcFunc-unpack calcFunc-unpackt
948calcFunc-vcard calcFunc-vcompl calcFunc-vconcat calcFunc-vconcatrev
949calcFunc-vdiff calcFunc-vec calcFunc-venum calcFunc-vexp
950calcFunc-vfloor calcFunc-vint calcFunc-vlen calcFunc-vmask
951calcFunc-vpack calcFunc-vspan calcFunc-vunion calcFunc-vunpack
952calcFunc-vxor math-check-for-commas math-clean-set math-copy-matrix
953math-dimension-error math-dot-product math-flatten-vector math-map-vec
954math-map-vec-2 math-mat-col math-mimic-ident math-prepare-set
955math-read-brackets math-reduce-cols math-reduce-vec math-transpose)
956
1b303b2c 957 ("calc-yank" calc-alg-edit calc-clean-newlines
136211a9
EZ		 958calc-do-grab-rectangle calc-do-grab-region calc-finish-stack-edit
959calc-force-refresh calc-locate-cursor-element calc-show-edit-buffer)
960
961))
962
963 (mapcar (function (lambda (x)
964 (mapcar (function (lambda (cmd)
965 (autoload cmd (car x) nil t))) (cdr x))))
966 '(
967
968 ("calc-alg" calc-alg-evaluate calc-apart calc-collect calc-expand
969calc-expand-formula calc-factor calc-normalize-rat calc-poly-div
970calc-poly-div-rem calc-poly-gcd calc-poly-rem calc-simplify
3b2fad43 971calc-simplify-extended calc-substitute calc-powerexpand)
136211a9 972
4fdb78a1 973 ("calcalg2" calc-alt-summation calc-derivative
136211a9
EZ		 974calc-dump-integral-cache calc-integral calc-num-integral
975calc-poly-roots calc-product calc-solve-for calc-summation
976calc-tabulate calc-taylor)
977
4fdb78a1 978 ("calcalg3" calc-curve-fit calc-find-maximum calc-find-minimum
136211a9
EZ		 979calc-find-root calc-poly-interp)
980
981 ("calc-arith" calc-abs calc-abssqr calc-ceiling calc-decrement
982calc-floor calc-idiv calc-increment calc-mant-part calc-max calc-min
983calc-round calc-scale-float calc-sign calc-trunc calc-xpon-part)
984
985 ("calc-bin" calc-and calc-binary-radix calc-clip calc-decimal-radix
986calc-diff calc-hex-radix calc-leading-zeros calc-lshift-arith
987calc-lshift-binary calc-not calc-octal-radix calc-or calc-radix
988calc-rotate-binary calc-rshift-arith calc-rshift-binary calc-word-size
989calc-xor)
990
991 ("calc-comb" calc-choose calc-double-factorial calc-extended-gcd
992calc-factorial calc-gamma calc-gcd calc-lcm calc-moebius
993calc-next-prime calc-perm calc-prev-prime calc-prime-factors
994calc-prime-test calc-random calc-random-again calc-rrandom
995calc-shuffle calc-totient)
996
997 ("calc-cplx" calc-argument calc-complex-notation calc-i-notation
998calc-im calc-j-notation calc-polar calc-polar-mode calc-re)
999
1000 ("calc-embed" calc-embedded-copy-formula-as-kill
1001calc-embedded-duplicate calc-embedded-edit calc-embedded-forget
1002calc-embedded-kill-formula calc-embedded-mark-formula
1003calc-embedded-new-formula calc-embedded-next calc-embedded-previous
1004calc-embedded-select calc-embedded-update-formula calc-embedded-word
1005calc-find-globals calc-show-plain)
1006
1007 ("calc-fin" calc-convert-percent calc-fin-ddb calc-fin-fv
1008calc-fin-irr calc-fin-nper calc-fin-npv calc-fin-pmt calc-fin-pv
1009calc-fin-rate calc-fin-sln calc-fin-syd calc-percent-change)
1010
1011 ("calc-forms" calc-business-days-minus calc-business-days-plus
1012calc-convert-time-zones calc-date calc-date-notation calc-date-part
1013calc-from-hms calc-hms-mode calc-hms-notation calc-inc-month
1014calc-julian calc-new-month calc-new-week calc-new-year calc-now
1015calc-time calc-time-zone calc-to-hms calc-unix-time)
1016
1017 ("calc-frac" calc-fdiv calc-frac-mode calc-fraction
1018calc-over-notation calc-slash-notation)
1019
1020 ("calc-funcs" calc-bernoulli-number calc-bessel-J calc-bessel-Y
1021calc-beta calc-erf calc-erfc calc-euler-number calc-inc-beta
1022calc-inc-gamma calc-stirling-number calc-utpb calc-utpc calc-utpf
1023calc-utpn calc-utpp calc-utpt)
1024
1025 ("calc-graph" calc-graph-add calc-graph-add-3d calc-graph-border
1026calc-graph-clear calc-graph-command calc-graph-delete
1027calc-graph-device calc-graph-display calc-graph-fast
1028calc-graph-fast-3d calc-graph-geometry calc-graph-grid
1029calc-graph-header calc-graph-hide calc-graph-juggle calc-graph-key
1030calc-graph-kill calc-graph-line-style calc-graph-log-x
1031calc-graph-log-y calc-graph-log-z calc-graph-name
1032calc-graph-num-points calc-graph-output calc-graph-plot
1033calc-graph-point-style calc-graph-print calc-graph-quit
1034calc-graph-range-x calc-graph-range-y calc-graph-range-z
1035calc-graph-show-dumb calc-graph-title-x calc-graph-title-y
1036calc-graph-title-z calc-graph-view-commands calc-graph-view-trail
1037calc-graph-zero-x calc-graph-zero-y)
1038
1039 ("calc-help" calc-a-prefix-help calc-b-prefix-help calc-c-prefix-help
1040calc-d-prefix-help calc-describe-function calc-describe-key
1041calc-describe-key-briefly calc-describe-variable calc-f-prefix-help
1042calc-full-help calc-g-prefix-help calc-help-prefix
1043calc-hyperbolic-prefix-help calc-inv-hyp-prefix-help
1044calc-inverse-prefix-help calc-j-prefix-help calc-k-prefix-help
1045calc-m-prefix-help calc-r-prefix-help calc-s-prefix-help
1046calc-t-prefix-help calc-u-prefix-help calc-v-prefix-help)
1047
1048 ("calc-incom" calc-begin-complex calc-begin-vector calc-comma
1049calc-dots calc-end-complex calc-end-vector calc-semi)
1050
1051 ("calc-keypd" calc-keypad-menu calc-keypad-menu-back
1052calc-keypad-press)
1053
1054 ("calc-lang" calc-big-language calc-c-language calc-eqn-language
1055calc-flat-language calc-fortran-language calc-maple-language
1056calc-mathematica-language calc-normal-language calc-pascal-language
4617278c 1057calc-tex-language calc-latex-language calc-unformatted-language)
136211a9
EZ		 1058
1059 ("calc-map" calc-accumulate calc-apply calc-inner-product calc-map
1060calc-map-equation calc-map-stack calc-outer-product calc-reduce)
1061
4fdb78a1 1062 ("calc-mtx" calc-mdet calc-mlud calc-mtrace)
136211a9
EZ		 1063
1064 ("calc-math" calc-arccos calc-arccosh calc-arcsin calc-arcsinh
1065calc-arctan calc-arctan2 calc-arctanh calc-conj calc-cos calc-cosh
86c88be7 1066calc-cot calc-coth calc-csc calc-csch
136211a9
EZ		 1067calc-degrees-mode calc-exp calc-expm1 calc-hypot calc-ilog
1068calc-imaginary calc-isqrt calc-ln calc-lnp1 calc-log calc-log10
e80155aa 1069calc-pi calc-radians-mode calc-sec calc-sech
86c88be7 1070calc-sin calc-sincos calc-sinh calc-sqrt
136211a9
EZ		 1071calc-tan calc-tanh calc-to-degrees calc-to-radians)
1072
1073 ("calc-mode" calc-alg-simplify-mode calc-algebraic-mode
1074calc-always-load-extensions calc-auto-recompute calc-auto-why
1075calc-bin-simplify-mode calc-break-vectors calc-center-justify
1076calc-default-simplify-mode calc-display-raw calc-eng-notation
1077calc-ext-simplify-mode calc-fix-notation calc-full-trail-vectors
1078calc-full-vectors calc-get-modes calc-group-char calc-group-digits
1079calc-infinite-mode calc-left-justify calc-left-label
1080calc-line-breaking calc-line-numbering calc-matrix-brackets
1081calc-matrix-center-justify calc-matrix-left-justify calc-matrix-mode
1082calc-matrix-right-justify calc-mode-record-mode calc-no-simplify-mode
1083calc-normal-notation calc-num-simplify-mode calc-point-char
1084calc-right-justify calc-right-label calc-save-modes calc-sci-notation
1085calc-settings-file-name calc-shift-prefix calc-symbolic-mode
1086calc-total-algebraic-mode calc-truncate-down calc-truncate-stack
1087calc-truncate-up calc-units-simplify-mode calc-vector-braces
1088calc-vector-brackets calc-vector-commas calc-vector-parens
1089calc-working)
1090
1091 ("calc-prog" calc-call-last-kbd-macro calc-edit-user-syntax
1092calc-equal-to calc-get-user-defn calc-greater-equal calc-greater-than
1093calc-in-set calc-kbd-break calc-kbd-else calc-kbd-else-if
1094calc-kbd-end-for calc-kbd-end-if calc-kbd-end-loop calc-kbd-end-repeat
1095calc-kbd-for calc-kbd-if calc-kbd-loop calc-kbd-pop calc-kbd-push
1096calc-kbd-query calc-kbd-repeat calc-kbd-report calc-less-equal
1097calc-less-than calc-logical-and calc-logical-if calc-logical-not
1098calc-logical-or calc-not-equal-to calc-pass-errors calc-remove-equal
1099calc-timing calc-user-define calc-user-define-composition
1100calc-user-define-edit calc-user-define-formula
1101calc-user-define-invocation calc-user-define-kbd-macro
1102calc-user-define-permanent calc-user-undefine)
1103
1104 ("calc-rewr" calc-match calc-rewrite calc-rewrite-selection)
1105
1106 ("calc-sel" calc-break-selections calc-clear-selections
1107calc-copy-selection calc-del-selection calc-edit-selection
1108calc-enable-selections calc-enter-selection calc-sel-add-both-sides
1109calc-sel-div-both-sides calc-sel-evaluate calc-sel-expand-formula
1110calc-sel-mult-both-sides calc-sel-sub-both-sides
1111calc-select-additional calc-select-here calc-select-here-maybe
1112calc-select-less calc-select-more calc-select-next calc-select-once
1113calc-select-once-maybe calc-select-part calc-select-previous
1114calc-show-selections calc-unselect)
1115
4fdb78a1 1116 ("calcsel2" calc-commute-left calc-commute-right calc-sel-commute
136211a9
EZ		 1117calc-sel-distribute calc-sel-invert calc-sel-isolate
1118calc-sel-jump-equals calc-sel-merge calc-sel-negate calc-sel-unpack)
1119
1120 ("calc-stat" calc-vector-correlation calc-vector-count
1121calc-vector-covariance calc-vector-geometric-mean
1122calc-vector-harmonic-mean calc-vector-max calc-vector-mean
1123calc-vector-mean-error calc-vector-median calc-vector-min
1124calc-vector-pop-covariance calc-vector-pop-sdev
1125calc-vector-pop-variance calc-vector-product calc-vector-sdev
1126calc-vector-sum calc-vector-variance)
1127
2833f421
JB		 1128 ("calc-store" calc-assign calc-copy-special-constant
1129calc-copy-variable calc-declare-variable
136211a9
EZ		 1130calc-edit-AlgSimpRules calc-edit-Decls calc-edit-EvalRules
1131calc-edit-ExtSimpRules calc-edit-FitRules calc-edit-GenCount
1132calc-edit-Holidays calc-edit-IntegLimit calc-edit-LineStyles
1133calc-edit-PlotRejects calc-edit-PointStyles calc-edit-TimeZone
1134calc-edit-Units calc-edit-variable calc-evalto calc-insert-variables
1135calc-let calc-permanent-variable calc-recall calc-recall-quick
1136calc-store calc-store-concat calc-store-decr calc-store-div
1137calc-store-exchange calc-store-incr calc-store-into
1138calc-store-into-quick calc-store-inv calc-store-map calc-store-minus
1139calc-store-neg calc-store-plus calc-store-power calc-store-quick
1140calc-store-times calc-subscript calc-unstore)
1141
1142 ("calc-stuff" calc-clean calc-clean-num calc-flush-caches
1143calc-less-recursion-depth calc-more-recursion-depth calc-num-prefix
1144calc-version calc-why)
1145
1146 ("calc-trail" calc-trail-backward calc-trail-first calc-trail-forward
1147calc-trail-in calc-trail-isearch-backward calc-trail-isearch-forward
1148calc-trail-kill calc-trail-last calc-trail-marker calc-trail-next
1149calc-trail-out calc-trail-previous calc-trail-scroll-left
1150calc-trail-scroll-right calc-trail-yank)
1151
1152 ("calc-undo" calc-last-args calc-redo calc-undo)
1153
1154 ("calc-units" calc-autorange-units calc-base-units
1155calc-convert-temperature calc-convert-units calc-define-unit
1156calc-enter-units-table calc-explain-units calc-extract-units
1157calc-get-unit-definition calc-permanent-units calc-quick-units
1158calc-remove-units calc-simplify-units calc-undefine-unit
1159calc-view-units-table)
1160
1161 ("calc-vec" calc-arrange-vector calc-build-vector calc-cnorm
1162calc-conj-transpose calc-cons calc-cross calc-diag
1163calc-display-strings calc-expand-vector calc-grade calc-head
1164calc-histogram calc-ident calc-index calc-mask-vector calc-mcol
1165calc-mrow calc-pack calc-pack-bits calc-remove-duplicates
1166calc-reverse-vector calc-rnorm calc-set-cardinality
1167calc-set-complement calc-set-difference calc-set-enumerate
1168calc-set-floor calc-set-intersect calc-set-span calc-set-union
1169calc-set-xor calc-sort calc-subvector calc-tail calc-transpose
1170calc-unpack calc-unpack-bits calc-vector-find calc-vlength)
1171
1172 ("calc-yank" calc-copy-as-kill calc-copy-region-as-kill
1173calc-copy-to-buffer calc-edit calc-edit-cancel calc-edit-mode
3132f345 1174calc-kill calc-kill-region calc-yank))))
136211a9
EZ		 1175
1176(defun calc-init-prefixes ()
1177 (if calc-shift-prefix
1178 (progn
1179 (define-key calc-mode-map "A" (lookup-key calc-mode-map "a"))
1180 (define-key calc-mode-map "B" (lookup-key calc-mode-map "b"))
1181 (define-key calc-mode-map "C" (lookup-key calc-mode-map "c"))
1182 (define-key calc-mode-map "D" (lookup-key calc-mode-map "d"))
1183 (define-key calc-mode-map "F" (lookup-key calc-mode-map "f"))
1184 (define-key calc-mode-map "G" (lookup-key calc-mode-map "g"))
1185 (define-key calc-mode-map "J" (lookup-key calc-mode-map "j"))
1186 (define-key calc-mode-map "K" (lookup-key calc-mode-map "k"))
1187 (define-key calc-mode-map "M" (lookup-key calc-mode-map "m"))
1188 (define-key calc-mode-map "S" (lookup-key calc-mode-map "s"))
1189 (define-key calc-mode-map "T" (lookup-key calc-mode-map "t"))
1190 (define-key calc-mode-map "U" (lookup-key calc-mode-map "u")))
1191 (define-key calc-mode-map "A" 'calc-abs)
1192 (define-key calc-mode-map "B" 'calc-log)
1193 (define-key calc-mode-map "C" 'calc-cos)
1194 (define-key calc-mode-map "D" 'calc-redo)
1195 (define-key calc-mode-map "F" 'calc-floor)
1196 (define-key calc-mode-map "G" 'calc-argument)
1197 (define-key calc-mode-map "J" 'calc-conj)
1198 (define-key calc-mode-map "K" 'calc-keep-args)
1199 (define-key calc-mode-map "M" 'calc-more-recursion-depth)
1200 (define-key calc-mode-map "S" 'calc-sin)
1201 (define-key calc-mode-map "T" 'calc-tan)
cce7e5a6 1202 (define-key calc-mode-map "U" 'calc-undo)))
136211a9
EZ		 1203
1204(calc-init-extensions)
1205
1206
1207
1208
1209;;;; Miscellaneous.
1210
90b44097
JB		 1211;; calc-command-flags is declared in calc.el
1212(defvar calc-command-flags)
1213
136211a9 1214(defun calc-clear-command-flag (f)
cce7e5a6 1215 (setq calc-command-flags (delq f calc-command-flags)))
136211a9
EZ		 1216
1217
1218(defun calc-record-message (tag &rest args)
1219 (let ((msg (apply 'format args)))
1220 (message "%s" msg)
1221 (calc-record msg tag))
cce7e5a6 1222 (calc-clear-command-flag 'clear-message))
136211a9
EZ		 1223
1224
1225(defun calc-normalize-fancy (val)
1226 (let ((simp (if (consp calc-simplify-mode)
1227 (car calc-simplify-mode)
1228 calc-simplify-mode)))
1229 (cond ((eq simp 'binary)
1230 (let ((s (math-normalize val)))
1231 (if (math-realp s)
1232 (math-clip (math-round s))
1233 s)))
1234 ((eq simp 'alg)
1235 (math-simplify val))
1236 ((eq simp 'ext)
1237 (math-simplify-extended val))
1238 ((eq simp 'units)
1239 (math-simplify-units val))
1240 (t ; nil, none, num
cce7e5a6 1241 (math-normalize val)))))
136211a9
EZ		 1242
1243
430c8528 1244(defvar calc-help-map nil)
136211a9 1245
430c8528 1246(if calc-help-map
136211a9
EZ		 1247 nil
1248 (setq calc-help-map (make-keymap))
1249 (define-key calc-help-map "b" 'calc-describe-bindings)
1250 (define-key calc-help-map "c" 'calc-describe-key-briefly)
1251 (define-key calc-help-map "f" 'calc-describe-function)
1252 (define-key calc-help-map "h" 'calc-full-help)
1253 (define-key calc-help-map "i" 'calc-info)
1254 (define-key calc-help-map "k" 'calc-describe-key)
1255 (define-key calc-help-map "n" 'calc-view-news)
1256 (define-key calc-help-map "s" 'calc-info-summary)
1257 (define-key calc-help-map "t" 'calc-tutorial)
1258 (define-key calc-help-map "v" 'calc-describe-variable)
1259 (define-key calc-help-map "\C-c" 'calc-describe-copying)
1260 (define-key calc-help-map "\C-d" 'calc-describe-distribution)
1261 (define-key calc-help-map "\C-n" 'calc-view-news)
1262 (define-key calc-help-map "\C-w" 'calc-describe-no-warranty)
1263 (define-key calc-help-map "?" 'calc-help-for-help)
cce7e5a6 1264 (define-key calc-help-map "\C-h" 'calc-help-for-help))
136211a9 1265
3132f345 1266(defvar calc-prefix-help-phase 0)
136211a9
EZ		 1267(defun calc-do-prefix-help (msgs group key)
1268 (if calc-full-help-flag
1269 (list msgs group key)
1270 (if (cdr msgs)
1271 (progn
1272 (setq calc-prefix-help-phase
1273 (if (eq this-command last-command)
1274 (% (1+ calc-prefix-help-phase) (1+ (length msgs)))
1275 0))
1276 (let ((msg (nth calc-prefix-help-phase msgs)))
1277 (message "%s" (if msg
1278 (concat group ": " msg ":"
1279 (make-string
1280 (- (apply 'max (mapcar 'length msgs))
1281 (length msg)) 32)
1282 " [MORE]"
1283 (if key
1284 (concat " " (char-to-string key)
1285 "-")
1286 ""))
1287 (if key (format "%c-" key) "")))))
1288 (setq calc-prefix-help-phase 0)
1289 (if key
1290 (if msgs
1291 (message "%s: %s: %c-" group (car msgs) key)
79cd7893 1292 (message "%s: (none) %c-" group key))
136211a9 1293 (message "%s: %s" group (car msgs))))
cce7e5a6 1294 (and key (calc-unread-command key))))
136211a9
EZ		 1295
1296;;;; Commands.
1297
1298
1299;;; General.
1300
1301(defun calc-reset (arg)
1302 (interactive "P")
9ab8041d 1303 (setq arg (if arg (prefix-numeric-value arg) nil))
980bb32d
JB		 1304 (cond
1305 ((and
1306 calc-embedded-info
1307 (equal (aref calc-embedded-info 0) (current-buffer))
1308 (<= (point) (aref calc-embedded-info 5))
1309 (>= (point) (aref calc-embedded-info 4)))
1310 (let ((cbuf (aref calc-embedded-info 1))
1311 (calc-embedded-quiet t))
1312 (save-window-excursion
1313 (calc-embedded nil)
1314 (set-buffer cbuf)
1315 (calc-reset arg))
1316 (calc-embedded nil)))
1317 ((eq major-mode 'calc-mode)
1318 (save-excursion
1319 (unless (and arg (> (abs arg) 0))
1320 (setq calc-stack nil))
1321 (setq calc-undo-list nil
1322 calc-redo-list nil)
1323 (let (calc-stack calc-user-parse-tables calc-standard-date-formats
1324 calc-invocation-macro)
e80155aa 1325 (mapc (function (lambda (v) (set v nil))) calc-local-var-list)
980bb32d
JB		 1326 (if (and arg (<= arg 0))
1327 (calc-mode-var-list-restore-default-values)
1328 (calc-mode-var-list-restore-saved-values)))
1329 (calc-set-language nil nil t)
1330 (calc-mode)
1331 (calc-flush-caches t)
1332 (run-hooks 'calc-reset-hook))
1333 (calc-wrapper
1334 (let ((win (get-buffer-window (current-buffer))))
1335 (calc-realign 0)
1336 ;; Adjust the window height if the window is visible, but doesn't
1337 ;; take up the whole height of the frame.
1338 (if (and
1339 win
1340 (< (window-height win) (1- (frame-height))))
1341 (let ((height (- (window-height win) 2)))
1342 (set-window-point win (point))
1343 (or (= height calc-window-height)
1344 (let ((swin (selected-window)))
1345 (select-window win)
1346 (enlarge-window (- calc-window-height height))
1347 (select-window swin)))))))
1348 (message "(Calculator reset)"))
1349 (t
1350 (message "(Not inside a Calc buffer)"))))
136211a9 1351
960e24e7 1352;; What a pain; scroll-left behaves differently when called non-interactively.
136211a9
EZ		 1353(defun calc-scroll-left (n)
1354 (interactive "P")
960e24e7
CW		 1355 (setq prefix-arg (or n (/ (window-width) 2)))
1356 (call-interactively #'scroll-left))
136211a9
EZ		 1357
1358(defun calc-scroll-right (n)
1359 (interactive "P")
960e24e7
CW		 1360 (setq prefix-arg (or n (/ (window-width) 2)))
1361 (call-interactively #'scroll-right))
136211a9
EZ		 1362
1363(defun calc-scroll-up (n)
1364 (interactive "P")
1365 (condition-case err
1366 (scroll-up (or n (/ (window-height) 2)))
1367 (error nil))
1368 (if (pos-visible-in-window-p (max 1 (- (point-max) 2)))
1369 (if (eq major-mode 'calc-mode)
1370 (calc-realign)
1371 (goto-char (point-max))
1372 (set-window-start (selected-window)
1373 (save-excursion
1374 (forward-line (- (1- (window-height))))
1375 (point)))
cce7e5a6 1376 (forward-line -1))))
136211a9
EZ		 1377
1378(defun calc-scroll-down (n)
1379 (interactive "P")
1380 (or (pos-visible-in-window-p 1)
cce7e5a6 1381 (scroll-down (or n (/ (window-height) 2)))))
136211a9
EZ		 1382
1383
1384(defun calc-precision (n)
1385 (interactive "NPrecision: ")
1386 (calc-wrapper
1387 (if (< (prefix-numeric-value n) 3)
3132f345 1388 (error "Precision must be at least 3 digits")
136211a9
EZ		 1389 (calc-change-mode 'calc-internal-prec (prefix-numeric-value n)
1390 (and (memq (car calc-float-format) '(float sci eng))
1391 (< (nth 1 calc-float-format)
1392 (if (= calc-number-radix 10) 0 1))))
1393 (calc-record calc-internal-prec "prec"))
3132f345 1394 (message "Floating-point precision is %d digits" calc-internal-prec)))
136211a9
EZ		 1395
1396
1397(defun calc-inverse (&optional n)
1398 (interactive "P")
93d8d5a8
JB		 1399 (let* ((hyp-flag (if (or
1400 (eq major-mode 'calc-keypad-mode)
1401 (eq major-mode 'calc-trail-mode))
d5639b35
JB		 1402 (with-current-buffer calc-main-buffer
1403 calc-hyperbolic-flag)
1404 calc-hyperbolic-flag))
e80155aa 1405 (msg (if hyp-flag
d5639b35
JB		 1406 "Inverse Hyperbolic..."
1407 "Inverse...")))
1408 (calc-fancy-prefix 'calc-inverse-flag msg n)))
136211a9 1409
8391faa1
EZ		 1410(defconst calc-fancy-prefix-map
1411 (let ((map (make-sparse-keymap)))
1412 (define-key map [t] 'calc-fancy-prefix-other-key)
1413 (define-key map (vector meta-prefix-char t) 'calc-fancy-prefix-other-key)
1414 (define-key map [switch-frame] nil)
1415 (define-key map [?\C-u] 'universal-argument)
1416 (define-key map [?0] 'digit-argument)
1417 (define-key map [?1] 'digit-argument)
1418 (define-key map [?2] 'digit-argument)
1419 (define-key map [?3] 'digit-argument)
1420 (define-key map [?4] 'digit-argument)
1421 (define-key map [?5] 'digit-argument)
1422 (define-key map [?6] 'digit-argument)
1423 (define-key map [?7] 'digit-argument)
1424 (define-key map [?8] 'digit-argument)
1425 (define-key map [?9] 'digit-argument)
1426 map)
1427 "Keymap used while processing calc-fancy-prefix.")
1428
3132f345 1429(defvar calc-is-keypad-press nil)
136211a9
EZ		 1430(defun calc-fancy-prefix (flag msg n)
1431 (let (prefix)
1432 (calc-wrapper
1433 (calc-set-command-flag 'keep-flags)
1434 (calc-set-command-flag 'no-align)
1435 (setq prefix (set flag (not (symbol-value flag)))
1436 prefix-arg n)
274f1353 1437 (message "%s" (if prefix msg "")))
136211a9 1438 (and prefix
136211a9 1439 (not calc-is-keypad-press)
8391faa1
EZ		 1440 (if (boundp 'overriding-terminal-local-map)
1441 (setq overriding-terminal-local-map calc-fancy-prefix-map)
1442 (let ((event (calc-read-key t)))
1443 (if (eq (setq last-command-char (car event)) ?\C-u)
1444 (universal-argument)
1445 (if (or (not (integerp last-command-char))
1446 (and (>= last-command-char 0) (< last-command-char ? )
1447 (not (memq last-command-char '(?\e)))))
1448 (calc-wrapper)) ; clear flags if not a Calc command.
da8937c1 1449 (setq last-command-event (cdr event))
8391faa1
EZ		 1450 (if (or (not (integerp last-command-char))
1451 (eq last-command-char ?-))
1452 (calc-unread-command)
1453 (digit-argument n))))))))
136211a9 1454
8391faa1
EZ		 1455(defun calc-fancy-prefix-other-key (arg)
1456 (interactive "P")
7679290d
JB		 1457 (if (and
1458 (not (eq last-command-char 'tab))
1459 (not (eq last-command-char 'M-tab))
1460 (or (not (integerp last-command-char))
1461 (and (>= last-command-char 0) (< last-command-char ? )
1462 (not (eq last-command-char meta-prefix-char)))))
8391faa1 1463 (calc-wrapper)) ; clear flags if not a Calc command.
3a91dd3e 1464 (setq prefix-arg arg)
8391faa1
EZ		 1465 (calc-unread-command)
1466 (setq overriding-terminal-local-map nil))
1467
136211a9
EZ		 1468(defun calc-invert-func ()
1469 (save-excursion
1470 (calc-select-buffer)
1471 (setq calc-inverse-flag (not (calc-is-inverse))
1472 calc-hyperbolic-flag (calc-is-hyperbolic)
cce7e5a6 1473 current-prefix-arg nil)))
136211a9
EZ		 1474
1475(defun calc-is-inverse ()
cce7e5a6 1476 calc-inverse-flag)
136211a9
EZ		 1477
1478(defun calc-hyperbolic (&optional n)
1479 (interactive "P")
93d8d5a8
JB		 1480 (let* ((inv-flag (if (or
1481 (eq major-mode 'calc-keypad-mode)
1482 (eq major-mode 'calc-trail-mode))
d5639b35
JB		 1483 (with-current-buffer calc-main-buffer
1484 calc-inverse-flag)
1485 calc-inverse-flag))
e80155aa 1486 (msg (if inv-flag
d5639b35
JB		 1487 "Inverse Hyperbolic..."
1488 "Hyperbolic...")))
1489 (calc-fancy-prefix 'calc-hyperbolic-flag msg n)))
136211a9
EZ		 1490
1491(defun calc-hyperbolic-func ()
1492 (save-excursion
1493 (calc-select-buffer)
1494 (setq calc-inverse-flag (calc-is-inverse)
1495 calc-hyperbolic-flag (not (calc-is-hyperbolic))
cce7e5a6 1496 current-prefix-arg nil)))
136211a9
EZ		 1497
1498(defun calc-is-hyperbolic ()
cce7e5a6 1499 calc-hyperbolic-flag)
136211a9
EZ		 1500
1501(defun calc-keep-args (&optional n)
1502 (interactive "P")
cce7e5a6 1503 (calc-fancy-prefix 'calc-keep-args-flag "Keep args..." n))
136211a9
EZ		 1504
1505
1506(defun calc-change-mode (var value &optional refresh option)
1507 (if option
1508 (setq value (if value
1509 (> (prefix-numeric-value value) 0)
1510 (not (symbol-value var)))))
1511 (or (consp var) (setq var (list var) value (list value)))
1512 (if calc-inverse-flag
1513 (let ((old nil))
1514 (or refresh (error "Not a display-mode command"))
1515 (calc-check-stack 1)
1516 (unwind-protect
1517 (let ((v var))
1518 (while v
1519 (setq old (cons (symbol-value (car v)) old))
1520 (set (car v) (car value))
1521 (setq v (cdr v)
1522 value (cdr value)))
1523 (calc-refresh-top 1)
1524 (calc-refresh-evaltos)
1525 (symbol-value (car var)))
1526 (let ((v var))
1527 (setq old (nreverse old))
1528 (while v
1529 (set (car v) (car old))
1530 (setq v (cdr v)
1531 old (cdr old)))
1532 (if (eq (car var) 'calc-language)
1533 (calc-set-language calc-language calc-language-option t)))))
1534 (let ((chg nil)
1535 (v var))
1536 (while v
1537 (or (equal (symbol-value (car v)) (car value))
1538 (progn
1539 (set (car v) (car value))
1540 (if (eq (car v) 'calc-float-format)
1541 (setq calc-full-float-format
1542 (list (if (eq (car (car value)) 'fix)
1543 'float
1544 (car (car value)))
1545 0)))
1546 (setq chg t)))
1547 (setq v (cdr v)
1548 value (cdr value)))
1549 (if chg
1550 (progn
1551 (or (and refresh (calc-do-refresh))
1552 (calc-refresh-evaltos))
1553 (and (eq calc-mode-save-mode 'save)
1554 (not (equal var '(calc-mode-save-mode)))
2528da6a 1555 (calc-save-modes))))
136211a9 1556 (if calc-embedded-info (calc-embedded-modes-change var))
cce7e5a6 1557 (symbol-value (car var)))))
136211a9 1558
4813c362
MB		 1559(defun calc-toggle-banner ()
1560 "Toggle display of the friendly greeting calc normally shows above the stack."
1561 (interactive)
1562 (setq calc-show-banner (not calc-show-banner))
1563 (calc-refresh))
1564
136211a9
EZ		 1565(defun calc-refresh-top (n)
1566 (interactive "p")
1567 (calc-wrapper
1568 (cond ((< n 0)
1569 (setq n (- n))
1570 (let ((entry (calc-top n 'entry))
1571 (calc-undo-list nil) (calc-redo-list nil))
1572 (calc-pop-stack 1 n t)
1573 (calc-push-list (list (car entry)) n (list (nth 2 entry)))))
1574 ((= n 0)
1575 (calc-refresh))
1576 (t
1577 (let ((entries (calc-top-list n 1 'entry))
1578 (calc-undo-list nil) (calc-redo-list nil))
1579 (calc-pop-stack n 1 t)
1580 (calc-push-list (mapcar 'car entries)
1581 1
1582 (mapcar (function (lambda (x) (nth 2 x)))
cce7e5a6 1583 entries)))))))
136211a9 1584
3132f345
CW		 1585(defvar calc-refreshing-evaltos nil)
1586(defvar calc-no-refresh-evaltos nil)
136211a9
EZ		 1587(defun calc-refresh-evaltos (&optional which-var)
1588 (and calc-any-evaltos calc-auto-recompute (not calc-no-refresh-evaltos)
1589 (let ((calc-refreshing-evaltos t)
1590 (num (calc-stack-size))
1591 (calc-undo-list nil) (calc-redo-list nil)
1592 value new-val)
1593 (while (> num 0)
1594 (setq value (calc-top num 'entry))
1595 (if (and (not (nth 2 value))
1596 (setq value (car value))
1597 (or (eq (car-safe value) 'calcFunc-evalto)
1598 (and (eq (car-safe value) 'vec)
1599 (eq (car-safe (nth 1 value)) 'calcFunc-evalto))))
1600 (progn
1601 (setq new-val (math-normalize value))
1602 (or (equal new-val value)
1603 (progn
1604 (calc-push-list (list new-val) num)
1605 (calc-pop-stack 1 (1+ num) t)))))
1606 (setq num (1- num)))))
1607 (and calc-embedded-active which-var
cce7e5a6 1608 (calc-embedded-var-change which-var)))
136211a9 1609
136211a9 1610(defun calc-push (&rest vals)
cce7e5a6 1611 (calc-push-list vals))
136211a9
EZ		 1612
1613(defun calc-pop-push (n &rest vals)
cce7e5a6 1614 (calc-pop-push-list n vals))
136211a9
EZ		 1615
1616(defun calc-pop-push-record (n prefix &rest vals)
cce7e5a6 1617 (calc-pop-push-record-list n prefix vals))
136211a9
EZ		 1618
1619
1620(defun calc-evaluate (n)
1621 (interactive "p")
1622 (calc-slow-wrapper
1623 (if (= n 0)
1624 (setq n (calc-stack-size)))
1625 (calc-with-default-simplification
1626 (if (< n 0)
1627 (calc-pop-push-record-list 1 "eval"
1628 (math-evaluate-expr (calc-top (- n)))
1629 (- n))
1630 (calc-pop-push-record-list n "eval" (mapcar 'math-evaluate-expr
1631 (calc-top-list n)))))
cce7e5a6 1632 (calc-handle-whys)))
136211a9
EZ		 1633
1634
1635(defun calc-eval-num (n)
1636 (interactive "P")
1637 (calc-slow-wrapper
1638 (let* ((nn (prefix-numeric-value n))
1639 (calc-internal-prec (cond ((>= nn 3) nn)
1640 ((< nn 0) (max (+ calc-internal-prec nn)
1641 3))
1642 (t calc-internal-prec)))
1643 (calc-symbolic-mode nil))
1644 (calc-with-default-simplification
1645 (calc-pop-push-record 1 "num" (math-evaluate-expr (calc-top 1)))))
cce7e5a6 1646 (calc-handle-whys)))
136211a9
EZ		 1647
1648
1649(defun calc-execute-extended-command (n)
1650 (interactive "P")
1651 (let* ((prompt (concat (calc-num-prefix-name n) "M-x "))
1652 (cmd (intern (completing-read prompt obarray 'commandp t "calc-"))))
1653 (setq prefix-arg n)
cce7e5a6 1654 (command-execute cmd)))
136211a9
EZ		 1655
1656
1657(defun calc-realign (&optional num)
1658 (interactive "P")
1659 (if (and num (eq major-mode 'calc-mode))
1660 (progn
1661 (calc-check-stack num)
1662 (calc-cursor-stack-index num)
1663 (and calc-line-numbering
1664 (forward-char 4)))
1665 (if (and calc-embedded-info
1666 (eq (current-buffer) (aref calc-embedded-info 0)))
1667 (progn
1668 (goto-char (aref calc-embedded-info 2))
1669 (if (save-excursion (set-buffer (aref calc-embedded-info 1))
1670 calc-show-plain)
1671 (forward-line 1)))
1672 (calc-wrapper
1673 (if (get-buffer-window (current-buffer))
cce7e5a6 1674 (set-window-hscroll (get-buffer-window (current-buffer)) 0))))))
136211a9 1675
3132f345 1676(defvar math-cache-list nil)
136211a9
EZ		 1677
1678(defun calc-var-value (v)
1679 (and (symbolp v)
1680 (boundp v)
1681 (symbol-value v)
1682 (if (symbolp (symbol-value v))
1683 (set v (funcall (symbol-value v)))
1684 (if (stringp (symbol-value v))
1685 (let ((val (math-read-expr (symbol-value v))))
1686 (if (eq (car-safe val) 'error)
1687 (error "Bad format in variable contents: %s" (nth 2 val))
1688 (set v val)))
cce7e5a6 1689 (symbol-value v)))))
136211a9 1690
136211a9
EZ		 1691;;; In the following table, ( OP LOPS ROPS ) means that if an OP
1692;;; term appears as the first argument to any LOPS term, or as the
1693;;; second argument to any ROPS term, then they should be treated
1694;;; as one large term for purposes of associative selection.
1695(defconst calc-assoc-ops '( ( + ( + - ) ( + ) )
1696 ( - ( + - ) ( + ) )
1697 ( * ( * ) ( * ) )
1698 ( / ( / ) ( ) )
1699 ( | ( | ) ( | ) )
a1506d29 1700 ( calcFunc-land ( calcFunc-land )
136211a9 1701 ( calcFunc-land ) )
a1506d29 1702 ( calcFunc-lor ( calcFunc-lor )
136211a9
EZ		 1703 ( calcFunc-lor ) ) ))
1704
1705
1706(defvar var-CommuteRules 'calc-CommuteRules)
1707(defvar var-JumpRules 'calc-JumpRules)
1708(defvar var-DistribRules 'calc-DistribRules)
1709(defvar var-MergeRules 'calc-MergeRules)
1710(defvar var-NegateRules 'calc-NegateRules)
1711(defvar var-InvertRules 'calc-InvertRules)
1712
1713
1714(defconst calc-tweak-eqn-table '( ( calcFunc-eq calcFunc-eq calcFunc-neq )
1715 ( calcFunc-neq calcFunc-neq calcFunc-eq )
1716 ( calcFunc-lt calcFunc-gt calcFunc-geq )
1717 ( calcFunc-gt calcFunc-lt calcFunc-leq )
1718 ( calcFunc-leq calcFunc-geq calcFunc-gt )
1719 ( calcFunc-geq calcFunc-leq calcFunc-lt ) ))
1720
1721
1722
1723
1724(defun calc-float (arg)
1725 (interactive "P")
1726 (calc-slow-wrapper
1727 (calc-unary-op "flt"
1728 (if (calc-is-hyperbolic) 'calcFunc-float 'calcFunc-pfloat)
cce7e5a6 1729 arg)))
136211a9
EZ		 1730
1731
1732(defvar calc-gnuplot-process nil)
90b44097
JB		 1733(defvar calc-gnuplot-input)
1734(defvar calc-gnuplot-buffer)
136211a9
EZ		 1735
1736(defun calc-gnuplot-alive ()
1737 (and calc-gnuplot-process
1738 calc-gnuplot-buffer
1739 (buffer-name calc-gnuplot-buffer)
1740 calc-gnuplot-input
1741 (buffer-name calc-gnuplot-input)
cce7e5a6 1742 (memq (process-status calc-gnuplot-process) '(run stop))))
136211a9
EZ		 1743
1744
1745
1746
1747
1748(defun calc-load-everything ()
1749 (interactive)
1b303b2c
JB		 1750 (require 'calc-aent)
1751 (require 'calc-alg)
1752 (require 'calc-arith)
1753 (require 'calc-bin)
1754 (require 'calc-comb)
1755 (require 'calc-cplx)
1756 (require 'calc-embed)
1757 (require 'calc-fin)
1758 (require 'calc-forms)
1759 (require 'calc-frac)
1760 (require 'calc-funcs)
1761 (require 'calc-graph)
1762 (require 'calc-help)
1763 (require 'calc-incom)
1764 (require 'calc-keypd)
1765 (require 'calc-lang)
1766 (require 'calc-macs)
1767 (require 'calc-map)
1768 (require 'calc-math)
1769 (require 'calc-misc)
1770 (require 'calc-mode)
1771 (require 'calc-mtx)
1772 (require 'calc-poly)
1773 (require 'calc-prog)
1774 (require 'calc-rewr)
1775 (require 'calc-rules)
1776 (require 'calc-sel)
1777 (require 'calc-stat)
1778 (require 'calc-store)
1779 (require 'calc-stuff)
1780 (require 'calc-trail)
1781 (require 'calc-undo)
1782 (require 'calc-units)
1783 (require 'calc-vec)
1784 (require 'calc-yank)
1785 (require 'calcalg2)
1786 (require 'calcalg3)
1787 (require 'calccomp)
1788 (require 'calcsel2)
136211a9 1789
3132f345 1790 (message "All parts of Calc are now loaded"))
136211a9
EZ		 1791
1792
1793;;; Vector commands.
1794
1795(defun calc-concat (arg)
1796 (interactive "P")
1797 (calc-wrapper
1798 (if (calc-is-inverse)
1799 (if (calc-is-hyperbolic)
1800 (calc-enter-result 2 "apnd" (list 'calcFunc-append
1801 (calc-top 1) (calc-top 2)))
1802 (calc-enter-result 2 "|" (list 'calcFunc-vconcat
1803 (calc-top 1) (calc-top 2))))
1804 (if (calc-is-hyperbolic)
1805 (calc-binary-op "apnd" 'calcFunc-append arg '(vec))
cce7e5a6 1806 (calc-binary-op "|" 'calcFunc-vconcat arg '(vec) nil '|)))))
136211a9
EZ		 1807
1808(defun calc-append (arg)
1809 (interactive "P")
1810 (calc-hyperbolic-func)
cce7e5a6 1811 (calc-concat arg))
136211a9
EZ		 1812
1813
1814(defconst calc-arg-values '( ( var ArgA var-ArgA ) ( var ArgB var-ArgB )
1815 ( var ArgC var-ArgC ) ( var ArgD var-ArgD )
1816 ( var ArgE var-ArgE ) ( var ArgF var-ArgF )
1817 ( var ArgG var-ArgG ) ( var ArgH var-ArgH )
1818 ( var ArgI var-ArgI ) ( var ArgJ var-ArgJ )
1819))
1820
1821(defun calc-invent-args (n)
cce7e5a6 1822 (nreverse (nthcdr (- (length calc-arg-values) n) (reverse calc-arg-values))))
136211a9
EZ		 1823
1824
1825
1826
1827;;; User menu.
1828
1829(defun calc-user-key-map ()
6546555e
DN		 1830 (if (featurep 'xemacs)
1831 (error "User-defined keys are not supported in XEmacs"))
136211a9
EZ		 1832 (let ((res (cdr (lookup-key calc-mode-map "z"))))
1833 (if (eq (car (car res)) 27)
1834 (cdr res)
cce7e5a6 1835 res)))
136211a9 1836
722401eb
JB		 1837(defvar calc-z-prefix-buf nil)
1838(defvar calc-z-prefix-msgs nil)
1839
136211a9
EZ		 1840(defun calc-z-prefix-help ()
1841 (interactive)
722401eb
JB		 1842 (let* ((calc-z-prefix-msgs nil)
1843 (calc-z-prefix-buf "")
136211a9
EZ		 1844 (kmap (sort (copy-sequence (calc-user-key-map))
1845 (function (lambda (x y) (< (car x) (car y))))))
1846 (flags (apply 'logior
1847 (mapcar (function
1848 (lambda (k)
1849 (calc-user-function-classify (car k))))
1850 kmap))))
1851 (if (= (logand flags 8) 0)
1852 (calc-user-function-list kmap 7)
1853 (calc-user-function-list kmap 1)
722401eb
JB		 1854 (setq calc-z-prefix-msgs (cons calc-z-prefix-buf calc-z-prefix-msgs)
1855 calc-z-prefix-buf "")
136211a9
EZ		 1856 (calc-user-function-list kmap 6))
1857 (if (/= flags 0)
722401eb
JB		 1858 (setq calc-z-prefix-msgs (cons calc-z-prefix-buf calc-z-prefix-msgs)))
1859 (calc-do-prefix-help (nreverse calc-z-prefix-msgs) "user" ?z)))
136211a9
EZ		 1860
1861(defun calc-user-function-classify (key)
1862 (cond ((/= key (downcase key)) ; upper-case
1863 (if (assq (downcase key) (calc-user-key-map)) 9 1))
1864 ((/= key (upcase key)) 2) ; lower-case
1865 ((= key ??) 0)
cce7e5a6 1866 (t 4))) ; other
136211a9
EZ		 1867
1868(defun calc-user-function-list (map flags)
1869 (and map
1870 (let* ((key (car (car map)))
1871 (kind (calc-user-function-classify key))
1872 (func (cdr (car map))))
1873 (if (or (= (logand kind flags) 0)
1874 (not (symbolp func)))
1875 ()
1876 (let* ((name (symbol-name func))
1877 (name (if (string-match "\\`calc-" name)
1878 (substring name 5) name))
1879 (pos (string-match (char-to-string key) name))
1880 (desc
1881 (if (symbolp func)
1882 (if (= (logand kind 3) 0)
1883 (format "`%c' = %s" key name)
1884 (if pos
1885 (format "%s%c%s"
1886 (downcase (substring name 0 pos))
1887 (upcase key)
1888 (downcase (substring name (1+ pos))))
1889 (format "%c = %s"
1890 (upcase key)
1891 (downcase name))))
1892 (char-to-string (upcase key)))))
722401eb
JB		 1893 (if (= (length calc-z-prefix-buf) 0)
1894 (setq calc-z-prefix-buf (concat (if (= flags 1) "SHIFT + " "")
136211a9 1895 desc))
722401eb 1896 (if (> (+ (length calc-z-prefix-buf) (length desc)) 58)
e80155aa 1897 (setq calc-z-prefix-msgs
722401eb
JB		 1898 (cons calc-z-prefix-buf calc-z-prefix-msgs)
1899 calc-z-prefix-buf (concat (if (= flags 1) "SHIFT + " "")
136211a9 1900 desc))
722401eb 1901 (setq calc-z-prefix-buf (concat calc-z-prefix-buf ", " desc))))))
cce7e5a6 1902 (calc-user-function-list (cdr map) flags))))
136211a9
EZ		 1903
1904
1905
1906(defun calc-shift-Z-prefix-help ()
1907 (interactive)
1908 (calc-do-prefix-help
1909 '("Define, Undefine, Formula, Kbd-macro, Edit, Get-defn"
1910 "Composition, Syntax; Invocation; Permanent; Timing"
1911 "kbd-macros: [ (if), : (else), | (else-if), ] (end-if)"
1912 "kbd-macros: < > (repeat), ( ) (for), { } (loop)"
1913 "kbd-macros: / (break)"
1914 "kbd-macros: ` (save), ' (restore)")
cce7e5a6 1915 "user" ?Z))
136211a9
EZ		 1916
1917
1918;;;; Caches.
1919
1920(defmacro math-defcache (name init form)
1921 (let ((cache-prec (intern (concat (symbol-name name) "-cache-prec")))
1922 (cache-val (intern (concat (symbol-name name) "-cache")))
1923 (last-prec (intern (concat (symbol-name name) "-last-prec")))
1924 (last-val (intern (concat (symbol-name name) "-last"))))
1925 (list 'progn
f9e09a51 1926; (list 'defvar cache-prec (if init (math-numdigs (nth 1 init)) -100))
e80155aa 1927 (list 'defvar cache-prec
f9e09a51
JB		 1928 `(cond
1929 ((consp ,init) (math-numdigs (nth 1 ,init)))
e80155aa 1930 (,init
f9e09a51
JB		 1931 (nth 1 (math-numdigs (eval ,init))))
1932 (t
1933 -100)))
e80155aa 1934 (list 'defvar cache-val
f9e09a51
JB		 1935 `(cond
1936 ((consp ,init) ,init)
1937 (,init (eval ,init))
1938 (t ,init)))
fe1f8500
JB		 1939 (list 'defvar last-prec -100)
1940 (list 'defvar last-val nil)
136211a9
EZ		 1941 (list 'setq 'math-cache-list
1942 (list 'cons
1943 (list 'quote cache-prec)
1944 (list 'cons
1945 (list 'quote last-prec)
1946 'math-cache-list)))
1947 (list 'defun
1948 name ()
1949 (list 'or
1950 (list '= last-prec 'calc-internal-prec)
1951 (list 'setq
1952 last-val
1953 (list 'math-normalize
1954 (list 'progn
1955 (list 'or
1956 (list '>= cache-prec
1957 'calc-internal-prec)
1958 (list 'setq
1959 cache-val
1960 (list 'let
1961 '((calc-internal-prec
1962 (+ calc-internal-prec
1963 4)))
1964 form)
1965 cache-prec
1966 '(+ calc-internal-prec 2)))
1967 cache-val))
1968 last-prec 'calc-internal-prec))
cce7e5a6 1969 last-val))))
136211a9
EZ		 1970(put 'math-defcache 'lisp-indent-hook 2)
1971
1972;;; Betcha didn't know that pi = 16 atan(1/5) - 4 atan(1/239). [F] [Public]
fd8eab36 1973(defconst math-approx-pi
89027174 1974 (math-read-number-simple "3.141592653589793238463")
fd8eab36
JB		 1975 "An approximation for pi.")
1976
37b54438 1977(math-defcache math-pi math-approx-pi
136211a9
EZ		 1978 (math-add-float (math-mul-float '(float 16 0)
1979 (math-arctan-raw '(float 2 -1)))
1980 (math-mul-float '(float -4 0)
1981 (math-arctan-raw
1982 (math-float '(frac 1 239))))))
1983
1984(math-defcache math-two-pi nil
1985 (math-mul-float (math-pi) '(float 2 0)))
1986
1987(math-defcache math-pi-over-2 nil
1988 (math-mul-float (math-pi) '(float 5 -1)))
1989
1990(math-defcache math-pi-over-4 nil
1991 (math-mul-float (math-pi) '(float 25 -2)))
1992
1993(math-defcache math-pi-over-180 nil
1994 (math-div-float (math-pi) '(float 18 1)))
1995
1996(math-defcache math-sqrt-pi nil
1997 (math-sqrt-float (math-pi)))
1998
1999(math-defcache math-sqrt-2 nil
2000 (math-sqrt-float '(float 2 0)))
2001
2002(math-defcache math-sqrt-12 nil
2003 (math-sqrt-float '(float 12 0)))
2004
2005(math-defcache math-sqrt-two-pi nil
2006 (math-sqrt-float (math-two-pi)))
2007
37b54438 2008(defconst math-approx-sqrt-e
89027174 2009 (math-read-number-simple "1.648721270700128146849")
fd8eab36 2010 "An approximation for sqrt(3).")
e80155aa 2011
37b54438 2012(math-defcache math-sqrt-e math-approx-sqrt-e
136211a9
EZ		 2013 (math-add-float '(float 1 0) (math-exp-minus-1-raw '(float 5 -1))))
2014
2015(math-defcache math-e nil
2016 (math-pow (math-sqrt-e) 2))
2017
2018(math-defcache math-phi nil
2019 (math-mul-float (math-add-float (math-sqrt-raw '(float 5 0)) '(float 1 0))
2020 '(float 5 -1)))
2021
37b54438 2022(defconst math-approx-gamma-const
e80155aa 2023 (math-read-number-simple
89027174 2024 "0.5772156649015328606065120900824024310421593359399235988057672348848677267776646709369470632917467495")
fd8eab36 2025 "An approximation for gamma.")
37b54438 2026
e80155aa 2027(math-defcache math-gamma-const nil
37b54438 2028 math-approx-gamma-const)
136211a9
EZ		 2029
2030(defun math-half-circle (symb)
2031 (if (eq calc-angle-mode 'rad)
2032 (if symb
2033 '(var pi var-pi)
2034 (math-pi))
cce7e5a6 2035 180))
136211a9
EZ		 2036
2037(defun math-full-circle (symb)
cce7e5a6 2038 (math-mul 2 (math-half-circle symb)))
136211a9
EZ		 2039
2040(defun math-quarter-circle (symb)
cce7e5a6 2041 (math-div (math-half-circle symb) 2))
136211a9 2042
3132f345 2043(defvar math-expand-formulas nil)
136211a9
EZ		 2044
2045;;;; Miscellaneous math routines.
2046
2047;;; True if A is an odd integer. [P R R] [Public]
2048(defun math-oddp (a)
2049 (if (consp a)
2050 (and (memq (car a) '(bigpos bigneg))
2051 (= (% (nth 1 a) 2) 1))
cce7e5a6 2052 (/= (% a 2) 0)))
136211a9
EZ		 2053
2054;;; True if A is a small or big integer. [P x] [Public]
2055(defun math-integerp (a)
2056 (or (integerp a)
cce7e5a6 2057 (memq (car-safe a) '(bigpos bigneg))))
136211a9
EZ		 2058
2059;;; True if A is (numerically) a non-negative integer. [P N] [Public]
2060(defun math-natnump (a)
2061 (or (natnump a)
cce7e5a6 2062 (eq (car-safe a) 'bigpos)))
136211a9
EZ		 2063
2064;;; True if A is a rational (or integer). [P x] [Public]
2065(defun math-ratp (a)
2066 (or (integerp a)
cce7e5a6 2067 (memq (car-safe a) '(bigpos bigneg frac))))
136211a9
EZ		 2068
2069;;; True if A is a real (or rational). [P x] [Public]
2070(defun math-realp (a)
2071 (or (integerp a)
cce7e5a6 2072 (memq (car-safe a) '(bigpos bigneg frac float))))
136211a9
EZ		 2073
2074;;; True if A is a real or HMS form. [P x] [Public]
2075(defun math-anglep (a)
2076 (or (integerp a)
cce7e5a6 2077 (memq (car-safe a) '(bigpos bigneg frac float hms))))
136211a9
EZ		 2078
2079;;; True if A is a number of any kind. [P x] [Public]
2080(defun math-numberp (a)
2081 (or (integerp a)
cce7e5a6 2082 (memq (car-safe a) '(bigpos bigneg frac float cplx polar))))
136211a9
EZ		 2083
2084;;; True if A is a complex number or angle. [P x] [Public]
2085(defun math-scalarp (a)
2086 (or (integerp a)
cce7e5a6 2087 (memq (car-safe a) '(bigpos bigneg frac float cplx polar hms))))
136211a9
EZ		 2088
2089;;; True if A is a vector. [P x] [Public]
2090(defun math-vectorp (a)
cce7e5a6 2091 (eq (car-safe a) 'vec))
136211a9
EZ		 2092
2093;;; True if A is any vector or scalar data object. [P x]
2094(defun math-objvecp (a) ; [Public]
2095 (or (integerp a)
2096 (memq (car-safe a) '(bigpos bigneg frac float cplx polar
cce7e5a6 2097 hms date sdev intv mod vec incomplete))))
136211a9
EZ		 2098
2099;;; True if A is an object not composed of sub-formulas . [P x] [Public]
2100(defun math-primp (a)
2101 (or (integerp a)
2102 (memq (car-safe a) '(bigpos bigneg frac float cplx polar
cce7e5a6 2103 hms date mod var))))
136211a9
EZ		 2104
2105;;; True if A is numerically (but not literally) an integer. [P x] [Public]
2106(defun math-messy-integerp (a)
2107 (cond
2108 ((eq (car-safe a) 'float) (>= (nth 2 a) 0))
cce7e5a6 2109 ((eq (car-safe a) 'frac) (Math-integerp (math-normalize a)))))
136211a9
EZ		 2110
2111;;; True if A is numerically an integer. [P x] [Public]
2112(defun math-num-integerp (a)
2113 (or (Math-integerp a)
cce7e5a6 2114 (Math-messy-integerp a)))
136211a9
EZ		 2115
2116;;; True if A is (numerically) a non-negative integer. [P N] [Public]
2117(defun math-num-natnump (a)
2118 (or (natnump a)
2119 (eq (car-safe a) 'bigpos)
2120 (and (eq (car-safe a) 'float)
2121 (Math-natnump (nth 1 a))
cce7e5a6 2122 (>= (nth 2 a) 0))))
136211a9
EZ		 2123
2124;;; True if A is an integer or will evaluate to an integer. [P x] [Public]
2125(defun math-provably-integerp (a)
2126 (or (Math-integerp a)
2127 (and (memq (car-safe a) '(calcFunc-trunc
2128 calcFunc-round
2129 calcFunc-rounde
2130 calcFunc-roundu
2131 calcFunc-floor
2132 calcFunc-ceil))
cce7e5a6 2133 (= (length a) 2))))
136211a9
EZ		 2134
2135;;; True if A is a real or will evaluate to a real. [P x] [Public]
2136(defun math-provably-realp (a)
2137 (or (Math-realp a)
ae51ae11 2138 (math-provably-integerp a)
cce7e5a6 2139 (memq (car-safe a) '(abs arg))))
136211a9
EZ		 2140
2141;;; True if A is a non-real, complex number. [P x] [Public]
2142(defun math-complexp (a)
cce7e5a6 2143 (memq (car-safe a) '(cplx polar)))
136211a9
EZ		 2144
2145;;; True if A is a non-real, rectangular complex number. [P x] [Public]
2146(defun math-rect-complexp (a)
cce7e5a6 2147 (eq (car-safe a) 'cplx))
136211a9
EZ		 2148
2149;;; True if A is a non-real, polar complex number. [P x] [Public]
2150(defun math-polar-complexp (a)
cce7e5a6 2151 (eq (car-safe a) 'polar))
136211a9
EZ		 2152
2153;;; True if A is a matrix. [P x] [Public]
2154(defun math-matrixp (a)
2155 (and (Math-vectorp a)
2156 (Math-vectorp (nth 1 a))
2157 (cdr (nth 1 a))
2158 (let ((len (length (nth 1 a))))
2159 (setq a (cdr a))
2160 (while (and (setq a (cdr a))
2161 (Math-vectorp (car a))
2162 (= (length (car a)) len)))
cce7e5a6 2163 (null a))))
136211a9
EZ		 2164
2165(defun math-matrixp-step (a len) ; [P L]
2166 (or (null a)
2167 (and (Math-vectorp (car a))
2168 (= (length (car a)) len)
cce7e5a6 2169 (math-matrixp-step (cdr a) len))))
136211a9
EZ		 2170
2171;;; True if A is a square matrix. [P V] [Public]
2172(defun math-square-matrixp (a)
2173 (let ((dims (math-mat-dimens a)))
2174 (and (cdr dims)
cce7e5a6 2175 (= (car dims) (nth 1 dims)))))
136211a9 2176
cbd4e89b
JB		 2177;;; True if MAT is an identity matrix.
2178(defun math-identity-matrix-p (mat &optional mul)
2179 (if (math-square-matrixp mat)
2180 (let ((a (if mul
2181 (nth 1 (nth 1 mat))
2182 1))
2183 (n (1- (length mat)))
2184 (i 1))
2185 (while (and (<= i n)
2186 (math-ident-row-p (nth i mat) i a))
2187 (setq i (1+ i)))
2188 (if (> i n)
2189 a
2190 nil))))
2191
2192(defun math-ident-row-p (row n &optional a)
2193 (unless a
2194 (setq a 1))
2195 (and
e80155aa 2196 (not (memq nil (mapcar
cbd4e89b
JB		 2197 (lambda (x) (eq x 0))
2198 (nthcdr (1+ n) row))))
e80155aa 2199 (not (memq nil (mapcar
cbd4e89b 2200 (lambda (x) (eq x 0))
e80155aa 2201 (butlast
cbd4e89b
JB		 2202 (cdr row)
2203 (- (length row) n)))))
2204 (eq (elt row n) a)))
2205
136211a9
EZ		 2206;;; True if A is any scalar data object. [P x]
2207(defun math-objectp (a) ; [Public]
2208 (or (integerp a)
2209 (memq (car-safe a) '(bigpos bigneg frac float cplx
cce7e5a6 2210 polar hms date sdev intv mod))))
136211a9
EZ		 2211
2212;;; Verify that A is an integer and return A in integer form. [I N; - x]
2213(defun math-check-integer (a) ; [Public]
2214 (cond ((integerp a) a) ; for speed
2215 ((math-integerp a) a)
2216 ((math-messy-integerp a)
2217 (math-trunc a))
cce7e5a6 2218 (t (math-reject-arg a 'integerp))))
136211a9
EZ		 2219
2220;;; Verify that A is a small integer and return A in integer form. [S N; - x]
2221(defun math-check-fixnum (a &optional allow-inf) ; [Public]
2222 (cond ((integerp a) a) ; for speed
2223 ((Math-num-integerp a)
2224 (let ((a (math-trunc a)))
2225 (if (integerp a)
2226 a
2227 (if (or (Math-lessp (lsh -1 -1) a)
2228 (Math-lessp a (- (lsh -1 -1))))
2229 (math-reject-arg a 'fixnump)
2230 (math-fixnum a)))))
2231 ((and allow-inf (equal a '(var inf var-inf)))
2232 (lsh -1 -1))
2233 ((and allow-inf (equal a '(neg (var inf var-inf))))
2234 (- (lsh -1 -1)))
cce7e5a6 2235 (t (math-reject-arg a 'fixnump))))
136211a9
EZ		 2236
2237;;; Verify that A is an integer >= 0 and return A in integer form. [I N; - x]
2238(defun math-check-natnum (a) ; [Public]
2239 (cond ((natnump a) a)
2240 ((and (not (math-negp a))
2241 (Math-num-integerp a))
2242 (math-trunc a))
cce7e5a6 2243 (t (math-reject-arg a 'natnump))))
136211a9
EZ		 2244
2245;;; Verify that A is in floating-point form, or force it to be a float. [F N]
2246(defun math-check-float (a) ; [Public]
2247 (cond ((eq (car-safe a) 'float) a)
2248 ((Math-vectorp a) (math-map-vec 'math-check-float a))
2249 ((Math-objectp a) (math-float a))
cce7e5a6 2250 (t a)))
136211a9
EZ		 2251
2252;;; Verify that A is a constant.
2253(defun math-check-const (a &optional exp-ok)
2254 (if (or (math-constp a)
2255 (and exp-ok math-expand-formulas))
2256 a
cce7e5a6 2257 (math-reject-arg a 'constp)))
136211a9 2258
6a599ca5
JB		 2259;;; Some functions for working with error forms.
2260(defun math-get-value (x)
2261 "Get the mean value of the error form X.
2262If X is not an error form, return X."
2263 (if (eq (car-safe x) 'sdev)
2264 (nth 1 x)
2265 x))
e80155aa 2266
6a599ca5
JB		 2267(defun math-get-sdev (x &optional one)
2268 "Get the standard deviation of the error form X.
2269If X is not an error form, return 1."
2270 (if (eq (car-safe x) 'sdev)
2271 (nth 2 x)
2272 (if one 1 0)))
2273
2274(defun math-contains-sdev-p (ls)
2275 "Non-nil if the list LS contains an error form."
2276 (let ((ls (if (eq (car-safe ls) 'vec) (cdr ls) ls)))
2277 (memq t (mapcar (lambda (x) (eq (car-safe x) 'sdev)) ls))))
136211a9
EZ		 2278
2279;;; Coerce integer A to be a small integer. [S I]
2280(defun math-fixnum (a)
2281 (if (consp a)
2282 (if (cdr a)
2283 (if (eq (car a) 'bigneg)
2284 (- (math-fixnum-big (cdr a)))
2285 (math-fixnum-big (cdr a)))
2286 0)
cce7e5a6 2287 a))
136211a9
EZ		 2288
2289(defun math-fixnum-big (a)
2290 (if (cdr a)
b593f1de 2291 (+ (car a) (* (math-fixnum-big (cdr a)) math-bignum-digit-size))
cce7e5a6 2292 (car a)))
136211a9 2293
3132f345 2294(defvar math-simplify-only nil)
136211a9
EZ		 2295
2296(defun math-normalize-fancy (a)
2297 (cond ((eq (car a) 'frac)
2298 (math-make-frac (math-normalize (nth 1 a))
2299 (math-normalize (nth 2 a))))
2300 ((eq (car a) 'cplx)
2301 (let ((real (math-normalize (nth 1 a)))
2302 (imag (math-normalize (nth 2 a))))
2303 (if (and (math-zerop imag)
2304 (not math-simplify-only)) ; oh, what a kludge!
2305 real
2306 (list 'cplx real imag))))
2307 ((eq (car a) 'polar)
2308 (math-normalize-polar a))
2309 ((eq (car a) 'hms)
2310 (math-normalize-hms a))
2311 ((eq (car a) 'date)
2312 (list 'date (math-normalize (nth 1 a))))
2313 ((eq (car a) 'mod)
2314 (math-normalize-mod a))
2315 ((eq (car a) 'sdev)
2316 (let ((x (math-normalize (nth 1 a)))
2317 (s (math-normalize (nth 2 a))))
2318 (if (or (and (Math-objectp x) (not (Math-scalarp x)))
2319 (and (Math-objectp s) (not (Math-scalarp s))))
2320 (list 'calcFunc-sdev x s)
2321 (math-make-sdev x s))))
2322 ((eq (car a) 'intv)
2323 (let ((mask (math-normalize (nth 1 a)))
2324 (lo (math-normalize (nth 2 a)))
2325 (hi (math-normalize (nth 3 a))))
2326 (if (if (eq (car-safe lo) 'date)
2327 (not (eq (car-safe hi) 'date))
2328 (or (and (Math-objectp lo) (not (Math-anglep lo)))
2329 (and (Math-objectp hi) (not (Math-anglep hi)))))
2330 (list 'calcFunc-intv mask lo hi)
2331 (math-make-intv mask lo hi))))
2332 ((eq (car a) 'vec)
2333 (cons 'vec (mapcar 'math-normalize (cdr a))))
2334 ((eq (car a) 'quote)
2335 (math-normalize (nth 1 a)))
2336 ((eq (car a) 'special-const)
2337 (calc-with-default-simplification
2338 (math-normalize (nth 1 a))))
2339 ((eq (car a) 'var)
2340 (cons 'var (cdr a))) ; need to re-cons for selection routines
2341 ((eq (car a) 'calcFunc-if)
2342 (math-normalize-logical-op a))
2343 ((memq (car a) '(calcFunc-lambda calcFunc-quote calcFunc-condition))
2344 (let ((calc-simplify-mode 'none))
2345 (cons (car a) (mapcar 'math-normalize (cdr a)))))
2346 ((eq (car a) 'calcFunc-evalto)
2347 (setq a (or (nth 1 a) 0))
2348 (or calc-refreshing-evaltos
2349 (setq a (let ((calc-simplify-mode 'none)) (math-normalize a))))
2350 (let ((b (if (and (eq (car-safe a) 'calcFunc-assign)
2351 (= (length a) 3))
2352 (nth 2 a)
2353 a)))
2354 (list 'calcFunc-evalto
2355 a
2356 (if (eq calc-simplify-mode 'none)
2357 (math-normalize b)
2358 (calc-with-default-simplification
2359 (math-evaluate-expr b))))))
2360 ((or (integerp (car a)) (consp (car a)))
2361 (if (null (cdr a))
2362 (math-normalize (car a))
cce7e5a6 2363 (error "Can't use multi-valued function in an expression")))))
136211a9 2364
90b44097
JB		 2365;; The variable math-normalize-a is local to math-normalize in calc.el,
2366;; but is used by math-normalize-nonstandard, which is called by
2367;; math-normalize.
2368(defvar math-normalize-a)
2369
722401eb 2370(defun math-normalize-nonstandard ()
136211a9
EZ		 2371 (if (consp calc-simplify-mode)
2372 (progn
2373 (setq calc-simplify-mode 'none
722401eb 2374 math-simplify-only (car-safe (cdr-safe math-normalize-a)))
136211a9 2375 nil)
722401eb 2376 (and (symbolp (car math-normalize-a))
136211a9
EZ		 2377 (or (eq calc-simplify-mode 'none)
2378 (and (eq calc-simplify-mode 'num)
e80155aa 2379 (let ((aptr (setq math-normalize-a
722401eb
JB		 2380 (cons
2381 (car math-normalize-a)
e80155aa 2382 (mapcar 'math-normalize
722401eb 2383 (cdr math-normalize-a))))))
136211a9
EZ		 2384 (while (and aptr (math-constp (car aptr)))
2385 (setq aptr (cdr aptr)))
2386 aptr)))
e80155aa 2387 (cons (car math-normalize-a)
722401eb 2388 (mapcar 'math-normalize (cdr math-normalize-a))))))
136211a9
EZ		 2389
2390
2391;;; Normalize a bignum digit list by trimming high-end zeros. [L l]
2392(defun math-norm-bignum (a)
2393 (let ((digs a) (last nil))
2394 (while digs
2395 (or (eq (car digs) 0) (setq last digs))
2396 (setq digs (cdr digs)))
2397 (and last
2398 (progn
2399 (setcdr last nil)
cce7e5a6 2400 a))))
136211a9
EZ		 2401
2402(defun math-bignum-test (a) ; [B N; B s; b b]
2403 (if (consp a)
2404 a
cce7e5a6 2405 (math-bignum a)))
136211a9
EZ		 2406
2407
2408;;; Return 0 for zero, -1 for negative, 1 for positive. [S n] [Public]
2409(defun calcFunc-sign (a &optional x)
2410 (let ((signs (math-possible-signs a)))
2411 (cond ((eq signs 4) (or x 1))
2412 ((eq signs 2) 0)
2413 ((eq signs 1) (if x (math-neg x) -1))
2414 ((math-looks-negp a) (math-neg (calcFunc-sign (math-neg a))))
2415 (t (calc-record-why 'realp a)
2416 (if x
2417 (list 'calcFunc-sign a x)
cce7e5a6 2418 (list 'calcFunc-sign a))))))
136211a9
EZ		 2419
2420;;; Return 0 if A is numerically equal to B, <0 if less, >0 if more.
2421;;; Arguments must be normalized! [S N N]
2422(defun math-compare (a b)
2423 (cond ((equal a b)
2424 (if (and (consp a)
2425 (memq (car a) '(var neg * /))
2426 (math-infinitep a))
2427 2
2428 0))
2429 ((and (integerp a) (Math-integerp b))
2430 (if (consp b)
2431 (if (eq (car b) 'bigpos) -1 1)
2432 (if (< a b) -1 1)))
2433 ((and (eq (car-safe a) 'bigpos) (Math-integerp b))
2434 (if (eq (car-safe b) 'bigpos)
2435 (math-compare-bignum (cdr a) (cdr b))
2436 1))
2437 ((and (eq (car-safe a) 'bigneg) (Math-integerp b))
2438 (if (eq (car-safe b) 'bigneg)
2439 (math-compare-bignum (cdr b) (cdr a))
2440 -1))
2441 ((eq (car-safe a) 'frac)
2442 (if (eq (car-safe b) 'frac)
2443 (math-compare (math-mul (nth 1 a) (nth 2 b))
2444 (math-mul (nth 1 b) (nth 2 a)))
2445 (math-compare (nth 1 a) (math-mul b (nth 2 a)))))
2446 ((eq (car-safe b) 'frac)
2447 (math-compare (math-mul a (nth 2 b)) (nth 1 b)))
2448 ((and (eq (car-safe a) 'float) (eq (car-safe b) 'float))
2449 (if (math-lessp-float a b) -1 1))
2450 ((and (eq (car-safe a) 'date) (eq (car-safe b) 'date))
2451 (math-compare (nth 1 a) (nth 1 b)))
2452 ((and (or (Math-anglep a)
2453 (and (eq (car a) 'cplx) (eq (nth 2 a) 0)))
2454 (or (Math-anglep b)
2455 (and (eq (car b) 'cplx) (eq (nth 2 b) 0))))
2456 (calcFunc-sign (math-add a (math-neg b))))
2457 ((and (eq (car-safe a) 'intv)
2458 (or (Math-anglep b) (eq (car-safe b) 'date)))
2459 (let ((res (math-compare (nth 2 a) b)))
2460 (cond ((eq res 1) 1)
2461 ((and (eq res 0) (memq (nth 1 a) '(0 1))) 1)
2462 ((eq (setq res (math-compare (nth 3 a) b)) -1) -1)
2463 ((and (eq res 0) (memq (nth 1 a) '(0 2))) -1)
2464 (t 2))))
2465 ((and (eq (car-safe b) 'intv)
2466 (or (Math-anglep a) (eq (car-safe a) 'date)))
2467 (let ((res (math-compare a (nth 2 b))))
2468 (cond ((eq res -1) -1)
2469 ((and (eq res 0) (memq (nth 1 b) '(0 1))) -1)
2470 ((eq (setq res (math-compare a (nth 3 b))) 1) 1)
2471 ((and (eq res 0) (memq (nth 1 b) '(0 2))) 1)
2472 (t 2))))
2473 ((and (eq (car-safe a) 'intv) (eq (car-safe b) 'intv))
2474 (let ((res (math-compare (nth 3 a) (nth 2 b))))
2475 (cond ((eq res -1) -1)
2476 ((and (eq res 0) (or (memq (nth 1 a) '(0 2))
2477 (memq (nth 1 b) '(0 1)))) -1)
2478 ((eq (setq res (math-compare (nth 2 a) (nth 3 b))) 1) 1)
2479 ((and (eq res 0) (or (memq (nth 1 a) '(0 1))
2480 (memq (nth 1 b) '(0 2)))) 1)
2481 (t 2))))
2482 ((math-infinitep a)
2483 (if (or (equal a '(var uinf var-uinf))
2484 (equal a '(var nan var-nan)))
2485 2
2486 (let ((dira (math-infinite-dir a)))
2487 (if (math-infinitep b)
2488 (if (or (equal b '(var uinf var-uinf))
2489 (equal b '(var nan var-nan)))
2490 2
2491 (let ((dirb (math-infinite-dir b)))
2492 (cond ((and (eq dira 1) (eq dirb -1)) 1)
2493 ((and (eq dira -1) (eq dirb 1)) -1)
2494 (t 2))))
2495 (cond ((eq dira 1) 1)
2496 ((eq dira -1) -1)
2497 (t 2))))))
2498 ((math-infinitep b)
2499 (if (or (equal b '(var uinf var-uinf))
2500 (equal b '(var nan var-nan)))
2501 2
2502 (let ((dirb (math-infinite-dir b)))
2503 (cond ((eq dirb 1) -1)
2504 ((eq dirb -1) 1)
2505 (t 2)))))
2506 ((and (eq (car-safe a) 'calcFunc-exp)
2507 (eq (car-safe b) '^)
2508 (equal (nth 1 b) '(var e var-e)))
2509 (math-compare (nth 1 a) (nth 2 b)))
2510 ((and (eq (car-safe b) 'calcFunc-exp)
2511 (eq (car-safe a) '^)
2512 (equal (nth 1 a) '(var e var-e)))
2513 (math-compare (nth 2 a) (nth 1 b)))
2514 ((or (and (eq (car-safe a) 'calcFunc-sqrt)
2515 (eq (car-safe b) '^)
2516 (or (equal (nth 2 b) '(frac 1 2))
2517 (equal (nth 2 b) '(float 5 -1))))
2518 (and (eq (car-safe b) 'calcFunc-sqrt)
2519 (eq (car-safe a) '^)
2520 (or (equal (nth 2 a) '(frac 1 2))
2521 (equal (nth 2 a) '(float 5 -1)))))
2522 (math-compare (nth 1 a) (nth 1 b)))
2523 ((eq (car-safe a) 'var)
2524 2)
2525 (t
2526 (if (and (consp a) (consp b)
2527 (eq (car a) (car b))
2528 (math-compare-lists (cdr a) (cdr b)))
2529 0
cce7e5a6 2530 2))))
136211a9
EZ		 2531
2532;;; Compare two bignum digit lists, return -1 for A<B, 0 for A=B, 1 for A>B.
2533(defun math-compare-bignum (a b) ; [S l l]
2534 (let ((res 0))
2535 (while (and a b)
2536 (if (< (car a) (car b))
2537 (setq res -1)
2538 (if (> (car a) (car b))
2539 (setq res 1)))
2540 (setq a (cdr a)
2541 b (cdr b)))
2542 (if a
2543 (progn
2544 (while (eq (car a) 0) (setq a (cdr a)))
2545 (if a 1 res))
2546 (while (eq (car b) 0) (setq b (cdr b)))
cce7e5a6 2547 (if b -1 res))))
136211a9
EZ		 2548
2549(defun math-compare-lists (a b)
2550 (cond ((null a) (null b))
2551 ((null b) nil)
2552 (t (and (Math-equal (car a) (car b))
cce7e5a6 2553 (math-compare-lists (cdr a) (cdr b))))))
136211a9
EZ		 2554
2555(defun math-lessp-float (a b) ; [P F F]
2556 (let ((ediff (- (nth 2 a) (nth 2 b))))
2557 (if (>= ediff 0)
2558 (if (>= ediff (+ calc-internal-prec calc-internal-prec))
2559 (if (eq (nth 1 a) 0)
2560 (Math-integer-posp (nth 1 b))
2561 (Math-integer-negp (nth 1 a)))
2562 (Math-lessp (math-scale-int (nth 1 a) ediff)
2563 (nth 1 b)))
2564 (if (>= (setq ediff (- ediff))
2565 (+ calc-internal-prec calc-internal-prec))
2566 (if (eq (nth 1 b) 0)
2567 (Math-integer-negp (nth 1 a))
2568 (Math-integer-posp (nth 1 b)))
2569 (Math-lessp (nth 1 a)
cce7e5a6 2570 (math-scale-int (nth 1 b) ediff))))))
136211a9
EZ		 2571
2572;;; True if A is numerically equal to B. [P N N] [Public]
2573(defun math-equal (a b)
cce7e5a6 2574 (= (math-compare a b) 0))
136211a9
EZ		 2575
2576;;; True if A is numerically less than B. [P R R] [Public]
2577(defun math-lessp (a b)
cce7e5a6 2578 (= (math-compare a b) -1))
136211a9
EZ		 2579
2580;;; True if A is numerically equal to the integer B. [P N S] [Public]
2581;;; B must not be a multiple of 10.
2582(defun math-equal-int (a b)
2583 (or (eq a b)
2584 (and (eq (car-safe a) 'float)
2585 (eq (nth 1 a) b)
cce7e5a6 2586 (= (nth 2 a) 0))))
136211a9
EZ		 2587
2588
2589
2590
2591;;; Return the dimensions of a matrix as a list. [l x] [Public]
2592(defun math-mat-dimens (m)
2593 (if (math-vectorp m)
2594 (if (math-matrixp m)
2595 (cons (1- (length m))
2596 (math-mat-dimens (nth 1 m)))
2597 (list (1- (length m))))
cce7e5a6 2598 nil))
136211a9
EZ		 2599
2600
2601
2602(defun calc-binary-op-fancy (name func arg ident unary)
2603 (let ((n (prefix-numeric-value arg)))
2604 (cond ((> n 1)
2605 (calc-enter-result n
2606 name
2607 (list 'calcFunc-reduce
2608 (math-calcFunc-to-var func)
2609 (cons 'vec (calc-top-list-n n)))))
2610 ((= n 1)
2611 (if unary
2612 (calc-enter-result 1 name (list unary (calc-top-n 1)))))
2613 ((= n 0)
2614 (if ident
2615 (calc-enter-result 0 name ident)
2616 (error "Argument must be nonzero")))
2617 (t
2618 (let ((rhs (calc-top-n 1)))
2619 (calc-enter-result (- 1 n)
2620 name
2621 (mapcar (function
2622 (lambda (x)
2623 (list func x rhs)))
cce7e5a6 2624 (calc-top-list-n (- n) 2))))))))
136211a9
EZ		 2625
2626(defun calc-unary-op-fancy (name func arg)
2627 (let ((n (prefix-numeric-value arg)))
2628 (if (= n 0) (setq n (calc-stack-size)))
2629 (cond ((> n 0)
2630 (calc-enter-result n
2631 name
2632 (mapcar (function
2633 (lambda (x)
2634 (list func x)))
2635 (calc-top-list-n n))))
2636 ((< n 0)
2637 (calc-enter-result 1
2638 name
2639 (list func (calc-top-n (- n)))
cce7e5a6 2640 (- n))))))
136211a9 2641
136211a9 2642(defvar var-Holidays '(vec (var sat var-sat) (var sun var-sun)))
136211a9
EZ		 2643(defvar var-Decls (list 'vec))
2644
2645
136211a9
EZ		 2646(defun math-inexact-result ()
2647 (and calc-symbolic-mode
cce7e5a6 2648 (signal 'inexact-result nil)))
136211a9
EZ		 2649
2650(defun math-overflow (&optional exp)
2651 (if (and exp (math-negp exp))
2652 (math-underflow)
cce7e5a6 2653 (signal 'math-overflow nil)))
136211a9
EZ		 2654
2655(defun math-underflow ()
cce7e5a6 2656 (signal 'math-underflow nil))
136211a9 2657
136211a9
EZ		 2658;;; Compute the greatest common divisor of A and B. [I I I] [Public]
2659(defun math-gcd (a b)
2660 (cond ((not (or (consp a) (consp b)))
2661 (if (< a 0) (setq a (- a)))
2662 (if (< b 0) (setq b (- b)))
2663 (let (c)
2664 (if (< a b)
2665 (setq c b b a a c))
2666 (while (> b 0)
2667 (setq c b
2668 b (% a b)
2669 a c))
2670 a))
2671 ((eq a 0) b)
2672 ((eq b 0) a)
2673 (t
2674 (if (Math-integer-negp a) (setq a (math-neg a)))
2675 (if (Math-integer-negp b) (setq b (math-neg b)))
2676 (let (c)
2677 (if (Math-natnum-lessp a b)
2678 (setq c b b a a c))
2679 (while (and (consp a) (not (eq b 0)))
2680 (setq c b
2681 b (math-imod a b)
2682 a c))
2683 (while (> b 0)
2684 (setq c b
2685 b (% a b)
2686 a c))
cce7e5a6 2687 a))))
136211a9
EZ		 2688
2689
2690;;;; Algebra.
2691
2692;;; Evaluate variables in an expression.
2693(defun math-evaluate-expr (x) ; [Public]
2694 (if calc-embedded-info
2695 (calc-embedded-evaluate-expr x)
cce7e5a6
CW		 2696 (calc-normalize (math-evaluate-expr-rec x))))
2697
2698(defalias 'calcFunc-evalv 'math-evaluate-expr)
136211a9
EZ		 2699
2700(defun calcFunc-evalvn (x &optional prec)
2701 (if prec
2702 (progn
2703 (or (math-num-integerp prec)
2704 (if (and (math-vectorp prec)
2705 (= (length prec) 2)
2706 (math-num-integerp (nth 1 prec)))
2707 (setq prec (math-add (nth 1 prec) calc-internal-prec))
2708 (math-reject-arg prec 'integerp)))
2709 (setq prec (math-trunc prec))
2710 (if (< prec 3) (setq prec 3))
2711 (if (> prec calc-internal-prec)
2712 (math-normalize
2713 (let ((calc-internal-prec prec))
2714 (calcFunc-evalvn x)))
2715 (let ((calc-internal-prec prec))
2716 (calcFunc-evalvn x))))
2717 (let ((calc-symbolic-mode nil))
cce7e5a6 2718 (math-evaluate-expr x))))
136211a9
EZ		 2719
2720(defun math-evaluate-expr-rec (x)
2721 (if (consp x)
2722 (if (memq (car x) '(calcFunc-quote calcFunc-condition
2723 calcFunc-evalto calcFunc-assign))
2724 (if (and (eq (car x) 'calcFunc-assign)
2725 (= (length x) 3))
2726 (list (car x) (nth 1 x) (math-evaluate-expr-rec (nth 2 x)))
2727 x)
2728 (if (eq (car x) 'var)
2729 (if (and (calc-var-value (nth 2 x))
2730 (not (eq (car-safe (symbol-value (nth 2 x)))
2731 'incomplete)))
2732 (let ((val (symbol-value (nth 2 x))))
2733 (if (eq (car-safe val) 'special-const)
2734 (if calc-symbolic-mode
2735 x
2736 val)
2737 val))
2738 x)
2739 (if (Math-primp x)
2740 x
2741 (cons (car x) (mapcar 'math-evaluate-expr-rec (cdr x))))))
cce7e5a6 2742 x))
136211a9 2743
136211a9
EZ		 2744(defun math-any-floats (expr)
2745 (if (Math-primp expr)
2746 (math-floatp expr)
2747 (while (and (setq expr (cdr expr)) (not (math-any-floats (car expr)))))
cce7e5a6 2748 expr))
136211a9
EZ		 2749
2750(defvar var-FactorRules 'calc-FactorRules)
2751
722401eb
JB		 2752(defvar math-mt-many nil)
2753(defvar math-mt-func nil)
2754
2755(defun math-map-tree (math-mt-func mmt-expr &optional math-mt-many)
2756 (or math-mt-many (setq math-mt-many 1000000))
cce7e5a6 2757 (math-map-tree-rec mmt-expr))
136211a9
EZ		 2758
2759(defun math-map-tree-rec (mmt-expr)
722401eb 2760 (or (= math-mt-many 0)
136211a9
EZ		 2761 (let ((mmt-done nil)
2762 mmt-nextval)
2763 (while (not mmt-done)
722401eb
JB		 2764 (while (and (/= math-mt-many 0)
2765 (setq mmt-nextval (funcall math-mt-func mmt-expr))
136211a9
EZ		 2766 (not (equal mmt-expr mmt-nextval)))
2767 (setq mmt-expr mmt-nextval
e80155aa
JB		 2768 math-mt-many (if (> math-mt-many 0)
2769 (1- math-mt-many)
722401eb 2770 (1+ math-mt-many))))
136211a9 2771 (if (or (Math-primp mmt-expr)
722401eb 2772 (<= math-mt-many 0))
136211a9
EZ		 2773 (setq mmt-done t)
2774 (setq mmt-nextval (cons (car mmt-expr)
2775 (mapcar 'math-map-tree-rec
2776 (cdr mmt-expr))))
2777 (if (equal mmt-nextval mmt-expr)
2778 (setq mmt-done t)
2779 (setq mmt-expr mmt-nextval))))))
cce7e5a6 2780 mmt-expr)
136211a9 2781
136211a9
EZ		 2782(defun math-is-true (expr)
2783 (if (Math-numberp expr)
2784 (not (Math-zerop expr))
cce7e5a6 2785 (math-known-nonzerop expr)))
136211a9
EZ		 2786
2787(defun math-const-var (expr)
2788 (and (consp expr)
2789 (eq (car expr) 'var)
2790 (or (and (symbolp (nth 2 expr))
2791 (boundp (nth 2 expr))
2792 (eq (car-safe (symbol-value (nth 2 expr))) 'special-const))
cce7e5a6 2793 (memq (nth 2 expr) '(var-inf var-uinf var-nan)))))
136211a9 2794
90b44097
JB		 2795;; The variable math-integral-cache is originally declared in calcalg2.el,
2796;; but is set by math-defintegral and math-definitegral2.
2797(defvar math-integral-cache)
2798
136211a9
EZ		 2799(defmacro math-defintegral (funcs &rest code)
2800 (setq math-integral-cache nil)
2801 (append '(progn)
2802 (mapcar (function
2803 (lambda (func)
2804 (list 'put (list 'quote func) ''math-integral
2805 (list 'nconc
2806 (list 'get (list 'quote func) ''math-integral)
2807 (list 'list
2808 (list 'function
2809 (append '(lambda (u))
2810 code)))))))
cce7e5a6 2811 (if (symbolp funcs) (list funcs) funcs))))
136211a9
EZ		 2812(put 'math-defintegral 'lisp-indent-hook 1)
2813
2814(defmacro math-defintegral-2 (funcs &rest code)
2815 (setq math-integral-cache nil)
2816 (append '(progn)
2817 (mapcar (function
2818 (lambda (func)
2819 (list 'put (list 'quote func) ''math-integral-2
2820 (list 'nconc
2821 (list 'get (list 'quote func)
2822 ''math-integral-2)
2823 (list 'list
2824 (list 'function
2825 (append '(lambda (u v))
2826 code)))))))
cce7e5a6 2827 (if (symbolp funcs) (list funcs) funcs))))
136211a9
EZ		 2828(put 'math-defintegral-2 'lisp-indent-hook 1)
2829
136211a9
EZ		 2830(defvar var-IntegAfterRules 'calc-IntegAfterRules)
2831
136211a9
EZ		 2832(defvar var-FitRules 'calc-FitRules)
2833
3132f345
CW		 2834(defvar math-poly-base-variable nil)
2835(defvar math-poly-neg-powers nil)
2836(defvar math-poly-mult-powers 1)
2837(defvar math-poly-frac-powers nil)
2838(defvar math-poly-exp-base nil)
136211a9 2839
136211a9
EZ		 2840(defun math-build-var-name (name)
2841 (if (stringp name)
2842 (setq name (intern name)))
2843 (if (string-match "\\`var-." (symbol-name name))
2844 (list 'var (intern (substring (symbol-name name) 4)) name)
cce7e5a6 2845 (list 'var name (intern (concat "var-" (symbol-name name))))))
136211a9 2846
3132f345
CW		 2847(defvar math-simplifying-units nil)
2848(defvar math-combining-units t)
136211a9
EZ		 2849
2850;;; Nontrivial number parsing.
2851
2852(defun math-read-number-fancy (s)
2853 (cond
2854
2855 ;; Integer+fractions
2856 ((string-match "^\\([0-9]*\\)[:/]\\([0-9]*\\)[:/]\\([0-9]*\\)$" s)
2857 (let ((int (math-match-substring s 1))
2858 (num (math-match-substring s 2))
2859 (den (math-match-substring s 3)))
2860 (let ((int (if (> (length int) 0) (math-read-number int) 0))
2861 (num (if (> (length num) 0) (math-read-number num) 1))
2862 (den (if (> (length num) 0) (math-read-number den) 1)))
2863 (and int num den
2864 (math-integerp int) (math-integerp num) (math-integerp den)
2865 (not (math-zerop den))
2866 (list 'frac (math-add num (math-mul int den)) den)))))
a1506d29 2867
136211a9
EZ		 2868 ;; Fractions
2869 ((string-match "^\\([0-9]*\\)[:/]\\([0-9]*\\)$" s)
2870 (let ((num (math-match-substring s 1))
2871 (den (math-match-substring s 2)))
2872 (let ((num (if (> (length num) 0) (math-read-number num) 1))
2873 (den (if (> (length num) 0) (math-read-number den) 1)))
2874 (and num den (math-integerp num) (math-integerp den)
2875 (not (math-zerop den))
2876 (list 'frac num den)))))
a1506d29 2877
136211a9
EZ		 2878 ;; Modulo forms
2879 ((string-match "^\\(.*\\) *mod *\\(.*\\)$" s)
2880 (let* ((n (math-match-substring s 1))
2881 (m (math-match-substring s 2))
2882 (n (math-read-number n))
2883 (m (math-read-number m)))
2884 (and n m (math-anglep n) (math-anglep m)
2885 (list 'mod n m))))
2886
2887 ;; Error forms
2888 ((string-match "^\\(.*\\) *\\+/- *\\(.*\\)$" s)
2889 (let* ((x (math-match-substring s 1))
2890 (sigma (math-match-substring s 2))
2891 (x (math-read-number x))
2892 (sigma (math-read-number sigma)))
2893 (and x sigma (math-scalarp x) (math-anglep sigma)
2894 (list 'sdev x sigma))))
2895
2896 ;; Hours (or degrees)
2897 ((or (string-match "^\\([^#^]+\\)[@oOhH]\\(.*\\)$" s)
2898 (string-match "^\\([^#^]+\\)[dD][eE]?[gG]?\\(.*\\)$" s))
2899 (let* ((hours (math-match-substring s 1))
2900 (minsec (math-match-substring s 2))
2901 (hours (math-read-number hours))
2902 (minsec (if (> (length minsec) 0) (math-read-number minsec) 0)))
2903 (and hours minsec
2904 (math-num-integerp hours)
2905 (not (math-negp hours)) (not (math-negp minsec))
2906 (cond ((math-num-integerp minsec)
2907 (and (Math-lessp minsec 60)
2908 (list 'hms hours minsec 0)))
2909 ((and (eq (car-safe minsec) 'hms)
2910 (math-zerop (nth 1 minsec)))
2911 (math-add (list 'hms hours 0 0) minsec))
2912 (t nil)))))
a1506d29 2913
136211a9
EZ		 2914 ;; Minutes
2915 ((string-match "^\\([^'#^]+\\)[mM']\\(.*\\)$" s)
2916 (let* ((minutes (math-match-substring s 1))
2917 (seconds (math-match-substring s 2))
2918 (minutes (math-read-number minutes))
2919 (seconds (if (> (length seconds) 0) (math-read-number seconds) 0)))
2920 (and minutes seconds
2921 (math-num-integerp minutes)
2922 (not (math-negp minutes)) (not (math-negp seconds))
2923 (cond ((math-realp seconds)
2924 (and (Math-lessp minutes 60)
2925 (list 'hms 0 minutes seconds)))
2926 ((and (eq (car-safe seconds) 'hms)
2927 (math-zerop (nth 1 seconds))
2928 (math-zerop (nth 2 seconds)))
2929 (math-add (list 'hms 0 minutes 0) seconds))
2930 (t nil)))))
a1506d29 2931
136211a9
EZ		 2932 ;; Seconds
2933 ((string-match "^\\([^\"#^]+\\)[sS\"]$" s)
2934 (let ((seconds (math-read-number (math-match-substring s 1))))
2935 (and seconds (math-realp seconds)
2936 (not (math-negp seconds))
2937 (Math-lessp seconds 60)
2938 (list 'hms 0 0 seconds))))
a1506d29 2939
136211a9
EZ		 2940 ;; Integer+fraction with explicit radix
2941 ((string-match "^\\([0-9]+\\)\\(#\\|\\^\\^\\)\\([0-9a-zA-Z]*\\)[:/]\\([0-9a-zA-Z]*\\)[:/]\\([0-9a-zA-Z]\\)$" s)
8f4a8efc 2942 (let ((radix (string-to-number (math-match-substring s 1)))
136211a9
EZ		 2943 (int (math-match-substring s 3))
2944 (num (math-match-substring s 4))
2945 (den (math-match-substring s 5)))
2946 (let ((int (if (> (length int) 0) (math-read-radix int radix) 0))
2947 (num (if (> (length num) 0) (math-read-radix num radix) 1))
2948 (den (if (> (length den) 0) (math-read-radix den radix) 1)))
2949 (and int num den (not (math-zerop den))
2950 (list 'frac
2951 (math-add num (math-mul int den))
2952 den)))))
a1506d29 2953
136211a9
EZ		 2954 ;; Fraction with explicit radix
2955 ((string-match "^\\([0-9]+\\)\\(#\\|\\^\\^\\)\\([0-9a-zA-Z]*\\)[:/]\\([0-9a-zA-Z]*\\)$" s)
8f4a8efc 2956 (let ((radix (string-to-number (math-match-substring s 1)))
136211a9
EZ		 2957 (num (math-match-substring s 3))
2958 (den (math-match-substring s 4)))
2959 (let ((num (if (> (length num) 0) (math-read-radix num radix) 1))
2960 (den (if (> (length den) 0) (math-read-radix den radix) 1)))
2961 (and num den (not (math-zerop den)) (list 'frac num den)))))
a1506d29 2962
136211a9
EZ		 2963 ;; Float with explicit radix and exponent
2964 ((or (string-match "^0*\\(\\([2-9]\\|1[0-4]\\)\\(#\\|\\^\\^\\)[0-9a-dA-D.]+\\)[eE]\\([-+]?[0-9]+\\)$" s)
2965 (string-match "^\\(\\([0-9]+\\)\\(#\\|\\^\\^\\)[0-9a-zA-Z.]+\\) *\\* *\\2\\.? *\\^ *\\([-+]?[0-9]+\\)$" s))
8f4a8efc 2966 (let ((radix (string-to-number (math-match-substring s 2)))
136211a9
EZ		 2967 (mant (math-match-substring s 1))
2968 (exp (math-match-substring s 4)))
2969 (let ((mant (math-read-number mant))
2970 (exp (math-read-number exp)))
2971 (and mant exp
2972 (math-mul mant (math-pow (math-float radix) exp))))))
2973
2974 ;; Float with explicit radix, no exponent
2975 ((string-match "^\\([0-9]+\\)\\(#\\|\\^\\^\\)\\([0-9a-zA-Z]*\\)\\.\\([0-9a-zA-Z]*\\)$" s)
8f4a8efc 2976 (let ((radix (string-to-number (math-match-substring s 1)))
136211a9
EZ		 2977 (int (math-match-substring s 3))
2978 (fracs (math-match-substring s 4)))
2979 (let ((int (if (> (length int) 0) (math-read-radix int radix) 0))
2980 (frac (if (> (length fracs) 0) (math-read-radix fracs radix) 0))
2981 (calc-prefer-frac nil))
2982 (and int frac
2983 (math-add int (math-div frac (math-pow radix (length fracs))))))))
2984
2985 ;; Integer with explicit radix
2986 ((string-match "^\\([0-9]+\\)\\(#\\|\\^\\^\\)\\([0-9a-zA-Z]+\\)$" s)
2987 (math-read-radix (math-match-substring s 3)
8f4a8efc 2988 (string-to-number (math-match-substring s 1))))
136211a9
EZ		 2989
2990 ;; C language hexadecimal notation
2991 ((and (eq calc-language 'c)
2992 (string-match "^0[xX]\\([0-9a-fA-F]+\\)$" s))
2993 (let ((digs (math-match-substring s 1)))
2994 (math-read-radix digs 16)))
2995
2996 ;; Pascal language hexadecimal notation
2997 ((and (eq calc-language 'pascal)
2998 (string-match "^\\$\\([0-9a-fA-F]+\\)$" s))
2999 (let ((digs (math-match-substring s 1)))
3000 (math-read-radix digs 16)))
3001
3002 ;; Fraction using "/" instead of ":"
3003 ((string-match "^\\([0-9]+\\)/\\([0-9/]+\\)$" s)
3004 (math-read-number (concat (math-match-substring s 1) ":"
3005 (math-match-substring s 2))))
3006
3007 ;; Syntax error!
cce7e5a6 3008 (t nil)))
136211a9
EZ		 3009
3010(defun math-read-radix (s r) ; [I X D]
3011 (setq s (upcase s))
3012 (let ((i 0)
3013 (res 0)
3014 dig)
3015 (while (and (< i (length s))
3016 (setq dig (math-read-radix-digit (elt s i)))
3017 (< dig r))
3018 (setq res (math-add (math-mul res r) dig)
3019 i (1+ i)))
3020 (and (= i (length s))
cce7e5a6 3021 res)))
136211a9
EZ		 3022
3023
3024
3025;;; Expression parsing.
3026
722401eb
JB		 3027(defvar math-expr-data)
3028
e59b8655
JB		 3029(defun math-read-expr (math-exp-str)
3030 (let ((math-exp-pos 0)
3031 (math-exp-old-pos 0)
3032 (math-exp-keep-spaces nil)
3033 math-exp-token math-expr-data)
66c2cf66 3034 (setq math-exp-str (math-read-preprocess-string math-exp-str))
e59b8655
JB		 3035 (while (setq math-exp-token (string-match "\\.\\.\\([^.]\\|.[^.]\\)" math-exp-str))
3036 (setq math-exp-str (concat (substring math-exp-str 0 math-exp-token) "\\dots"
3037 (substring math-exp-str (+ math-exp-token 2)))))
136211a9
EZ		 3038 (math-build-parse-table)
3039 (math-read-token)
3040 (let ((val (catch 'syntax (math-read-expr-level 0))))
3041 (if (stringp val)
e59b8655
JB		 3042 (list 'error math-exp-old-pos val)
3043 (if (equal math-exp-token 'end)
136211a9 3044 val
e59b8655 3045 (list 'error math-exp-old-pos "Syntax error"))))))
136211a9
EZ		 3046
3047(defun math-read-plain-expr (exp-str &optional error-check)
3048 (let* ((calc-language nil)
1dccbfee 3049 (math-expr-opers (math-standard-ops))
136211a9
EZ		 3050 (val (math-read-expr exp-str)))
3051 (and error-check
3052 (eq (car-safe val) 'error)
3053 (error "%s: %s" (nth 2 val) exp-str))
cce7e5a6 3054 val))
136211a9
EZ		 3055
3056
3057(defun math-read-string ()
722401eb
JB		 3058 (let ((str (read-from-string (concat math-expr-data "\""))))
3059 (or (and (= (cdr str) (1+ (length math-expr-data)))
136211a9
EZ		 3060 (stringp (car str)))
3061 (throw 'syntax "Error in string constant"))
3062 (math-read-token)
cce7e5a6 3063 (append '(vec) (car str) nil)))
136211a9
EZ		 3064
3065
3066
3067;;; They said it couldn't be done...
3068
3069(defun math-read-big-expr (str)
3070 (and (> (length calc-left-label) 0)
3071 (string-match (concat "^" (regexp-quote calc-left-label)) str)
3072 (setq str (concat (substring str 0 (match-beginning 0))
3073 (substring str (match-end 0)))))
3074 (and (> (length calc-right-label) 0)
3075 (string-match (concat (regexp-quote calc-right-label) " *$") str)
3076 (setq str (concat (substring str 0 (match-beginning 0))
3077 (substring str (match-end 0)))))
3078 (if (string-match "\\\\[^ \n|]" str)
86e3afd3 3079 (if (eq calc-language 'latex)
136211a9 3080 (math-read-expr str)
86e3afd3 3081 (let ((calc-language 'latex)
136211a9 3082 (calc-language-option nil)
86e3afd3
JB		 3083 (math-expr-opers (get 'latex 'math-oper-table))
3084 (math-expr-function-mapping (get 'latex 'math-function-table))
3085 (math-expr-variable-mapping (get 'latex 'math-variable-table)))
136211a9 3086 (math-read-expr str)))
c308c463 3087 (let ((math-read-big-lines nil)
136211a9
EZ		 3088 (pos 0)
3089 (width 0)
c308c463
JB		 3090 (math-read-big-err-msg nil)
3091 math-read-big-baseline math-read-big-h2
136211a9
EZ		 3092 new-pos p)
3093 (while (setq new-pos (string-match "\n" str pos))
e80155aa 3094 (setq math-read-big-lines
c308c463 3095 (cons (substring str pos new-pos) math-read-big-lines)
136211a9 3096 pos (1+ new-pos)))
e80155aa 3097 (setq math-read-big-lines
c308c463
JB		 3098 (nreverse (cons (substring str pos) math-read-big-lines))
3099 p math-read-big-lines)
136211a9
EZ		 3100 (while p
3101 (setq width (max width (length (car p)))
3102 p (cdr p)))
c308c463 3103 (if (math-read-big-bigp math-read-big-lines)
136211a9 3104 (or (catch 'syntax
c308c463
JB		 3105 (math-read-big-rec 0 0 width (length math-read-big-lines)))
3106 math-read-big-err-msg
136211a9 3107 '(error 0 "Syntax error"))
cce7e5a6 3108 (math-read-expr str)))))
136211a9 3109
c308c463
JB		 3110(defun math-read-big-bigp (math-read-big-lines)
3111 (and (cdr math-read-big-lines)
136211a9
EZ		 3112 (let ((matrix nil)
3113 (v 0)
c308c463
JB		 3114 (height (if (> (length (car math-read-big-lines)) 0) 1 0)))
3115 (while (and (cdr math-read-big-lines)
136211a9
EZ		 3116 (let* ((i 0)
3117 j
c308c463
JB		 3118 (l1 (car math-read-big-lines))
3119 (l2 (nth 1 math-read-big-lines))
136211a9
EZ		 3120 (len (min (length l1) (length l2))))
3121 (if (> (length l2) 0)
3122 (setq height (1+ height)))
3123 (while (and (< i len)
3124 (or (memq (aref l1 i) '(?\ ?\- ?\_))
3125 (memq (aref l2 i) '(?\ ?\-))
3126 (and (memq (aref l1 i) '(?\| ?\,))
3127 (= (aref l2 i) (aref l1 i)))
3128 (and (eq (aref l1 i) ?\[)
3129 (eq (aref l2 i) ?\[)
c308c463 3130 (let ((math-rb-h2 (length l1)))
136211a9
EZ		 3131 (setq j (math-read-big-balance
3132 (1+ i) v "[")))
3133 (setq i (1- j)))))
3134 (setq i (1+ i)))
3135 (or (= i len)
3136 (and (eq (aref l1 i) ?\[)
3137 (eq (aref l2 i) ?\[)
3138 (setq matrix t)
3139 nil))))
c308c463 3140 (setq math-read-big-lines (cdr math-read-big-lines)
136211a9
EZ		 3141 v (1+ v)))
3142 (or (and (> height 1)
c308c463 3143 (not (cdr math-read-big-lines)))
cce7e5a6 3144 matrix))))
136211a9 3145
136211a9
EZ		 3146;;; Nontrivial "flat" formatting.
3147
3132f345
CW		 3148(defvar math-format-hash-args nil)
3149(defvar calc-can-abbrev-vectors nil)
3150
136211a9
EZ		 3151(defun math-format-flat-expr-fancy (a prec)
3152 (cond
3153 ((eq (car a) 'incomplete)
3154 (format "<incomplete %s>" (nth 1 a)))
3155 ((eq (car a) 'vec)
3156 (if (or calc-full-trail-vectors (not calc-can-abbrev-vectors)
3157 (< (length a) 7))
3158 (concat "[" (math-format-flat-vector (cdr a) ", "
3159 (if (cdr (cdr a)) 0 1000)) "]")
3160 (concat "["
3161 (math-format-flat-expr (nth 1 a) 0) ", "
3162 (math-format-flat-expr (nth 2 a) 0) ", "
3163 (math-format-flat-expr (nth 3 a) 0) ", ..., "
3164 (math-format-flat-expr (nth (1- (length a)) a) 0) "]")))
3165 ((eq (car a) 'intv)
3166 (concat (if (memq (nth 1 a) '(0 1)) "(" "[")
3167 (math-format-flat-expr (nth 2 a) 1000)
3168 " .. "
3169 (math-format-flat-expr (nth 3 a) 1000)
3170 (if (memq (nth 1 a) '(0 2)) ")" "]")))
3171 ((eq (car a) 'date)
3172 (concat "<" (math-format-date a) ">"))
3173 ((and (eq (car a) 'calcFunc-lambda) (> (length a) 2))
3174 (let ((p (cdr a))
3175 (ap calc-arg-values)
3176 (math-format-hash-args (if (= (length a) 3) 1 t)))
3177 (while (and (cdr p) (equal (car p) (car ap)))
3178 (setq p (cdr p) ap (cdr ap)))
3179 (concat "<"
3180 (if (cdr p)
3181 (concat (math-format-flat-vector
3182 (nreverse (cdr (reverse (cdr a)))) ", " 0)
3183 " : ")
3184 "")
3185 (math-format-flat-expr (nth (1- (length a)) a) 0)
3186 ">")))
3187 ((eq (car a) 'var)
3188 (or (and math-format-hash-args
3189 (let ((p calc-arg-values) (v 1))
3190 (while (and p (not (equal (car p) a)))
3191 (setq p (and (eq math-format-hash-args t) (cdr p))
3192 v (1+ v)))
3193 (and p
3194 (if (eq math-format-hash-args 1)
3195 "#"
3196 (format "#%d" v)))))
3197 (symbol-name (nth 1 a))))
3198 ((and (memq (car a) '(calcFunc-string calcFunc-bstring))
3199 (= (length a) 2)
3200 (math-vectorp (nth 1 a))
3201 (math-vector-is-string (nth 1 a)))
3202 (concat (substring (symbol-name (car a)) 9)
3203 "(" (math-vector-to-string (nth 1 a) t) ")"))
3204 (t
1dccbfee 3205 (let ((op (math-assq2 (car a) (math-standard-ops))))
136211a9
EZ		 3206 (cond ((and op (= (length a) 3))
3207 (if (> prec (min (nth 2 op) (nth 3 op)))
3208 (concat "(" (math-format-flat-expr a 0) ")")
3209 (let ((lhs (math-format-flat-expr (nth 1 a) (nth 2 op)))
3210 (rhs (math-format-flat-expr (nth 2 a) (nth 3 op))))
3211 (setq op (car op))
3212 (if (or (equal op "^") (equal op "_"))
3213 (if (= (aref lhs 0) ?-)
3214 (setq lhs (concat "(" lhs ")")))
3215 (setq op (concat " " op " ")))
3216 (concat lhs op rhs))))
3217 ((eq (car a) 'neg)
3218 (concat "-" (math-format-flat-expr (nth 1 a) 1000)))
3219 (t
3220 (concat (math-remove-dashes
3221 (if (string-match "\\`calcFunc-\\([a-zA-Z0-9']+\\)\\'"
3222 (symbol-name (car a)))
3223 (math-match-substring (symbol-name (car a)) 1)
3224 (symbol-name (car a))))
3225 "("
3226 (math-format-flat-vector (cdr a) ", " 0)
cce7e5a6 3227 ")")))))))
136211a9
EZ		 3228
3229(defun math-format-flat-vector (vec sep prec)
3230 (if vec
3231 (let ((buf (math-format-flat-expr (car vec) prec)))
3232 (while (setq vec (cdr vec))
3233 (setq buf (concat buf sep (math-format-flat-expr (car vec) prec))))
3234 buf)
cce7e5a6 3235 ""))
136211a9
EZ		 3236
3237(defun math-format-nice-expr (x w)
3238 (cond ((and (eq (car-safe x) 'vec)
3239 (cdr (cdr x))
3240 (let ((ops '(vec calcFunc-assign calcFunc-condition
3241 calcFunc-schedule calcFunc-iterations
3242 calcFunc-phase)))
3243 (or (memq (car-safe (nth 1 x)) ops)
3244 (memq (car-safe (nth 2 x)) ops)
3245 (memq (car-safe (nth 3 x)) ops)
3246 calc-break-vectors)))
3247 (concat "[ " (math-format-flat-vector (cdr x) ",\n " 0) " ]"))
3248 (t
3249 (let ((str (math-format-flat-expr x 0))
3250 (pos 0) p)
3251 (or (string-match "\"" str)
3252 (while (<= (setq p (+ pos w)) (length str))
3253 (while (and (> (setq p (1- p)) pos)
3254 (not (= (aref str p) ? ))))
3255 (if (> p (+ pos 5))
3256 (setq str (concat (substring str 0 p)
3257 "\n "
3258 (substring str p))
3259 pos (1+ p))
3260 (setq pos (+ pos w)))))
cce7e5a6 3261 str))))
136211a9
EZ		 3262
3263(defun math-assq2 (v a)
3264 (while (and a (not (eq v (nth 1 (car a)))))
3265 (setq a (cdr a)))
cce7e5a6 3266 (car a))
136211a9 3267
136211a9
EZ		 3268(defun math-format-number-fancy (a prec)
3269 (cond
3270 ((eq (car a) 'float) ; non-decimal radix
3271 (if (Math-integer-negp (nth 1 a))
3272 (concat "-" (math-format-number (math-neg a)))
3273 (let ((str (if (and calc-radix-formatter
3274 (not (memq calc-language '(c pascal))))
3275 (funcall calc-radix-formatter
3276 calc-number-radix
3277 (math-format-radix-float a prec))
3278 (format "%d#%s" calc-number-radix
3279 (math-format-radix-float a prec)))))
3280 (if (and prec (> prec 191) (string-match "\\*" str))
3281 (concat "(" str ")")
3282 str))))
3283 ((eq (car a) 'frac)
3284 (setq a (math-adjust-fraction a))
3285 (if (> (length (car calc-frac-format)) 1)
3286 (if (Math-integer-negp (nth 1 a))
3287 (concat "-" (math-format-number (math-neg a)))
3288 (let ((q (math-idivmod (nth 1 a) (nth 2 a))))
3289 (concat (let ((calc-frac-format nil))
3290 (math-format-number (car q)))
3291 (substring (car calc-frac-format) 0 1)
3292 (let ((math-radix-explicit-format nil)
3293 (calc-frac-format nil))
3294 (math-format-number (cdr q)))
3295 (substring (car calc-frac-format) 1 2)
3296 (let ((math-radix-explicit-format nil)
3297 (calc-frac-format nil))
3298 (math-format-number (nth 2 a))))))
3299 (concat (let ((calc-frac-format nil))
3300 (math-format-number (nth 1 a)))
3301 (car calc-frac-format)
3302 (let ((math-radix-explicit-format nil)
3303 (calc-frac-format nil))
3304 (math-format-number (nth 2 a))))))
3305 ((eq (car a) 'cplx)
3306 (if (math-zerop (nth 2 a))
3307 (math-format-number (nth 1 a))
3308 (if (null calc-complex-format)
3309 (concat "(" (math-format-number (nth 1 a))
3310 ", " (math-format-number (nth 2 a)) ")")
3311 (if (math-zerop (nth 1 a))
3312 (if (math-equal-int (nth 2 a) 1)
3313 (symbol-name calc-complex-format)
3314 (if (math-equal-int (nth 2 a) -1)
3315 (concat "-" (symbol-name calc-complex-format))
3316 (if prec
3317 (math-compose-expr (list '* (nth 2 a) '(cplx 0 1)) prec)
3318 (concat (math-format-number (nth 2 a)) " "
3319 (symbol-name calc-complex-format)))))
3320 (if prec
3321 (math-compose-expr (list (if (math-negp (nth 2 a)) '- '+)
3322 (nth 1 a)
3323 (list 'cplx 0 (math-abs (nth 2 a))))
3324 prec)
3325 (concat (math-format-number (nth 1 a))
3326 (if (math-negp (nth 2 a)) " - " " + ")
3327 (math-format-number
3328 (list 'cplx 0 (math-abs (nth 2 a))))))))))
3329 ((eq (car a) 'polar)
3330 (concat "(" (math-format-number (nth 1 a))
3331 "; " (math-format-number (nth 2 a)) ")"))
3332 ((eq (car a) 'hms)
3333 (if (math-negp a)
3334 (concat "-" (math-format-number (math-neg a)))
3335 (let ((calc-number-radix 10)
3336 (calc-leading-zeros nil)
3337 (calc-group-digits nil))
3338 (format calc-hms-format
3339 (let ((calc-frac-format '(":" nil)))
3340 (math-format-number (nth 1 a)))
3341 (let ((calc-frac-format '(":" nil)))
3342 (math-format-number (nth 2 a)))
3343 (math-format-number (nth 3 a))))))
3344 ((eq (car a) 'intv)
3345 (concat (if (memq (nth 1 a) '(0 1)) "(" "[")
3346 (math-format-number (nth 2 a))
3347 " .. "
3348 (math-format-number (nth 3 a))
3349 (if (memq (nth 1 a) '(0 2)) ")" "]")))
3350 ((eq (car a) 'sdev)
3351 (concat (math-format-number (nth 1 a))
3352 " +/- "
3353 (math-format-number (nth 2 a))))
3354 ((eq (car a) 'vec)
3355 (math-format-flat-expr a 0))
cce7e5a6 3356 (t (format "%s" a))))
136211a9
EZ		 3357
3358(defun math-adjust-fraction (a)
3359 (if (nth 1 calc-frac-format)
3360 (progn
3361 (if (Math-integerp a) (setq a (list 'frac a 1)))
3362 (let ((g (math-quotient (nth 1 calc-frac-format)
3363 (math-gcd (nth 2 a)
3364 (nth 1 calc-frac-format)))))
3365 (list 'frac (math-mul (nth 1 a) g) (math-mul (nth 2 a) g))))
cce7e5a6 3366 a))
136211a9
EZ		 3367
3368(defun math-format-bignum-fancy (a) ; [X L]
3369 (let ((str (cond ((= calc-number-radix 10)
3370 (math-format-bignum-decimal a))
3371 ((= calc-number-radix 2)
3372 (math-format-bignum-binary a))
3373 ((= calc-number-radix 8)
3374 (math-format-bignum-octal a))
3375 ((= calc-number-radix 16)
3376 (math-format-bignum-hex a))
3377 (t (math-format-bignum-radix a)))))
3378 (if calc-leading-zeros
3379 (let* ((calc-internal-prec 6)
3380 (digs (math-compute-max-digits (math-abs calc-word-size)
3381 calc-number-radix))
3382 (len (length str)))
3383 (if (< len digs)
3384 (setq str (concat (make-string (- digs len) ?0) str)))))
3385 (if calc-group-digits
3386 (let ((i (length str))
3387 (g (if (integerp calc-group-digits)
3388 (math-abs calc-group-digits)
3389 (if (memq calc-number-radix '(2 16)) 4 3))))
3390 (while (> i g)
3391 (setq i (- i g)
3392 str (concat (substring str 0 i)
3393 calc-group-char
3394 (substring str i))))
3395 str))
3396 (if (and (/= calc-number-radix 10)
3397 math-radix-explicit-format)
3398 (if calc-radix-formatter
3399 (funcall calc-radix-formatter calc-number-radix str)
3400 (format "%d#%s" calc-number-radix str))
cce7e5a6 3401 str)))
136211a9
EZ		 3402
3403
3404(defun math-group-float (str) ; [X X]
3405 (let* ((pt (or (string-match "[^0-9a-zA-Z]" str) (length str)))
3406 (g (if (integerp calc-group-digits) (math-abs calc-group-digits) 3))
3407 (i pt))
3408 (if (and (integerp calc-group-digits) (< calc-group-digits 0))
3409 (while (< (setq i (+ (1+ i) g)) (length str))
3410 (setq str (concat (substring str 0 i)
3411 calc-group-char
3412 (substring str i))
3413 i (+ i (1- (length calc-group-char))))))
3414 (setq i pt)
3415 (while (> i g)
3416 (setq i (- i g)
3417 str (concat (substring str 0 i)
3418 calc-group-char
3419 (substring str i))))
cce7e5a6 3420 str))
136211a9 3421
136211a9
EZ		 3422;;; Users can redefine this in their .emacs files.
3423(defvar calc-keypad-user-menu nil
f0529b5b 3424 "If non-nil, this describes an additional menu for calc-keypad.
136211a9
EZ		 3425It should contain a list of three rows.
3426Each row should be a list of six keys.
3427Each key should be a list of a label string, plus a Calc command name spec.
3428A command spec is a command name symbol, a keyboard macro string, a
3429list containing a numeric entry string, or nil.
3430A key may contain additional specs for Inverse, Hyperbolic, and Inv+Hyp.")
3431
136211a9
EZ		 3432(run-hooks 'calc-ext-load-hook)
3433
6697b53c 3434(provide 'calc-ext)
1b303b2c 3435
ab5796a9 3436;;; arch-tag: 1814ba7f-a390-49dc-9e25-a5adc205e97e
cce7e5a6 3437;;; calc-ext.el ends here
Unnamed repository; edit this file 'description' to name the repository.