Lines Matching +refs:calc +refs:den +refs:units
0 ;;; calc-ext.el --- various extension functions for Calc
30 (require 'calc)
31 (require 'calc-macs)
47 (defvar calc-alg-map)
48 (defvar calc-alg-esc-map)
51 (defun calc-init-extensions ()
53 (define-key calc-mode-map ":" 'calc-fdiv)
54 (define-key calc-mode-map "\\" 'calc-idiv)
55 (define-key calc-mode-map "|" 'calc-concat)
56 (define-key calc-mode-map "!" 'calc-factorial)
57 (define-key calc-mode-map "C" 'calc-cos)
58 (define-key calc-mode-map "E" 'calc-exp)
59 (define-key calc-mode-map "H" 'calc-hyperbolic)
60 (define-key calc-mode-map "I" 'calc-inverse)
61 (define-key calc-mode-map "J" 'calc-conj)
62 (define-key calc-mode-map "L" 'calc-ln)
63 (define-key calc-mode-map "N" 'calc-eval-num)
64 (define-key calc-mode-map "P" 'calc-pi)
65 (define-key calc-mode-map "Q" 'calc-sqrt)
66 (define-key calc-mode-map "R" 'calc-round)
67 (define-key calc-mode-map "S" 'calc-sin)
68 (define-key calc-mode-map "T" 'calc-tan)
69 (define-key calc-mode-map "U" 'calc-undo)
70 (define-key calc-mode-map "X" 'calc-call-last-kbd-macro)
71 (define-key calc-mode-map "o" 'calc-realign)
72 (define-key calc-mode-map "p" 'calc-precision)
73 (define-key calc-mode-map "w" 'calc-why)
74 (define-key calc-mode-map "x" 'calc-execute-extended-command)
75 (define-key calc-mode-map "y" 'calc-copy-to-buffer)
77 (define-key calc-mode-map "(" 'calc-begin-complex)
78 (define-key calc-mode-map ")" 'calc-end-complex)
79 (define-key calc-mode-map "[" 'calc-begin-vector)
80 (define-key calc-mode-map "]" 'calc-end-vector)
81 (define-key calc-mode-map "," 'calc-comma)
82 (define-key calc-mode-map ";" 'calc-semi)
83 (define-key calc-mode-map "`" 'calc-edit)
84 (define-key calc-mode-map "=" 'calc-evaluate)
85 (define-key calc-mode-map "~" 'calc-num-prefix)
86 (define-key calc-mode-map "<" 'calc-scroll-left)
87 (define-key calc-mode-map ">" 'calc-scroll-right)
88 (define-key calc-mode-map "{" 'calc-scroll-down)
89 (define-key calc-mode-map "}" 'calc-scroll-up)
90 (define-key calc-mode-map "\C-k" 'calc-kill)
91 (define-key calc-mode-map "\M-k" 'calc-copy-as-kill)
92 (define-key calc-mode-map "\C-w" 'calc-kill-region)
93 (define-key calc-mode-map "\M-w" 'calc-copy-region-as-kill)
94 (define-key calc-mode-map "\C-y" 'calc-yank)
95 (define-key calc-mode-map [mouse-2] 'calc-yank)
96 (define-key calc-mode-map "\C-_" 'calc-undo)
97 (define-key calc-mode-map "\C-xu" 'calc-undo)
98 (define-key calc-mode-map "\M-\C-m" 'calc-last-args)
100 (define-key calc-mode-map "a" nil)
101 (define-key calc-mode-map "a?" 'calc-a-prefix-help)
102 (define-key calc-mode-map "aa" 'calc-apart)
103 (define-key calc-mode-map "ab" 'calc-substitute)
104 (define-key calc-mode-map "ac" 'calc-collect)
105 (define-key calc-mode-map "ad" 'calc-derivative)
106 (define-key calc-mode-map "ae" 'calc-simplify-extended)
107 (define-key calc-mode-map "af" 'calc-factor)
108 (define-key calc-mode-map "ag" 'calc-poly-gcd)
109 (define-key calc-mode-map "ai" 'calc-integral)
110 (define-key calc-mode-map "am" 'calc-match)
111 (define-key calc-mode-map "an" 'calc-normalize-rat)
112 (define-key calc-mode-map "ap" 'calc-poly-interp)
113 (define-key calc-mode-map "ar" 'calc-rewrite)
114 (define-key calc-mode-map "as" 'calc-simplify)
115 (define-key calc-mode-map "at" 'calc-taylor)
116 (define-key calc-mode-map "av" 'calc-alg-evaluate)
117 (define-key calc-mode-map "ax" 'calc-expand)
118 (define-key calc-mode-map "aA" 'calc-abs)
119 (define-key calc-mode-map "aF" 'calc-curve-fit)
120 (define-key calc-mode-map "aI" 'calc-num-integral)
121 (define-key calc-mode-map "aM" 'calc-map-equation)
122 (define-key calc-mode-map "aN" 'calc-find-minimum)
123 (define-key calc-mode-map "aP" 'calc-poly-roots)
124 (define-key calc-mode-map "aS" 'calc-solve-for)
125 (define-key calc-mode-map "aR" 'calc-find-root)
126 (define-key calc-mode-map "aT" 'calc-tabulate)
127 (define-key calc-mode-map "aX" 'calc-find-maximum)
128 (define-key calc-mode-map "a+" 'calc-summation)
129 (define-key calc-mode-map "a-" 'calc-alt-summation)
130 (define-key calc-mode-map "a*" 'calc-product)
131 (define-key calc-mode-map "a\\" 'calc-poly-div)
132 (define-key calc-mode-map "a%" 'calc-poly-rem)
133 (define-key calc-mode-map "a/" 'calc-poly-div-rem)
134 (define-key calc-mode-map "a=" 'calc-equal-to)
135 (define-key calc-mode-map "a#" 'calc-not-equal-to)
136 (define-key calc-mode-map "a<" 'calc-less-than)
137 (define-key calc-mode-map "a>" 'calc-greater-than)
138 (define-key calc-mode-map "a[" 'calc-less-equal)
139 (define-key calc-mode-map "a]" 'calc-greater-equal)
140 (define-key calc-mode-map "a." 'calc-remove-equal)
141 (define-key calc-mode-map "a{" 'calc-in-set)
142 (define-key calc-mode-map "a&" 'calc-logical-and)
143 (define-key calc-mode-map "a|" 'calc-logical-or)
144 (define-key calc-mode-map "a!" 'calc-logical-not)
145 (define-key calc-mode-map "a:" 'calc-logical-if)
146 (define-key calc-mode-map "a_" 'calc-subscript)
147 (define-key calc-mode-map "a\"" 'calc-expand-formula)
149 (define-key calc-mode-map "b" nil)
150 (define-key calc-mode-map "b?" 'calc-b-prefix-help)
151 (define-key calc-mode-map "ba" 'calc-and)
152 (define-key calc-mode-map "bc" 'calc-clip)
153 (define-key calc-mode-map "bd" 'calc-diff)
154 (define-key calc-mode-map "bl" 'calc-lshift-binary)
155 (define-key calc-mode-map "bn" 'calc-not)
156 (define-key calc-mode-map "bo" 'calc-or)
157 (define-key calc-mode-map "bp" 'calc-pack-bits)
158 (define-key calc-mode-map "br" 'calc-rshift-binary)
159 (define-key calc-mode-map "bt" 'calc-rotate-binary)
160 (define-key calc-mode-map "bu" 'calc-unpack-bits)
161 (define-key calc-mode-map "bw" 'calc-word-size)
162 (define-key calc-mode-map "bx" 'calc-xor)
163 (define-key calc-mode-map "bB" 'calc-log)
164 (define-key calc-mode-map "bD" 'calc-fin-ddb)
165 (define-key calc-mode-map "bF" 'calc-fin-fv)
166 (define-key calc-mode-map "bI" 'calc-fin-irr)
167 (define-key calc-mode-map "bL" 'calc-lshift-arith)
168 (define-key calc-mode-map "bM" 'calc-fin-pmt)
169 (define-key calc-mode-map "bN" 'calc-fin-npv)
170 (define-key calc-mode-map "bP" 'calc-fin-pv)
171 (define-key calc-mode-map "bR" 'calc-rshift-arith)
172 (define-key calc-mode-map "bS" 'calc-fin-sln)
173 (define-key calc-mode-map "bT" 'calc-fin-rate)
174 (define-key calc-mode-map "bY" 'calc-fin-syd)
175 (define-key calc-mode-map "b#" 'calc-fin-nper)
176 (define-key calc-mode-map "b%" 'calc-percent-change)
178 (define-key calc-mode-map "c" nil)
179 (define-key calc-mode-map "c?" 'calc-c-prefix-help)
180 (define-key calc-mode-map "cc" 'calc-clean)
181 (define-key calc-mode-map "cd" 'calc-to-degrees)
182 (define-key calc-mode-map "cf" 'calc-float)
183 (define-key calc-mode-map "ch" 'calc-to-hms)
184 (define-key calc-mode-map "cp" 'calc-polar)
185 (define-key calc-mode-map "cr" 'calc-to-radians)
186 (define-key calc-mode-map "cC" 'calc-cos)
187 (define-key calc-mode-map "cF" 'calc-fraction)
188 (define-key calc-mode-map "c%" 'calc-convert-percent)
190 (define-key calc-mode-map "d" nil)
191 (define-key calc-mode-map "d?" 'calc-d-prefix-help)
192 (define-key calc-mode-map "d0" 'calc-decimal-radix)
193 (define-key calc-mode-map "d2" 'calc-binary-radix)
194 (define-key calc-mode-map "d6" 'calc-hex-radix)
195 (define-key calc-mode-map "d8" 'calc-octal-radix)
196 (define-key calc-mode-map "db" 'calc-line-breaking)
197 (define-key calc-mode-map "dc" 'calc-complex-notation)
198 (define-key calc-mode-map "dd" 'calc-date-notation)
199 (define-key calc-mode-map "de" 'calc-eng-notation)
200 (define-key calc-mode-map "df" 'calc-fix-notation)
201 (define-key calc-mode-map "dg" 'calc-group-digits)
202 (define-key calc-mode-map "dh" 'calc-hms-notation)
203 (define-key calc-mode-map "di" 'calc-i-notation)
204 (define-key calc-mode-map "dj" 'calc-j-notation)
205 (define-key calc-mode-map "dl" 'calc-line-numbering)
206 (define-key calc-mode-map "dn" 'calc-normal-notation)
207 (define-key calc-mode-map "do" 'calc-over-notation)
208 (define-key calc-mode-map "dp" 'calc-show-plain)
209 (define-key calc-mode-map "dr" 'calc-radix)
210 (define-key calc-mode-map "ds" 'calc-sci-notation)
211 (define-key calc-mode-map "dt" 'calc-truncate-stack)
212 (define-key calc-mode-map "dw" 'calc-auto-why)
213 (define-key calc-mode-map "dz" 'calc-leading-zeros)
214 (define-key calc-mode-map "dB" 'calc-big-language)
215 (define-key calc-mode-map "dD" 'calc-redo)
216 (define-key calc-mode-map "dC" 'calc-c-language)
217 (define-key calc-mode-map "dE" 'calc-eqn-language)
218 (define-key calc-mode-map "dF" 'calc-fortran-language)
219 (define-key calc-mode-map "dM" 'calc-mathematica-language)
220 (define-key calc-mode-map "dN" 'calc-normal-language)
221 (define-key calc-mode-map "dO" 'calc-flat-language)
222 (define-key calc-mode-map "dP" 'calc-pascal-language)
223 (define-key calc-mode-map "dT" 'calc-tex-language)
224 (define-key calc-mode-map "dL" 'calc-latex-language)
225 (define-key calc-mode-map "dU" 'calc-unformatted-language)
226 (define-key calc-mode-map "dW" 'calc-maple-language)
227 (define-key calc-mode-map "d[" 'calc-truncate-up)
228 (define-key calc-mode-map "d]" 'calc-truncate-down)
229 (define-key calc-mode-map "d." 'calc-point-char)
230 (define-key calc-mode-map "d," 'calc-group-char)
231 (define-key calc-mode-map "d\"" 'calc-display-strings)
232 (define-key calc-mode-map "d<" 'calc-left-justify)
233 (define-key calc-mode-map "d=" 'calc-center-justify)
234 (define-key calc-mode-map "d>" 'calc-right-justify)
235 (define-key calc-mode-map "d{" 'calc-left-label)
236 (define-key calc-mode-map "d}" 'calc-right-label)
237 (define-key calc-mode-map "d'" 'calc-display-raw)
238 (define-key calc-mode-map "d " 'calc-refresh)
239 (define-key calc-mode-map "d\r" 'calc-refresh-top)
240 (define-key calc-mode-map "d@" 'calc-toggle-banner)
242 (define-key calc-mode-map "f" nil)
243 (define-key calc-mode-map "f?" 'calc-f-prefix-help)
244 (define-key calc-mode-map "fb" 'calc-beta)
245 (define-key calc-mode-map "fe" 'calc-erf)
246 (define-key calc-mode-map "fg" 'calc-gamma)
247 (define-key calc-mode-map "fh" 'calc-hypot)
248 (define-key calc-mode-map "fi" 'calc-im)
249 (define-key calc-mode-map "fj" 'calc-bessel-J)
250 (define-key calc-mode-map "fn" 'calc-min)
251 (define-key calc-mode-map "fr" 'calc-re)
252 (define-key calc-mode-map "fs" 'calc-sign)
253 (define-key calc-mode-map "fx" 'calc-max)
254 (define-key calc-mode-map "fy" 'calc-bessel-Y)
255 (define-key calc-mode-map "fA" 'calc-abssqr)
256 (define-key calc-mode-map "fB" 'calc-inc-beta)
257 (define-key calc-mode-map "fE" 'calc-expm1)
258 (define-key calc-mode-map "fF" 'calc-floor)
259 (define-key calc-mode-map "fG" 'calc-inc-gamma)
260 (define-key calc-mode-map "fI" 'calc-ilog)
261 (define-key calc-mode-map "fL" 'calc-lnp1)
262 (define-key calc-mode-map "fM" 'calc-mant-part)
263 (define-key calc-mode-map "fQ" 'calc-isqrt)
264 (define-key calc-mode-map "fS" 'calc-scale-float)
265 (define-key calc-mode-map "fT" 'calc-arctan2)
266 (define-key calc-mode-map "fX" 'calc-xpon-part)
267 (define-key calc-mode-map "f[" 'calc-decrement)
268 (define-key calc-mode-map "f]" 'calc-increment)
270 (define-key calc-mode-map "g" nil)
271 (define-key calc-mode-map "g?" 'calc-g-prefix-help)
272 (define-key calc-mode-map "ga" 'calc-graph-add)
273 (define-key calc-mode-map "gb" 'calc-graph-border)
274 (define-key calc-mode-map "gc" 'calc-graph-clear)
275 (define-key calc-mode-map "gd" 'calc-graph-delete)
276 (define-key calc-mode-map "gf" 'calc-graph-fast)
277 (define-key calc-mode-map "gg" 'calc-graph-grid)
278 (define-key calc-mode-map "gh" 'calc-graph-header)
279 (define-key calc-mode-map "gk" 'calc-graph-key)
280 (define-key calc-mode-map "gj" 'calc-graph-juggle)
281 (define-key calc-mode-map "gl" 'calc-graph-log-x)
282 (define-key calc-mode-map "gn" 'calc-graph-name)
283 (define-key calc-mode-map "gp" 'calc-graph-plot)
284 (define-key calc-mode-map "gq" 'calc-graph-quit)
285 (define-key calc-mode-map "gr" 'calc-graph-range-x)
286 (define-key calc-mode-map "gs" 'calc-graph-line-style)
287 (define-key calc-mode-map "gt" 'calc-graph-title-x)
288 (define-key calc-mode-map "gv" 'calc-graph-view-commands)
289 (define-key calc-mode-map "gx" 'calc-graph-display)
290 (define-key calc-mode-map "gz" 'calc-graph-zero-x)
291 (define-key calc-mode-map "gA" 'calc-graph-add-3d)
292 (define-key calc-mode-map "gC" 'calc-graph-command)
293 (define-key calc-mode-map "gD" 'calc-graph-device)
294 (define-key calc-mode-map "gF" 'calc-graph-fast-3d)
295 (define-key calc-mode-map "gG" 'calc-argument)
296 (define-key calc-mode-map "gH" 'calc-graph-hide)
297 (define-key calc-mode-map "gK" 'calc-graph-kill)
298 (define-key calc-mode-map "gL" 'calc-graph-log-y)
299 (define-key calc-mode-map "gN" 'calc-graph-num-points)
300 (define-key calc-mode-map "gO" 'calc-graph-output)
301 (define-key calc-mode-map "gP" 'calc-graph-print)
302 (define-key calc-mode-map "gR" 'calc-graph-range-y)
303 (define-key calc-mode-map "gS" 'calc-graph-point-style)
304 (define-key calc-mode-map "gT" 'calc-graph-title-y)
305 (define-key calc-mode-map "gV" 'calc-graph-view-trail)
306 (define-key calc-mode-map "gX" 'calc-graph-geometry)
307 (define-key calc-mode-map "gZ" 'calc-graph-zero-y)
308 (define-key calc-mode-map "g\C-l" 'calc-graph-log-z)
309 (define-key calc-mode-map "g\C-r" 'calc-graph-range-z)
310 (define-key calc-mode-map "g\C-t" 'calc-graph-title-z)
312 (define-key calc-mode-map "h" 'calc-help-prefix)
314 (define-key calc-mode-map "j" nil)
315 (define-key calc-mode-map "j?" 'calc-j-prefix-help)
316 (define-key calc-mode-map "ja" 'calc-select-additional)
317 (define-key calc-mode-map "jb" 'calc-break-selections)
318 (define-key calc-mode-map "jc" 'calc-clear-selections)
319 (define-key calc-mode-map "jd" 'calc-show-selections)
320 (define-key calc-mode-map "je" 'calc-enable-selections)
321 (define-key calc-mode-map "jl" 'calc-select-less)
322 (define-key calc-mode-map "jm" 'calc-select-more)
323 (define-key calc-mode-map "jn" 'calc-select-next)
324 (define-key calc-mode-map "jo" 'calc-select-once)
325 (define-key calc-mode-map "jp" 'calc-select-previous)
326 (define-key calc-mode-map "jr" 'calc-rewrite-selection)
327 (define-key calc-mode-map "js" 'calc-select-here)
328 (define-key calc-mode-map "jv" 'calc-sel-evaluate)
329 (define-key calc-mode-map "ju" 'calc-unselect)
330 (define-key calc-mode-map "jC" 'calc-sel-commute)
331 (define-key calc-mode-map "jD" 'calc-sel-distribute)
332 (define-key calc-mode-map "jE" 'calc-sel-jump-equals)
333 (define-key calc-mode-map "jI" 'calc-sel-isolate)
334 (define-key calc-mode-map "jJ" 'calc-conj)
335 (define-key calc-mode-map "jL" 'calc-commute-left)
336 (define-key calc-mode-map "jM" 'calc-sel-merge)
337 (define-key calc-mode-map "jN" 'calc-sel-negate)
338 (define-key calc-mode-map "jO" 'calc-select-once-maybe)
339 (define-key calc-mode-map "jR" 'calc-commute-right)
340 (define-key calc-mode-map "jS" 'calc-select-here-maybe)
341 (define-key calc-mode-map "jU" 'calc-sel-unpack)
342 (define-key calc-mode-map "j&" 'calc-sel-invert)
343 (define-key calc-mode-map "j\r" 'calc-copy-selection)
344 (define-key calc-mode-map "j\n" 'calc-copy-selection)
345 (define-key calc-mode-map "j\010" 'calc-del-selection)
346 (define-key calc-mode-map "j\177" 'calc-del-selection)
347 (define-key calc-mode-map "j'" 'calc-enter-selection)
348 (define-key calc-mode-map "j`" 'calc-edit-selection)
349 (define-key calc-mode-map "j+" 'calc-sel-add-both-sides)
350 (define-key calc-mode-map "j-" 'calc-sel-sub-both-sides)
351 (define-key calc-mode-map "j*" 'calc-sel-mult-both-sides)
352 (define-key calc-mode-map "j/" 'calc-sel-div-both-sides)
353 (define-key calc-mode-map "j\"" 'calc-sel-expand-formula)
355 (define-key calc-mode-map "k" nil)
356 (define-key calc-mode-map "k?" 'calc-k-prefix-help)
357 (define-key calc-mode-map "ka" 'calc-random-again)
358 (define-key calc-mode-map "kb" 'calc-bernoulli-number)
359 (define-key calc-mode-map "kc" 'calc-choose)
360 (define-key calc-mode-map "kd" 'calc-double-factorial)
361 (define-key calc-mode-map "ke" 'calc-euler-number)
362 (define-key calc-mode-map "kf" 'calc-prime-factors)
363 (define-key calc-mode-map "kg" 'calc-gcd)
364 (define-key calc-mode-map "kh" 'calc-shuffle)
365 (define-key calc-mode-map "kl" 'calc-lcm)
366 (define-key calc-mode-map "km" 'calc-moebius)
367 (define-key calc-mode-map "kn" 'calc-next-prime)
368 (define-key calc-mode-map "kp" 'calc-prime-test)
369 (define-key calc-mode-map "kr" 'calc-random)
370 (define-key calc-mode-map "ks" 'calc-stirling-number)
371 (define-key calc-mode-map "kt" 'calc-totient)
372 (define-key calc-mode-map "kB" 'calc-utpb)
373 (define-key calc-mode-map "kC" 'calc-utpc)
374 (define-key calc-mode-map "kE" 'calc-extended-gcd)
375 (define-key calc-mode-map "kF" 'calc-utpf)
376 (define-key calc-mode-map "kK" 'calc-keep-args)
377 (define-key calc-mode-map "kN" 'calc-utpn)
378 (define-key calc-mode-map "kP" 'calc-utpp)
379 (define-key calc-mode-map "kT" 'calc-utpt)
381 (define-key calc-mode-map "m" nil)
382 (define-key calc-mode-map "m?" 'calc-m-prefix-help)
383 (define-key calc-mode-map "ma" 'calc-algebraic-mode)
384 (define-key calc-mode-map "md" 'calc-degrees-mode)
385 (define-key calc-mode-map "me" 'calc-embedded-preserve-modes)
386 (define-key calc-mode-map "mf" 'calc-frac-mode)
387 (define-key calc-mode-map "mg" 'calc-get-modes)
388 (define-key calc-mode-map "mh" 'calc-hms-mode)
389 (define-key calc-mode-map "mi" 'calc-infinite-mode)
390 (define-key calc-mode-map "mm" 'calc-save-modes)
391 (define-key calc-mode-map "mp" 'calc-polar-mode)
392 (define-key calc-mode-map "mr" 'calc-radians-mode)
393 (define-key calc-mode-map "ms" 'calc-symbolic-mode)
394 (define-key calc-mode-map "mt" 'calc-total-algebraic-mode)
395 (define-key calc-mode-map "\emt" 'calc-total-algebraic-mode)
396 (define-key calc-mode-map "\em\et" 'calc-total-algebraic-mode)
397 (define-key calc-mode-map "mv" 'calc-matrix-mode)
398 (define-key calc-mode-map "mw" 'calc-working)
399 (define-key calc-mode-map "mx" 'calc-always-load-extensions)
400 (define-key calc-mode-map "mA" 'calc-alg-simplify-mode)
401 (define-key calc-mode-map "mB" 'calc-bin-simplify-mode)
402 (define-key calc-mode-map "mC" 'calc-auto-recompute)
403 (define-key calc-mode-map "mD" 'calc-default-simplify-mode)
404 (define-key calc-mode-map "mE" 'calc-ext-simplify-mode)
405 (define-key calc-mode-map "mF" 'calc-settings-file-name)
406 (define-key calc-mode-map "mM" 'calc-more-recursion-depth)
407 (define-key calc-mode-map "mN" 'calc-num-simplify-mode)
408 (define-key calc-mode-map "mO" 'calc-no-simplify-mode)
409 (define-key calc-mode-map "mR" 'calc-mode-record-mode)
410 (define-key calc-mode-map "mS" 'calc-shift-prefix)
411 (define-key calc-mode-map "mU" 'calc-units-simplify-mode)
412 (define-key calc-mode-map "mX" 'calc-load-everything)
414 (define-key calc-mode-map "r" nil)
415 (define-key calc-mode-map "r?" 'calc-r-prefix-help)
417 (define-key calc-mode-map "s" nil)
418 (define-key calc-mode-map "s?" 'calc-s-prefix-help)
419 (define-key calc-mode-map "sc" 'calc-copy-variable)
420 (define-key calc-mode-map "sd" 'calc-declare-variable)
421 (define-key calc-mode-map "se" 'calc-edit-variable)
422 (define-key calc-mode-map "si" 'calc-insert-variables)
423 (define-key calc-mode-map "sk" 'calc-copy-special-constant)
424 (define-key calc-mode-map "sl" 'calc-let)
425 (define-key calc-mode-map "sm" 'calc-store-map)
426 (define-key calc-mode-map "sn" 'calc-store-neg)
427 (define-key calc-mode-map "sp" 'calc-permanent-variable)
428 (define-key calc-mode-map "sr" 'calc-recall)
429 (define-key calc-mode-map "ss" 'calc-store)
430 (define-key calc-mode-map "st" 'calc-store-into)
431 (define-key calc-mode-map "su" 'calc-unstore)
432 (define-key calc-mode-map "sx" 'calc-store-exchange)
433 (define-key calc-mode-map "sA" 'calc-edit-AlgSimpRules)
434 (define-key calc-mode-map "sD" 'calc-edit-Decls)
435 (define-key calc-mode-map "sE" 'calc-edit-EvalRules)
436 (define-key calc-mode-map "sF" 'calc-edit-FitRules)
437 (define-key calc-mode-map "sG" 'calc-edit-GenCount)
438 (define-key calc-mode-map "sH" 'calc-edit-Holidays)
439 (define-key calc-mode-map "sI" 'calc-edit-IntegLimit)
440 (define-key calc-mode-map "sL" 'calc-edit-LineStyles)
441 (define-key calc-mode-map "sP" 'calc-edit-PointStyles)
442 (define-key calc-mode-map "sR" 'calc-edit-PlotRejects)
443 (define-key calc-mode-map "sS" 'calc-sin)
444 (define-key calc-mode-map "sT" 'calc-edit-TimeZone)
445 (define-key calc-mode-map "sU" 'calc-edit-Units)
446 (define-key calc-mode-map "sX" 'calc-edit-ExtSimpRules)
447 (define-key calc-mode-map "s+" 'calc-store-plus)
448 (define-key calc-mode-map "s-" 'calc-store-minus)
449 (define-key calc-mode-map "s*" 'calc-store-times)
450 (define-key calc-mode-map "s/" 'calc-store-div)
451 (define-key calc-mode-map "s^" 'calc-store-power)
452 (define-key calc-mode-map "s|" 'calc-store-concat)
453 (define-key calc-mode-map "s&" 'calc-store-inv)
454 (define-key calc-mode-map "s[" 'calc-store-decr)
455 (define-key calc-mode-map "s]" 'calc-store-incr)
456 (define-key calc-mode-map "s:" 'calc-assign)
457 (define-key calc-mode-map "s=" 'calc-evalto)
459 (define-key calc-mode-map "t" nil)
460 (define-key calc-mode-map "t?" 'calc-t-prefix-help)
461 (define-key calc-mode-map "tb" 'calc-trail-backward)
462 (define-key calc-mode-map "td" 'calc-trail-display)
463 (define-key calc-mode-map "tf" 'calc-trail-forward)
464 (define-key calc-mode-map "th" 'calc-trail-here)
465 (define-key calc-mode-map "ti" 'calc-trail-in)
466 (define-key calc-mode-map "tk" 'calc-trail-kill)
467 (define-key calc-mode-map "tm" 'calc-trail-marker)
468 (define-key calc-mode-map "tn" 'calc-trail-next)
469 (define-key calc-mode-map "to" 'calc-trail-out)
470 (define-key calc-mode-map "tp" 'calc-trail-previous)
471 (define-key calc-mode-map "tr" 'calc-trail-isearch-backward)
472 (define-key calc-mode-map "ts" 'calc-trail-isearch-forward)
473 (define-key calc-mode-map "ty" 'calc-trail-yank)
474 (define-key calc-mode-map "t[" 'calc-trail-first)
475 (define-key calc-mode-map "t]" 'calc-trail-last)
476 (define-key calc-mode-map "t<" 'calc-trail-scroll-left)
477 (define-key calc-mode-map "t>" 'calc-trail-scroll-right)
478 (define-key calc-mode-map "t{" 'calc-trail-backward)
479 (define-key calc-mode-map "t}" 'calc-trail-forward)
480 (define-key calc-mode-map "t." 'calc-full-trail-vectors)
481 (define-key calc-mode-map "tC" 'calc-convert-time-zones)
482 (define-key calc-mode-map "tD" 'calc-date)
483 (define-key calc-mode-map "tI" 'calc-inc-month)
484 (define-key calc-mode-map "tJ" 'calc-julian)
485 (define-key calc-mode-map "tM" 'calc-new-month)
486 (define-key calc-mode-map "tN" 'calc-now)
487 (define-key calc-mode-map "tP" 'calc-date-part)
488 (define-key calc-mode-map "tT" 'calc-tan)
489 (define-key calc-mode-map "tU" 'calc-unix-time)
490 (define-key calc-mode-map "tW" 'calc-new-week)
491 (define-key calc-mode-map "tY" 'calc-new-year)
492 (define-key calc-mode-map "tZ" 'calc-time-zone)
493 (define-key calc-mode-map "t+" 'calc-business-days-plus)
494 (define-key calc-mode-map "t-" 'calc-business-days-minus)
496 (define-key calc-mode-map "u" 'nil)
497 (define-key calc-mode-map "u?" 'calc-u-prefix-help)
498 (define-key calc-mode-map "ua" 'calc-autorange-units)
499 (define-key calc-mode-map "ub" 'calc-base-units)
500 (define-key calc-mode-map "uc" 'calc-convert-units)
501 (define-key calc-mode-map "ud" 'calc-define-unit)
502 (define-key calc-mode-map "ue" 'calc-explain-units)
503 (define-key calc-mode-map "ug" 'calc-get-unit-definition)
504 (define-key calc-mode-map "up" 'calc-permanent-units)
505 (define-key calc-mode-map "ur" 'calc-remove-units)
506 (define-key calc-mode-map "us" 'calc-simplify-units)
507 (define-key calc-mode-map "ut" 'calc-convert-temperature)
508 (define-key calc-mode-map "uu" 'calc-undefine-unit)
509 (define-key calc-mode-map "uv" 'calc-enter-units-table)
510 (define-key calc-mode-map "ux" 'calc-extract-units)
511 (define-key calc-mode-map "uV" 'calc-view-units-table)
512 (define-key calc-mode-map "uC" 'calc-vector-covariance)
513 (define-key calc-mode-map "uG" 'calc-vector-geometric-mean)
514 (define-key calc-mode-map "uM" 'calc-vector-mean)
515 (define-key calc-mode-map "uN" 'calc-vector-min)
516 (define-key calc-mode-map "uS" 'calc-vector-sdev)
517 (define-key calc-mode-map "uU" 'calc-undo)
518 (define-key calc-mode-map "uX" 'calc-vector-max)
519 (define-key calc-mode-map "u#" 'calc-vector-count)
520 (define-key calc-mode-map "u+" 'calc-vector-sum)
521 (define-key calc-mode-map "u*" 'calc-vector-product)
523 (define-key calc-mode-map "v" 'nil)
524 (define-key calc-mode-map "v?" 'calc-v-prefix-help)
525 (define-key calc-mode-map "va" 'calc-arrange-vector)
526 (define-key calc-mode-map "vb" 'calc-build-vector)
527 (define-key calc-mode-map "vc" 'calc-mcol)
528 (define-key calc-mode-map "vd" 'calc-diag)
529 (define-key calc-mode-map "ve" 'calc-expand-vector)
530 (define-key calc-mode-map "vf" 'calc-vector-find)
531 (define-key calc-mode-map "vh" 'calc-head)
532 (define-key calc-mode-map "vi" 'calc-ident)
533 (define-key calc-mode-map "vk" 'calc-cons)
534 (define-key calc-mode-map "vl" 'calc-vlength)
535 (define-key calc-mode-map "vm" 'calc-mask-vector)
536 (define-key calc-mode-map "vn" 'calc-rnorm)
537 (define-key calc-mode-map "vp" 'calc-pack)
538 (define-key calc-mode-map "vr" 'calc-mrow)
539 (define-key calc-mode-map "vs" 'calc-subvector)
540 (define-key calc-mode-map "vt" 'calc-transpose)
541 (define-key calc-mode-map "vu" 'calc-unpack)
542 (define-key calc-mode-map "vv" 'calc-reverse-vector)
543 (define-key calc-mode-map "vx" 'calc-index)
544 (define-key calc-mode-map "vA" 'calc-apply)
545 (define-key calc-mode-map "vC" 'calc-cross)
546 (define-key calc-mode-map "vD" 'calc-mdet)
547 (define-key calc-mode-map "vE" 'calc-set-enumerate)
548 (define-key calc-mode-map "vF" 'calc-set-floor)
549 (define-key calc-mode-map "vG" 'calc-grade)
550 (define-key calc-mode-map "vH" 'calc-histogram)
551 (define-key calc-mode-map "vI" 'calc-inner-product)
552 (define-key calc-mode-map "vJ" 'calc-conj-transpose)
553 (define-key calc-mode-map "vL" 'calc-mlud)
554 (define-key calc-mode-map "vM" 'calc-map)
555 (define-key calc-mode-map "vN" 'calc-cnorm)
556 (define-key calc-mode-map "vO" 'calc-outer-product)
557 (define-key calc-mode-map "vR" 'calc-reduce)
558 (define-key calc-mode-map "vS" 'calc-sort)
559 (define-key calc-mode-map "vT" 'calc-mtrace)
560 (define-key calc-mode-map "vU" 'calc-accumulate)
561 (define-key calc-mode-map "vV" 'calc-set-union)
562 (define-key calc-mode-map "vX" 'calc-set-xor)
563 (define-key calc-mode-map "v^" 'calc-set-intersect)
564 (define-key calc-mode-map "v-" 'calc-set-difference)
565 (define-key calc-mode-map "v~" 'calc-set-complement)
566 (define-key calc-mode-map "v:" 'calc-set-span)
567 (define-key calc-mode-map "v#" 'calc-set-cardinality)
568 (define-key calc-mode-map "v+" 'calc-remove-duplicates)
569 (define-key calc-mode-map "v&" 'calc-inv)
570 (define-key calc-mode-map "v<" 'calc-matrix-left-justify)
571 (define-key calc-mode-map "v=" 'calc-matrix-center-justify)
572 (define-key calc-mode-map "v>" 'calc-matrix-right-justify)
573 (define-key calc-mode-map "v." 'calc-full-vectors)
574 (define-key calc-mode-map "v/" 'calc-break-vectors)
575 (define-key calc-mode-map "v," 'calc-vector-commas)
576 (define-key calc-mode-map "v[" 'calc-vector-brackets)
577 (define-key calc-mode-map "v]" 'calc-matrix-brackets)
578 (define-key calc-mode-map "v{" 'calc-vector-braces)
579 (define-key calc-mode-map "v}" 'calc-matrix-brackets)
580 (define-key calc-mode-map "v(" 'calc-vector-parens)
581 (define-key calc-mode-map "v)" 'calc-matrix-brackets)
585 (define-key calc-mode-map "V" (lookup-key calc-mode-map "v"))
587 (define-key calc-mode-map "z" 'nil)
588 (define-key calc-mode-map "z?" 'calc-z-prefix-help)
590 (define-key calc-mode-map "Z" 'nil)
591 (define-key calc-mode-map "Z?" 'calc-shift-Z-prefix-help)
592 (define-key calc-mode-map "ZC" 'calc-user-define-composition)
593 (define-key calc-mode-map "ZD" 'calc-user-define)
594 (define-key calc-mode-map "ZE" 'calc-user-define-edit)
595 (define-key calc-mode-map "ZF" 'calc-user-define-formula)
596 (define-key calc-mode-map "ZG" 'calc-get-user-defn)
597 (define-key calc-mode-map "ZI" 'calc-user-define-invocation)
598 (define-key calc-mode-map "ZK" 'calc-user-define-kbd-macro)
599 (define-key calc-mode-map "ZP" 'calc-user-define-permanent)
600 (define-key calc-mode-map "ZS" 'calc-edit-user-syntax)
601 (define-key calc-mode-map "ZT" 'calc-timing)
602 (define-key calc-mode-map "ZU" 'calc-user-undefine)
603 (define-key calc-mode-map "Z[" 'calc-kbd-if)
604 (define-key calc-mode-map "Z:" 'calc-kbd-else)
605 (define-key calc-mode-map "Z|" 'calc-kbd-else-if)
606 (define-key calc-mode-map "Z]" 'calc-kbd-end-if)
607 (define-key calc-mode-map "Z<" 'calc-kbd-repeat)
608 (define-key calc-mode-map "Z>" 'calc-kbd-end-repeat)
609 (define-key calc-mode-map "Z(" 'calc-kbd-for)
610 (define-key calc-mode-map "Z)" 'calc-kbd-end-for)
611 (define-key calc-mode-map "Z{" 'calc-kbd-loop)
612 (define-key calc-mode-map "Z}" 'calc-kbd-end-loop)
613 (define-key calc-mode-map "Z/" 'calc-kbd-break)
614 (define-key calc-mode-map "Z`" 'calc-kbd-push)
615 (define-key calc-mode-map "Z'" 'calc-kbd-pop)
616 (define-key calc-mode-map "Z=" 'calc-kbd-report)
617 (define-key calc-mode-map "Z#" 'calc-kbd-query)
619 (calc-init-prefixes)
623 (define-key calc-mode-map (format "c%c" x) 'calc-clean-num)
624 (define-key calc-mode-map (format "j%c" x) 'calc-select-part)
625 (define-key calc-mode-map (format "r%c" x) 'calc-recall-quick)
626 (define-key calc-mode-map (format "s%c" x) 'calc-store-quick)
627 (define-key calc-mode-map (format "t%c" x) 'calc-store-into-quick)
628 (define-key calc-mode-map (format "u%c" x) 'calc-quick-units)))
633 (if (eq (car-safe (aref (nth 1 calc-mode-map) i)) 'keymap)
634 (aset (nth 1 calc-mode-map) i
635 (cons 'keymap (cons (cons ?\e (aref (nth 1 calc-mode-map) i))
636 (cdr (aref (nth 1 calc-mode-map) i))))))
639 (setq calc-alg-map (copy-keymap calc-mode-map)
640 calc-alg-esc-map (copy-keymap esc-map))
644 (aset (nth 1 calc-alg-map) i 'calc-auto-algebraic-entry))
646 (aset (nth 1 calc-alg-esc-map) i (aref (nth 1 calc-mode-map) i)))
648 (define-key calc-alg-map "\e" calc-alg-esc-map)
649 (define-key calc-alg-map "\e\t" 'calc-roll-up)
650 (define-key calc-alg-map "\e\C-m" 'calc-last-args-stub)
651 (define-key calc-alg-map "\e\177" 'calc-pop-above)
659 ("calc-alg" calc-has-rules math-defsimplify
660 calc-modify-simplify-mode calcFunc-collect calcFunc-esimplify
690 ("calc-arith" calcFunc-abs calcFunc-abssqr
716 ("calc-bin" calcFunc-and calcFunc-ash
725 ("calc-comb" calc-report-prime-test
739 ("calc-cplx" calcFunc-arg calcFunc-conj
744 ("calc-embed" calc-do-embedded
745 calc-do-embedded-activate calc-embedded-evaluate-expr
746 calc-embedded-modes-change calc-embedded-var-change
747 calc-embedded-preserve-modes)
749 ("calc-fin" calc-to-percentage calcFunc-ddb
755 ("calc-forms" calcFunc-badd calcFunc-bsub
770 ("calc-frac" calc-add-fractions
771 calc-div-fractions calc-mul-fractions calcFunc-fdiv calcFunc-frac
774 ("calc-funcs" calc-prob-dist calcFunc-bern
783 ("calc-graph" calc-graph-show-tty)
785 ("calc-incom" calc-digit-dots)
787 ("calc-keypd" calc-do-keypad
788 calc-keypad-x-left-click calc-keypad-x-middle-click
789 calc-keypad-x-right-click)
791 ("calc-lang" calc-set-language
794 ("calc-map" calc-get-operator calcFunc-accum
805 ("calc-mtx" calcFunc-det calcFunc-lud calcFunc-tr
809 ("calc-math" calcFunc-alog calcFunc-arccos
827 ("calc-mode" math-get-modes-vec)
829 ("calc-poly" calcFunc-apart calcFunc-expand
842 ("calc-prog" calc-default-formula-arglist
843 calc-execute-kbd-macro calc-finish-user-syntax-edit
844 calc-fix-token-name calc-fix-user-formula calc-read-parse-table
845 calc-read-parse-table-part calc-subsetp calc-write-parse-table
846 calc-write-parse-table-part calcFunc-constant calcFunc-eq calcFunc-geq
855 ("calc-rewr" calcFunc-match calcFunc-matches
861 ("calc-rules" calc-CommuteRules calc-DistribRules calc-FactorRules
862 calc-FitRules calc-IntegAfterRules calc-InvertRules calc-JumpRules
863 calc-MergeRules calc-NegateRules
864 calc-compile-rule-set)
866 ("calc-sel" calc-auto-selection
867 calc-delete-selection calc-encase-atoms calc-find-assoc-parent-formula
868 calc-find-parent-formula calc-find-sub-formula calc-prepare-selection
869 calc-preserve-point calc-replace-selections calc-replace-sub-formula
870 calc-roll-down-with-selections calc-roll-up-with-selections
871 calc-sel-error)
873 ("calc-stat" calc-vector-op calcFunc-agmean
880 ("calc-store" calc-read-var-name
881 calc-store-value calc-var-name)
883 ("calc-stuff" calc-explain-why calcFunc-clean
886 ("calc-units" calcFunc-usimplify
887 math-build-units-table math-build-units-table-buffer
888 math-check-unit-name math-convert-temperature math-convert-units
889 math-extract-units math-remove-units math-simplify-units
890 math-single-units-in-expr-p math-to-standard-units
891 math-units-in-expr-p)
893 ("calc-vec" calcFunc-append calcFunc-appendrev
912 ("calc-yank" calc-alg-edit calc-clean-newlines
913 calc-do-grab-rectangle calc-do-grab-region calc-finish-stack-edit
914 calc-force-refresh calc-locate-cursor-element calc-show-edit-buffer)
923 ("calc-alg" calc-alg-evaluate calc-apart calc-collect calc-expand
924 calc-expand-formula calc-factor calc-normalize-rat calc-poly-div
925 calc-poly-div-rem calc-poly-gcd calc-poly-rem calc-simplify
926 calc-simplify-extended calc-substitute calc-powerexpand)
928 ("calcalg2" calc-alt-summation calc-derivative
929 calc-dump-integral-cache calc-integral calc-num-integral
930 calc-poly-roots calc-product calc-solve-for calc-summation
931 calc-tabulate calc-taylor)
933 ("calcalg3" calc-curve-fit calc-find-maximum calc-find-minimum
934 calc-find-root calc-poly-interp)
936 ("calc-arith" calc-abs calc-abssqr calc-ceiling calc-decrement
937 calc-floor calc-idiv calc-increment calc-mant-part calc-max calc-min
938 calc-round calc-scale-float calc-sign calc-trunc calc-xpon-part)
940 ("calc-bin" calc-and calc-binary-radix calc-clip calc-decimal-radix
941 calc-diff calc-hex-radix calc-leading-zeros calc-lshift-arith
942 calc-lshift-binary calc-not calc-octal-radix calc-or calc-radix
943 calc-rotate-binary calc-rshift-arith calc-rshift-binary calc-word-size
944 calc-xor)
946 ("calc-comb" calc-choose calc-double-factorial calc-extended-gcd
947 calc-factorial calc-gamma calc-gcd calc-lcm calc-moebius
948 calc-next-prime calc-perm calc-prev-prime calc-prime-factors
949 calc-prime-test calc-random calc-random-again calc-rrandom
950 calc-shuffle calc-totient)
952 ("calc-cplx" calc-argument calc-complex-notation calc-i-notation
953 calc-im calc-j-notation calc-polar calc-polar-mode calc-re)
955 ("calc-embed" calc-embedded-copy-formula-as-kill
956 calc-embedded-duplicate calc-embedded-edit calc-embedded-forget
957 calc-embedded-kill-formula calc-embedded-mark-formula
958 calc-embedded-new-formula calc-embedded-next calc-embedded-previous
959 calc-embedded-select calc-embedded-update-formula calc-embedded-word
960 calc-find-globals calc-show-plain)
962 ("calc-fin" calc-convert-percent calc-fin-ddb calc-fin-fv
963 calc-fin-irr calc-fin-nper calc-fin-npv calc-fin-pmt calc-fin-pv
964 calc-fin-rate calc-fin-sln calc-fin-syd calc-percent-change)
966 ("calc-forms" calc-business-days-minus calc-business-days-plus
967 calc-convert-time-zones calc-date calc-date-notation calc-date-part
968 calc-from-hms calc-hms-mode calc-hms-notation calc-inc-month
969 calc-julian calc-new-month calc-new-week calc-new-year calc-now
970 calc-time calc-time-zone calc-to-hms calc-unix-time)
972 ("calc-frac" calc-fdiv calc-frac-mode calc-fraction
973 calc-over-notation calc-slash-notation)
975 ("calc-funcs" calc-bernoulli-number calc-bessel-J calc-bessel-Y
976 calc-beta calc-erf calc-erfc calc-euler-number calc-inc-beta
977 calc-inc-gamma calc-stirling-number calc-utpb calc-utpc calc-utpf
978 calc-utpn calc-utpp calc-utpt)
980 ("calc-graph" calc-graph-add calc-graph-add-3d calc-graph-border
981 calc-graph-clear calc-graph-command calc-graph-delete
982 calc-graph-device calc-graph-display calc-graph-fast
983 calc-graph-fast-3d calc-graph-geometry calc-graph-grid
984 calc-graph-header calc-graph-hide calc-graph-juggle calc-graph-key
985 calc-graph-kill calc-graph-line-style calc-graph-log-x
986 calc-graph-log-y calc-graph-log-z calc-graph-name
987 calc-graph-num-points calc-graph-output calc-graph-plot
988 calc-graph-point-style calc-graph-print calc-graph-quit
989 calc-graph-range-x calc-graph-range-y calc-graph-range-z
990 calc-graph-show-dumb calc-graph-title-x calc-graph-title-y
991 calc-graph-title-z calc-graph-view-commands calc-graph-view-trail
992 calc-graph-zero-x calc-graph-zero-y)
994 ("calc-help" calc-a-prefix-help calc-b-prefix-help calc-c-prefix-help
995 calc-d-prefix-help calc-describe-function calc-describe-key
996 calc-describe-key-briefly calc-describe-variable calc-f-prefix-help
997 calc-full-help calc-g-prefix-help calc-help-prefix
998 calc-hyperbolic-prefix-help calc-inv-hyp-prefix-help
999 calc-inverse-prefix-help calc-j-prefix-help calc-k-prefix-help
1000 calc-m-prefix-help calc-r-prefix-help calc-s-prefix-help
1001 calc-t-prefix-help calc-u-prefix-help calc-v-prefix-help)
1003 ("calc-incom" calc-begin-complex calc-begin-vector calc-comma
1004 calc-dots calc-end-complex calc-end-vector calc-semi)
1006 ("calc-keypd" calc-keypad-menu calc-keypad-menu-back
1007 calc-keypad-press)
1009 ("calc-lang" calc-big-language calc-c-language calc-eqn-language
1010 calc-flat-language calc-fortran-language calc-maple-language
1011 calc-mathematica-language calc-normal-language calc-pascal-language
1012 calc-tex-language calc-latex-language calc-unformatted-language)
1014 ("calc-map" calc-accumulate calc-apply calc-inner-product calc-map
1015 calc-map-equation calc-map-stack calc-outer-product calc-reduce)
1017 ("calc-mtx" calc-mdet calc-mlud calc-mtrace)
1019 ("calc-math" calc-arccos calc-arccosh calc-arcsin calc-arcsinh
1020 calc-arctan calc-arctan2 calc-arctanh calc-conj calc-cos calc-cosh
1021 calc-cot calc-coth calc-csc calc-csch
1022 calc-degrees-mode calc-exp calc-expm1 calc-hypot calc-ilog
1023 calc-imaginary calc-isqrt calc-ln calc-lnp1 calc-log calc-log10
1024 calc-pi calc-radians-mode calc-sec calc-sech
1025 calc-sin calc-sincos calc-sinh calc-sqrt
1026 calc-tan calc-tanh calc-to-degrees calc-to-radians)
1028 ("calc-mode" calc-alg-simplify-mode calc-algebraic-mode
1029 calc-always-load-extensions calc-auto-recompute calc-auto-why
1030 calc-bin-simplify-mode calc-break-vectors calc-center-justify
1031 calc-default-simplify-mode calc-display-raw calc-eng-notation
1032 calc-ext-simplify-mode calc-fix-notation calc-full-trail-vectors
1033 calc-full-vectors calc-get-modes calc-group-char calc-group-digits
1034 calc-infinite-mode calc-left-justify calc-left-label
1035 calc-line-breaking calc-line-numbering calc-matrix-brackets
1036 calc-matrix-center-justify calc-matrix-left-justify calc-matrix-mode
1037 calc-matrix-right-justify calc-mode-record-mode calc-no-simplify-mode
1038 calc-normal-notation calc-num-simplify-mode calc-point-char
1039 calc-right-justify calc-right-label calc-save-modes calc-sci-notation
1040 calc-settings-file-name calc-shift-prefix calc-symbolic-mode
1041 calc-total-algebraic-mode calc-truncate-down calc-truncate-stack
1042 calc-truncate-up calc-units-simplify-mode calc-vector-braces
1043 calc-vector-brackets calc-vector-commas calc-vector-parens
1044 calc-working)
1046 ("calc-prog" calc-call-last-kbd-macro calc-edit-user-syntax
1047 calc-equal-to calc-get-user-defn calc-greater-equal calc-greater-than
1048 calc-in-set calc-kbd-break calc-kbd-else calc-kbd-else-if
1049 calc-kbd-end-for calc-kbd-end-if calc-kbd-end-loop calc-kbd-end-repeat
1050 calc-kbd-for calc-kbd-if calc-kbd-loop calc-kbd-pop calc-kbd-push
1051 calc-kbd-query calc-kbd-repeat calc-kbd-report calc-less-equal
1052 calc-less-than calc-logical-and calc-logical-if calc-logical-not
1053 calc-logical-or calc-not-equal-to calc-pass-errors calc-remove-equal
1054 calc-timing calc-user-define calc-user-define-composition
1055 calc-user-define-edit calc-user-define-formula
1056 calc-user-define-invocation calc-user-define-kbd-macro
1057 calc-user-define-permanent calc-user-undefine)
1059 ("calc-rewr" calc-match calc-rewrite calc-rewrite-selection)
1061 ("calc-sel" calc-break-selections calc-clear-selections
1062 calc-copy-selection calc-del-selection calc-edit-selection
1063 calc-enable-selections calc-enter-selection calc-sel-add-both-sides
1064 calc-sel-div-both-sides calc-sel-evaluate calc-sel-expand-formula
1065 calc-sel-mult-both-sides calc-sel-sub-both-sides
1066 calc-select-additional calc-select-here calc-select-here-maybe
1067 calc-select-less calc-select-more calc-select-next calc-select-once
1068 calc-select-once-maybe calc-select-part calc-select-previous
1069 calc-show-selections calc-unselect)
1071 ("calcsel2" calc-commute-left calc-commute-right calc-sel-commute
1072 calc-sel-distribute calc-sel-invert calc-sel-isolate
1073 calc-sel-jump-equals calc-sel-merge calc-sel-negate calc-sel-unpack)
1075 ("calc-stat" calc-vector-correlation calc-vector-count
1076 calc-vector-covariance calc-vector-geometric-mean
1077 calc-vector-harmonic-mean calc-vector-max calc-vector-mean
1078 calc-vector-mean-error calc-vector-median calc-vector-min
1079 calc-vector-pop-covariance calc-vector-pop-sdev
1080 calc-vector-pop-variance calc-vector-product calc-vector-sdev
1081 calc-vector-sum calc-vector-variance)
1083 ("calc-store" calc-assign calc-copy-special-constant
1084 calc-copy-variable calc-declare-variable
1085 calc-edit-AlgSimpRules calc-edit-Decls calc-edit-EvalRules
1086 calc-edit-ExtSimpRules calc-edit-FitRules calc-edit-GenCount
1087 calc-edit-Holidays calc-edit-IntegLimit calc-edit-LineStyles
1088 calc-edit-PlotRejects calc-edit-PointStyles calc-edit-TimeZone
1089 calc-edit-Units calc-edit-variable calc-evalto calc-insert-variables
1090 calc-let calc-permanent-variable calc-recall calc-recall-quick
1091 calc-store calc-store-concat calc-store-decr calc-store-div
1092 calc-store-exchange calc-store-incr calc-store-into
1093 calc-store-into-quick calc-store-inv calc-store-map calc-store-minus
1094 calc-store-neg calc-store-plus calc-store-power calc-store-quick
1095 calc-store-times calc-subscript calc-unstore)
1097 ("calc-stuff" calc-clean calc-clean-num calc-flush-caches
1098 calc-less-recursion-depth calc-more-recursion-depth calc-num-prefix
1099 calc-version calc-why)
1101 ("calc-trail" calc-trail-backward calc-trail-first calc-trail-forward
1102 calc-trail-in calc-trail-isearch-backward calc-trail-isearch-forward
1103 calc-trail-kill calc-trail-last calc-trail-marker calc-trail-next
1104 calc-trail-out calc-trail-previous calc-trail-scroll-left
1105 calc-trail-scroll-right calc-trail-yank)
1107 ("calc-undo" calc-last-args calc-redo calc-undo)
1109 ("calc-units" calc-autorange-units calc-base-units
1110 calc-convert-temperature calc-convert-units calc-define-unit
1111 calc-enter-units-table calc-explain-units calc-extract-units
1112 calc-get-unit-definition calc-permanent-units calc-quick-units
1113 calc-remove-units calc-simplify-units calc-undefine-unit
1114 calc-view-units-table)
1116 ("calc-vec" calc-arrange-vector calc-build-vector calc-cnorm
1117 calc-conj-transpose calc-cons calc-cross calc-diag
1118 calc-display-strings calc-expand-vector calc-grade calc-head
1119 calc-histogram calc-ident calc-index calc-mask-vector calc-mcol
1120 calc-mrow calc-pack calc-pack-bits calc-remove-duplicates
1121 calc-reverse-vector calc-rnorm calc-set-cardinality
1122 calc-set-complement calc-set-difference calc-set-enumerate
1123 calc-set-floor calc-set-intersect calc-set-span calc-set-union
1124 calc-set-xor calc-sort calc-subvector calc-tail calc-transpose
1125 calc-unpack calc-unpack-bits calc-vector-find calc-vlength)
1127 ("calc-yank" calc-copy-as-kill calc-copy-region-as-kill
1128 calc-copy-to-buffer calc-edit calc-edit-cancel calc-edit-mode
1129 calc-kill calc-kill-region calc-yank))))
1131 (defun calc-init-prefixes ()
1132 (if calc-shift-prefix
1134 (define-key calc-mode-map "A" (lookup-key calc-mode-map "a"))
1135 (define-key calc-mode-map "B" (lookup-key calc-mode-map "b"))
1136 (define-key calc-mode-map "C" (lookup-key calc-mode-map "c"))
1137 (define-key calc-mode-map "D" (lookup-key calc-mode-map "d"))
1138 (define-key calc-mode-map "F" (lookup-key calc-mode-map "f"))
1139 (define-key calc-mode-map "G" (lookup-key calc-mode-map "g"))
1140 (define-key calc-mode-map "J" (lookup-key calc-mode-map "j"))
1141 (define-key calc-mode-map "K" (lookup-key calc-mode-map "k"))
1142 (define-key calc-mode-map "M" (lookup-key calc-mode-map "m"))
1143 (define-key calc-mode-map "S" (lookup-key calc-mode-map "s"))
1144 (define-key calc-mode-map "T" (lookup-key calc-mode-map "t"))
1145 (define-key calc-mode-map "U" (lookup-key calc-mode-map "u")))
1146 (define-key calc-mode-map "A" 'calc-abs)
1147 (define-key calc-mode-map "B" 'calc-log)
1148 (define-key calc-mode-map "C" 'calc-cos)
1149 (define-key calc-mode-map "D" 'calc-redo)
1150 (define-key calc-mode-map "F" 'calc-floor)
1151 (define-key calc-mode-map "G" 'calc-argument)
1152 (define-key calc-mode-map "J" 'calc-conj)
1153 (define-key calc-mode-map "K" 'calc-keep-args)
1154 (define-key calc-mode-map "M" 'calc-more-recursion-depth)
1155 (define-key calc-mode-map "S" 'calc-sin)
1156 (define-key calc-mode-map "T" 'calc-tan)
1157 (define-key calc-mode-map "U" 'calc-undo)))
1159 (calc-init-extensions)
1166 ;; calc-command-flags is declared in calc.el
1167 (defvar calc-command-flags)
1169 (defun calc-clear-command-flag (f)
1170 (setq calc-command-flags (delq f calc-command-flags)))
1173 (defun calc-record-message (tag &rest args)
1176 (calc-record msg tag))
1177 (calc-clear-command-flag 'clear-message))
1180 (defun calc-normalize-fancy (val)
1181 (let ((simp (if (consp calc-simplify-mode)
1182 (car calc-simplify-mode)
1183 calc-simplify-mode)))
1193 ((eq simp 'units)
1194 (math-simplify-units val))
1199 (defvar calc-help-map nil)
1201 (if calc-help-map
1203 (setq calc-help-map (make-keymap))
1204 (define-key calc-help-map "b" 'calc-describe-bindings)
1205 (define-key calc-help-map "c" 'calc-describe-key-briefly)
1206 (define-key calc-help-map "f" 'calc-describe-function)
1207 (define-key calc-help-map "h" 'calc-full-help)
1208 (define-key calc-help-map "i" 'calc-info)
1209 (define-key calc-help-map "k" 'calc-describe-key)
1210 (define-key calc-help-map "n" 'calc-view-news)
1211 (define-key calc-help-map "s" 'calc-info-summary)
1212 (define-key calc-help-map "t" 'calc-tutorial)
1213 (define-key calc-help-map "v" 'calc-describe-variable)
1214 (define-key calc-help-map "\C-c" 'calc-describe-copying)
1215 (define-key calc-help-map "\C-d" 'calc-describe-distribution)
1216 (define-key calc-help-map "\C-n" 'calc-view-news)
1217 (define-key calc-help-map "\C-w" 'calc-describe-no-warranty)
1218 (define-key calc-help-map "?" 'calc-help-for-help)
1219 (define-key calc-help-map "\C-h" 'calc-help-for-help))
1221 (defvar calc-prefix-help-phase 0)
1222 (defun calc-do-prefix-help (msgs group key)
1223 (if calc-full-help-flag
1227 (setq calc-prefix-help-phase
1229 (% (1+ calc-prefix-help-phase) (1+ (length msgs)))
1231 (let ((msg (nth calc-prefix-help-phase msgs)))
1243 (setq calc-prefix-help-phase 0)
1249 (and key (calc-unread-command key))))
1256 (defun calc-reset (arg)
1261 calc-embedded-info
1262 (equal (aref calc-embedded-info 0) (current-buffer))
1263 (<= (point) (aref calc-embedded-info 5))
1264 (>= (point) (aref calc-embedded-info 4)))
1265 (let ((cbuf (aref calc-embedded-info 1))
1266 (calc-embedded-quiet t))
1268 (calc-embedded nil)
1270 (calc-reset arg))
1271 (calc-embedded nil)))
1272 ((eq major-mode 'calc-mode)
1275 (setq calc-stack nil))
1276 (setq calc-undo-list nil
1277 calc-redo-list nil)
1278 (let (calc-stack calc-user-parse-tables calc-standard-date-formats
1279 calc-invocation-macro)
1280 (mapcar (function (lambda (v) (set v nil))) calc-local-var-list)
1282 (calc-mode-var-list-restore-default-values)
1283 (calc-mode-var-list-restore-saved-values)))
1284 (calc-set-language nil nil t)
1285 (calc-mode)
1286 (calc-flush-caches t)
1287 (run-hooks 'calc-reset-hook))
1288 (calc-wrapper
1290 (calc-realign 0)
1298 (or (= height calc-window-height)
1301 (enlarge-window (- calc-window-height height))
1308 (defun calc-scroll-left (n)
1313 (defun calc-scroll-right (n)
1318 (defun calc-scroll-up (n)
1324 (if (eq major-mode 'calc-mode)
1325 (calc-realign)
1333 (defun calc-scroll-down (n)
1339 (defun calc-precision (n)
1341 (calc-wrapper
1344 (calc-change-mode 'calc-internal-prec (prefix-numeric-value n)
1345 (and (memq (car calc-float-format) '(float sci eng))
1346 (< (nth 1 calc-float-format)
1347 (if (= calc-number-radix 10) 0 1))))
1348 (calc-record calc-internal-prec "prec"))
1349 (message "Floating-point precision is %d digits" calc-internal-prec)))
1352 (defun calc-inverse (&optional n)
1355 (eq major-mode 'calc-keypad-mode)
1356 (eq major-mode 'calc-trail-mode))
1357 (with-current-buffer calc-main-buffer
1358 calc-hyperbolic-flag)
1359 calc-hyperbolic-flag))
1363 (calc-fancy-prefix 'calc-inverse-flag msg n)))
1365 (defconst calc-fancy-prefix-map
1367 (define-key map [t] 'calc-fancy-prefix-other-key)
1368 (define-key map (vector meta-prefix-char t) 'calc-fancy-prefix-other-key)
1382 "Keymap used while processing calc-fancy-prefix.")
1384 (defvar calc-is-keypad-press nil)
1385 (defun calc-fancy-prefix (flag msg n)
1387 (calc-wrapper
1388 (calc-set-command-flag 'keep-flags)
1389 (calc-set-command-flag 'no-align)
1394 (not calc-is-keypad-press)
1396 (setq overriding-terminal-local-map calc-fancy-prefix-map)
1397 (let ((event (calc-read-key t)))
1403 (calc-wrapper)) ; clear flags if not a Calc command.
1407 (calc-unread-command)
1410 (defun calc-fancy-prefix-other-key (arg)
1418 (calc-wrapper)) ; clear flags if not a Calc command.
1420 (calc-unread-command)
1423 (defun calc-invert-func ()
1425 (calc-select-buffer)
1426 (setq calc-inverse-flag (not (calc-is-inverse))
1427 calc-hyperbolic-flag (calc-is-hyperbolic)
1430 (defun calc-is-inverse ()
1431 calc-inverse-flag)
1433 (defun calc-hyperbolic (&optional n)
1436 (eq major-mode 'calc-keypad-mode)
1437 (eq major-mode 'calc-trail-mode))
1438 (with-current-buffer calc-main-buffer
1439 calc-inverse-flag)
1440 calc-inverse-flag))
1444 (calc-fancy-prefix 'calc-hyperbolic-flag msg n)))
1446 (defun calc-hyperbolic-func ()
1448 (calc-select-buffer)
1449 (setq calc-inverse-flag (calc-is-inverse)
1450 calc-hyperbolic-flag (not (calc-is-hyperbolic))
1453 (defun calc-is-hyperbolic ()
1454 calc-hyperbolic-flag)
1456 (defun calc-keep-args (&optional n)
1458 (calc-fancy-prefix 'calc-keep-args-flag "Keep args..." n))
1461 (defun calc-change-mode (var value &optional refresh option)
1467 (if calc-inverse-flag
1470 (calc-check-stack 1)
1478 (calc-refresh-top 1)
1479 (calc-refresh-evaltos)
1487 (if (eq (car var) 'calc-language)
1488 (calc-set-language calc-language calc-language-option t)))))
1495 (if (eq (car v) 'calc-float-format)
1496 (setq calc-full-float-format
1506 (or (and refresh (calc-do-refresh))
1507 (calc-refresh-evaltos))
1508 (and (eq calc-mode-save-mode 'save)
1509 (not (equal var '(calc-mode-save-mode)))
1510 (calc-save-modes))))
1511 (if calc-embedded-info (calc-embedded-modes-change var))
1514 (defun calc-toggle-banner ()
1515 "Toggle display of the friendly greeting calc normally shows above the stack."
1517 (setq calc-show-banner (not calc-show-banner))
1518 (calc-refresh))
1520 (defun calc-refresh-top (n)
1522 (calc-wrapper
1525 (let ((entry (calc-top n 'entry))
1526 (calc-undo-list nil) (calc-redo-list nil))
1527 (calc-pop-stack 1 n t)
1528 (calc-push-list (list (car entry)) n (list (nth 2 entry)))))
1530 (calc-refresh))
1532 (let ((entries (calc-top-list n 1 'entry))
1533 (calc-undo-list nil) (calc-redo-list nil))
1534 (calc-pop-stack n 1 t)
1535 (calc-push-list (mapcar 'car entries)
1540 (defvar calc-refreshing-evaltos nil)
1541 (defvar calc-no-refresh-evaltos nil)
1542 (defun calc-refresh-evaltos (&optional which-var)
1543 (and calc-any-evaltos calc-auto-recompute (not calc-no-refresh-evaltos)
1544 (let ((calc-refreshing-evaltos t)
1545 (num (calc-stack-size))
1546 (calc-undo-list nil) (calc-redo-list nil)
1549 (setq value (calc-top num 'entry))
1559 (calc-push-list (list new-val) num)
1560 (calc-pop-stack 1 (1+ num) t)))))
1562 (and calc-embedded-active which-var
1563 (calc-embedded-var-change which-var)))
1565 (defun calc-push (&rest vals)
1566 (calc-push-list vals))
1568 (defun calc-pop-push (n &rest vals)
1569 (calc-pop-push-list n vals))
1571 (defun calc-pop-push-record (n prefix &rest vals)
1572 (calc-pop-push-record-list n prefix vals))
1575 (defun calc-evaluate (n)
1577 (calc-slow-wrapper
1579 (setq n (calc-stack-size)))
1580 (calc-with-default-simplification
1582 (calc-pop-push-record-list 1 "eval"
1583 (math-evaluate-expr (calc-top (- n)))
1585 (calc-pop-push-record-list n "eval" (mapcar 'math-evaluate-expr
1586 (calc-top-list n)))))
1587 (calc-handle-whys)))
1590 (defun calc-eval-num (n)
1592 (calc-slow-wrapper
1594 (calc-internal-prec (cond ((>= nn 3) nn)
1595 ((< nn 0) (max (+ calc-internal-prec nn)
1597 (t calc-internal-prec)))
1598 (calc-symbolic-mode nil))
1599 (calc-with-default-simplification
1600 (calc-pop-push-record 1 "num" (math-evaluate-expr (calc-top 1)))))
1601 (calc-handle-whys)))
1604 (defun calc-execute-extended-command (n)
1606 (let* ((prompt (concat (calc-num-prefix-name n) "M-x "))
1607 (cmd (intern (completing-read prompt obarray 'commandp t "calc-"))))
1612 (defun calc-realign (&optional num)
1614 (if (and num (eq major-mode 'calc-mode))
1616 (calc-check-stack num)
1617 (calc-cursor-stack-index num)
1618 (and calc-line-numbering
1620 (if (and calc-embedded-info
1621 (eq (current-buffer) (aref calc-embedded-info 0)))
1623 (goto-char (aref calc-embedded-info 2))
1624 (if (save-excursion (set-buffer (aref calc-embedded-info 1))
1625 calc-show-plain)
1627 (calc-wrapper
1633 (defun calc-var-value (v)
1650 (defconst calc-assoc-ops '( ( + ( + - ) ( + ) )
1661 (defvar var-CommuteRules 'calc-CommuteRules)
1662 (defvar var-JumpRules 'calc-JumpRules)
1663 (defvar var-DistribRules 'calc-DistribRules)
1664 (defvar var-MergeRules 'calc-MergeRules)
1665 (defvar var-NegateRules 'calc-NegateRules)
1666 (defvar var-InvertRules 'calc-InvertRules)
1669 (defconst calc-tweak-eqn-table '( ( calcFunc-eq calcFunc-eq calcFunc-neq )
1679 (defun calc-float (arg)
1681 (calc-slow-wrapper
1682 (calc-unary-op "flt"
1683 (if (calc-is-hyperbolic) 'calcFunc-float 'calcFunc-pfloat)
1687 (defvar calc-gnuplot-process nil)
1688 (defvar calc-gnuplot-input)
1689 (defvar calc-gnuplot-buffer)
1691 (defun calc-gnuplot-alive ()
1692 (and calc-gnuplot-process
1693 calc-gnuplot-buffer
1694 (buffer-name calc-gnuplot-buffer)
1695 calc-gnuplot-input
1696 (buffer-name calc-gnuplot-input)
1697 (memq (process-status calc-gnuplot-process) '(run stop))))
1703 (defun calc-load-everything ()
1705 (require 'calc-aent)
1706 (require 'calc-alg)
1707 (require 'calc-arith)
1708 (require 'calc-bin)
1709 (require 'calc-comb)
1710 (require 'calc-cplx)
1711 (require 'calc-embed)
1712 (require 'calc-fin)
1713 (require 'calc-forms)
1714 (require 'calc-frac)
1715 (require 'calc-funcs)
1716 (require 'calc-graph)
1717 (require 'calc-help)
1718 (require 'calc-incom)
1719 (require 'calc-keypd)
1720 (require 'calc-lang)
1721 (require 'calc-macs)
1722 (require 'calc-map)
1723 (require 'calc-math)
1724 (require 'calc-misc)
1725 (require 'calc-mode)
1726 (require 'calc-mtx)
1727 (require 'calc-poly)
1728 (require 'calc-prog)
1729 (require 'calc-rewr)
1730 (require 'calc-rules)
1731 (require 'calc-sel)
1732 (require 'calc-stat)
1733 (require 'calc-store)
1734 (require 'calc-stuff)
1735 (require 'calc-trail)
1736 (require 'calc-undo)
1737 (require 'calc-units)
1738 (require 'calc-vec)
1739 (require 'calc-yank)
1750 (defun calc-concat (arg)
1752 (calc-wrapper
1753 (if (calc-is-inverse)
1754 (if (calc-is-hyperbolic)
1755 (calc-enter-result 2 "apnd" (list 'calcFunc-append
1756 (calc-top 1) (calc-top 2)))
1757 (calc-enter-result 2 "|" (list 'calcFunc-vconcat
1758 (calc-top 1) (calc-top 2))))
1759 (if (calc-is-hyperbolic)
1760 (calc-binary-op "apnd" 'calcFunc-append arg '(vec))
1761 (calc-binary-op "|" 'calcFunc-vconcat arg '(vec) nil '|)))))
1763 (defun calc-append (arg)
1765 (calc-hyperbolic-func)
1766 (calc-concat arg))
1769 (defconst calc-arg-values '( ( var ArgA var-ArgA ) ( var ArgB var-ArgB )
1776 (defun calc-invent-args (n)
1777 (nreverse (nthcdr (- (length calc-arg-values) n) (reverse calc-arg-values))))
1784 (defun calc-user-key-map ()
1785 (if calc-emacs-type-lucid
1787 (let ((res (cdr (lookup-key calc-mode-map "z"))))
1792 (defvar calc-z-prefix-buf nil)
1793 (defvar calc-z-prefix-msgs nil)
1795 (defun calc-z-prefix-help ()
1797 (let* ((calc-z-prefix-msgs nil)
1798 (calc-z-prefix-buf "")
1799 (kmap (sort (copy-sequence (calc-user-key-map))
1804 (calc-user-function-classify (car k))))
1807 (calc-user-function-list kmap 7)
1808 (calc-user-function-list kmap 1)
1809 (setq calc-z-prefix-msgs (cons calc-z-prefix-buf calc-z-prefix-msgs)
1810 calc-z-prefix-buf "")
1811 (calc-user-function-list kmap 6))
1813 (setq calc-z-prefix-msgs (cons calc-z-prefix-buf calc-z-prefix-msgs)))
1814 (calc-do-prefix-help (nreverse calc-z-prefix-msgs) "user" ?z)))
1816 (defun calc-user-function-classify (key)
1818 (if (assq (downcase key) (calc-user-key-map)) 9 1))
1823 (defun calc-user-function-list (map flags)
1826 (kind (calc-user-function-classify key))
1832 (name (if (string-match "\\`calc-" name)
1848 (if (= (length calc-z-prefix-buf) 0)
1849 (setq calc-z-prefix-buf (concat (if (= flags 1) "SHIFT + " "")
1851 (if (> (+ (length calc-z-prefix-buf) (length desc)) 58)
1852 (setq calc-z-prefix-msgs
1853 (cons calc-z-prefix-buf calc-z-prefix-msgs)
1854 calc-z-prefix-buf (concat (if (= flags 1) "SHIFT + " "")
1856 (setq calc-z-prefix-buf (concat calc-z-prefix-buf ", " desc))))))
1857 (calc-user-function-list (cdr map) flags))))
1861 (defun calc-shift-Z-prefix-help ()
1863 (calc-do-prefix-help
1894 (list '= last-prec 'calc-internal-prec)
1901 'calc-internal-prec)
1905 '((calc-internal-prec
1906 (+ calc-internal-prec
1910 '(+ calc-internal-prec 2)))
1912 last-prec 'calc-internal-prec))
1964 (if (eq calc-angle-mode 'rad)
2251 (calc-with-default-simplification
2258 (let ((calc-simplify-mode 'none))
2262 (or calc-refreshing-evaltos
2263 (setq a (let ((calc-simplify-mode 'none)) (math-normalize a))))
2270 (if (eq calc-simplify-mode 'none)
2272 (calc-with-default-simplification
2279 ;; The variable math-normalize-a is local to math-normalize in calc.el,
2285 (if (consp calc-simplify-mode)
2287 (setq calc-simplify-mode 'none
2291 (or (eq calc-simplify-mode 'none)
2292 (and (eq calc-simplify-mode 'num)
2329 (t (calc-record-why 'realp a)
2472 (if (>= ediff (+ calc-internal-prec calc-internal-prec))
2479 (+ calc-internal-prec calc-internal-prec))
2516 (defun calc-binary-op-fancy (name func arg ident unary)
2519 (calc-enter-result n
2523 (cons 'vec (calc-top-list-n n)))))
2526 (calc-enter-result 1 name (list unary (calc-top-n 1)))))
2529 (calc-enter-result 0 name ident)
2532 (let ((rhs (calc-top-n 1)))
2533 (calc-enter-result (- 1 n)
2538 (calc-top-list-n (- n) 2))))))))
2540 (defun calc-unary-op-fancy (name func arg)
2542 (if (= n 0) (setq n (calc-stack-size)))
2544 (calc-enter-result n
2549 (calc-top-list-n n))))
2551 (calc-enter-result 1
2553 (list func (calc-top-n (- n)))
2561 (and calc-symbolic-mode
2608 (if calc-embedded-info
2609 (calc-embedded-evaluate-expr x)
2610 (calc-normalize (math-evaluate-expr-rec x))))
2621 (setq prec (math-add (nth 1 prec) calc-internal-prec))
2625 (if (> prec calc-internal-prec)
2627 (let ((calc-internal-prec prec))
2629 (let ((calc-internal-prec prec))
2631 (let ((calc-symbolic-mode nil))
2643 (if (and (calc-var-value (nth 2 x))
2648 (if calc-symbolic-mode
2664 (defvar var-FactorRules 'calc-FactorRules)
2744 (defvar var-IntegAfterRules 'calc-IntegAfterRules)
2746 (defvar var-FitRules 'calc-FitRules)
2761 (defvar math-simplifying-units nil)
2762 (defvar math-combining-units t)
2773 (den (math-match-substring s 3)))
2776 (den (if (> (length num) 0) (math-read-number den) 1)))
2777 (and int num den
2778 (math-integerp int) (math-integerp num) (math-integerp den)
2779 (not (math-zerop den))
2780 (list 'frac (math-add num (math-mul int den)) den)))))
2785 (den (math-match-substring s 2)))
2787 (den (if (> (length num) 0) (math-read-number den) 1)))
2788 (and num den (math-integerp num) (math-integerp den)
2789 (not (math-zerop den))
2790 (list 'frac num den)))))
2859 (den (math-match-substring s 5)))
2862 (den (if (> (length den) 0) (math-read-radix den radix) 1)))
2863 (and int num den (not (math-zerop den))
2865 (math-add num (math-mul int den))
2866 den)))))
2872 (den (math-match-substring s 4)))
2874 (den (if (> (length den) 0) (math-read-radix den radix) 1)))
2875 (and num den (not (math-zerop den)) (list 'frac num den)))))
2895 (calc-prefer-frac nil))
2905 ((and (eq calc-language 'c)
2911 ((and (eq calc-language 'pascal)
2962 (let* ((calc-language nil)
2984 (and (> (length calc-left-label) 0)
2985 (string-match (concat "^" (regexp-quote calc-left-label)) str)
2988 (and (> (length calc-right-label) 0)
2989 (string-match (concat (regexp-quote calc-right-label) " *$") str)
2993 (if (eq calc-language 'latex)
2995 (let ((calc-language 'latex)
2996 (calc-language-option nil)
3063 (defvar calc-can-abbrev-vectors nil)
3070 (if (or calc-full-trail-vectors (not calc-can-abbrev-vectors)
3089 (ap calc-arg-values)
3103 (let ((p calc-arg-values) (v 1))
3160 calc-break-vectors)))
3187 (let ((str (if (and calc-radix-formatter
3188 (not (memq calc-language '(c pascal))))
3189 (funcall calc-radix-formatter
3190 calc-number-radix
3192 (format "%d#%s" calc-number-radix
3199 (if (> (length (car calc-frac-format)) 1)
3203 (concat (let ((calc-frac-format nil))
3205 (substring (car calc-frac-format) 0 1)
3207 (calc-frac-format nil))
3209 (substring (car calc-frac-format) 1 2)
3211 (calc-frac-format nil))
3213 (concat (let ((calc-frac-format nil))
3215 (car calc-frac-format)
3217 (calc-frac-format nil))
3222 (if (null calc-complex-format)
3227 (symbol-name calc-complex-format)
3229 (concat "-" (symbol-name calc-complex-format))
3233 (symbol-name calc-complex-format)))))
3249 (let ((calc-number-radix 10)
3250 (calc-leading-zeros nil)
3251 (calc-group-digits nil))
3252 (format calc-hms-format
3253 (let ((calc-frac-format '(":" nil)))
3255 (let ((calc-frac-format '(":" nil)))
3273 (if (nth 1 calc-frac-format)
3276 (let ((g (math-quotient (nth 1 calc-frac-format)
3278 (nth 1 calc-frac-format)))))
3283 (let ((str (cond ((= calc-number-radix 10)
3285 ((= calc-number-radix 2)
3287 ((= calc-number-radix 8)
3289 ((= calc-number-radix 16)
3292 (if calc-leading-zeros
3293 (let* ((calc-internal-prec 6)
3294 (digs (math-compute-max-digits (math-abs calc-word-size)
3295 calc-number-radix))
3299 (if calc-group-digits
3301 (g (if (integerp calc-group-digits)
3302 (math-abs calc-group-digits)
3303 (if (memq calc-number-radix '(2 16)) 4 3))))
3307 calc-group-char
3310 (if (and (/= calc-number-radix 10)
3312 (if calc-radix-formatter
3313 (funcall calc-radix-formatter calc-number-radix str)
3314 (format "%d#%s" calc-number-radix str))
3320 (g (if (integerp calc-group-digits) (math-abs calc-group-digits) 3))
3322 (if (and (integerp calc-group-digits) (< calc-group-digits 0))
3325 calc-group-char
3327 i (+ i (1- (length calc-group-char))))))
3332 calc-group-char
3337 (defvar calc-keypad-user-menu nil
3338 "If non-nil, this describes an additional menu for calc-keypad.
3346 (run-hooks 'calc-ext-load-hook)
3348 (provide 'calc-ext)
3351 ;;; calc-ext.el ends here