?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Update copyright year to 2014 by running admin/update-copyright.
[emacs.git] / lisp / calc / calc-menu.el
blob201dc58a68bea57750f6b43929d4424a2a3639d2
1 ;;; calc-menu.el --- a menu for Calc
2
3 ;; Copyright (C) 2007-2014 Free Software Foundation, Inc.
4
5 ;; Maintainer: Jay Belanger <jay.p.belanger@gmail.com>
6
7 ;; This file is part of GNU Emacs.
8
9 ;; GNU Emacs is free software: you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published by
11 ;; the Free Software Foundation, either version 3 of the License, or
12 ;; (at your option) any later version.
13
14 ;; GNU Emacs is distributed in the hope that it will be useful,
15 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 ;; GNU General Public License for more details.
18
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
21
22 ;;; Commentary:
23
24 (defvar calc-arithmetic-menu
25 (list "Arithmetic"
26 (list "Basic"
27 ["-(1:)" calc-change-sign
28 :keys "n" :active (>= (calc-stack-size) 1)]
29 ["(2:) + (1:)" calc-plus
30 :keys "+" :active (>= (calc-stack-size) 2)]
31 ["(2:) - (1:)" calc-minus
32 :keys "-" :active (>= (calc-stack-size) 2)]
33 ["(2:) * (1:)" calc-times
34 :keys "*" :active (>= (calc-stack-size) 2)]
35 ["(2:) / (1:)" calc-divide
36 :keys "/" :active (>= (calc-stack-size) 2)]
37 ["(2:) ^ (1:)" calc-power
38 :keys "^" :active (>= (calc-stack-size) 2)]
39 ["(2:) ^ (1/(1:))"
40 (progn
41 (require 'calc-ext)
42 (let ((calc-inverse-flag t))
43 (call-interactively 'calc-power)))
44 :keys "I ^"
45 :active (>= (calc-stack-size) 2)
46 :help "The (1:)th root of (2:)"]
47 ["abs(1:)"
48 (progn
49 (require 'calc-arith)
50 (call-interactively 'calc-abs))
51 :keys "A"
52 :active (>= (calc-stack-size) 1)
53 :help "Absolute value"]
54 ["1/(1:)"
55 (progn
56 (require 'calc-arith)
57 (call-interactively 'calc-inv))
58 :keys "&"
59 :active (>= (calc-stack-size) 1)]
60 ["sqrt(1:)"
61 (progn
62 (require 'calc-math)
63 (call-interactively 'calc-sqrt))
64 :keys "Q"
65 :active (>= (calc-stack-size) 1)]
66 ["idiv(2:,1:)"
67 (progn
68 (require 'calc-arith)
69 (call-interactively 'calc-idiv))
70 :keys "\\"
71 :active (>= (calc-stack-size) 2)
72 :help "The integer quotient of (2:) over (1:)"]
73 ["(2:) mod (1:)"
74 (progn
75 (require 'calc-misc)
76 (call-interactively 'calc-mod))
77 :keys "%"
78 :active (>= (calc-stack-size) 2)
79 :help "The remainder when (2:) is divided by (1:)"])
80 (list "Rounding"
81 ["floor(1:)"
82 (progn
83 (require 'calc-arith)
84 (call-interactively 'calc-floor))
85 :keys "F"
86 :active (>= (calc-stack-size) 1)
87 :help "The greatest integer less than or equal to (1:)"]
88 ["ceiling(1:)"
89 (progn
90 (require 'calc-arith)
91 (call-interactively 'calc-ceiling))
92 :keys "I F"
93 :active (>= (calc-stack-size) 1)
94 :help "The smallest integer greater than or equal to (1:)"]
95 ["round(1:)"
96 (progn
97 (require 'calc-arith)
98 (call-interactively 'calc-round))
99 :keys "R"
100 :active (>= (calc-stack-size) 1)
101 :help "The nearest integer to (1:)"]
102 ["truncate(1:)"
103 (progn
104 (require 'calc-arith)
105 (call-interactively 'calc-trunc))
106 :keys "I R"
107 :active (>= (calc-stack-size) 1)
108 :help "The integer part of (1:)"])
109 (list "Complex Numbers"
110 ["Re(1:)"
111 (progn
112 (require 'calc-cplx)
113 (call-interactively 'calc-re))
114 :keys "f r"
115 :active (>= (calc-stack-size) 1)]
116 ["Im(1:)"
117 (progn
118 (require 'calc-cplx)
119 (call-interactively 'calc-im))
120 :keys "f i"
121 :active (>= (calc-stack-size) 1)]
122 ["conj(1:)"
123 (progn
124 (require 'calc-cplx)
125 (call-interactively 'calc-conj))
126 :keys "J"
127 :active (>= (calc-stack-size) 1)
128 :help "The complex conjugate of (1:)"]
129 ["length(1:)"
130 (progn (require 'calc-arith)
131 (call-interactively 'calc-abs))
132 :keys "A"
133 :active (>= (calc-stack-size) 1)
134 :help "The length (absolute value) of (1:)"]
135 ["arg(1:)"
136 (progn
137 (require 'calc-cplx)
138 (call-interactively 'calc-argument))
139 :keys "G"
140 :active (>= (calc-stack-size) 1)
141 :help "The argument (polar angle) of (1:)"])
142 (list "Conversion"
143 ["Convert (1:) to a float"
144 (progn
145 (require 'calc-ext)
146 (call-interactively 'calc-float))
147 :keys "c f"
148 :active (>= (calc-stack-size) 1)]
149 ["Convert (1:) to a fraction"
150 (progn
151 (require 'calc-ext)
152 (call-interactively 'calc-fraction))
153 :keys "c F"
154 :active (>= (calc-stack-size) 1)])
155 (list "Binary"
156 ["Set word size"
157 (progn
158 (require 'calc-bin)
159 (call-interactively 'calc-word-size))
160 :keys "b w"]
161 ["Clip (1:) to word size"
162 (progn
163 (require 'calc-bin)
164 (call-interactively 'calc-clip))
165 :keys "b c"
166 :active (>= (calc-stack-size) 1)
167 :help "Reduce (1:) modulo 2^wordsize"]
168 ["(2:) and (1:)"
169 (progn
170 (require 'calc-bin)
171 (call-interactively 'calc-and))
172 :keys "b a"
173 :active (>= (calc-stack-size) 2)
174 :help "Bitwise AND [modulo 2^wordsize]"]
175 ["(2:) or (1:)"
176 (progn
177 (require 'calc-bin)
178 (call-interactively 'calc-or))
179 :keys "b o"
180 :active (>= (calc-stack-size) 2)
181 :help "Bitwise inclusive OR [modulo 2^wordsize]"]
182 ["(2:) xor (1:)"
183 (progn
184 (require 'calc-bin)
185 (call-interactively 'calc-xor))
186 :keys "b x"
187 :active (>= (calc-stack-size) 2)
188 :help "Bitwise exclusive OR [modulo 2^wordsize]"]
189 ["diff(2:,1:)"
190 (progn
191 (require 'calc-bin)
192 (call-interactively 'calc-diff))
193 :keys "b d"
194 :active (>= (calc-stack-size) 2)
195 :help "Bitwise difference [modulo 2^wordsize]"]
196 ["not (1:)"
197 (progn
198 (require 'calc-bin)
199 (call-interactively 'calc-not))
200 :keys "b n"
201 :active (>= (calc-stack-size) 1)
202 :help "Bitwise NOT [modulo 2^wordsize]"]
203 ["left shift(1:)"
204 (progn
205 (require 'calc-bin)
206 (call-interactively 'calc-lshift-binary))
207 :keys "b l"
208 :active (>= (calc-stack-size) 1)
209 :help "Shift (1:)[modulo 2^wordsize] one bit left"]
210 ["right shift(1:)"
211 (progn
212 (require 'calc-bin)
213 (call-interactively 'calc-rshift-binary))
214 :keys "b r"
215 :active (>= (calc-stack-size) 1)
216 :help "Shift (1:)[modulo 2^wordsize] one bit right, putting 0s on the left"]
217 ["arithmetic right shift(1:)"
218 (progn
219 (require 'calc-bin)
220 (call-interactively 'calc-rshift-arith))
221 :keys "b R"
222 :active (>= (calc-stack-size) 1)
223 :help "Shift (1:)[modulo 2^wordsize] one bit right, duplicating the leftmost bit"]
224 ["rotate(1:)"
225 (progn
226 (require 'calc-bin)
227 (call-interactively 'calc-rotate-binary))
228 :keys "b t"
229 :active (>= (calc-stack-size) 1)
230 :help "Rotate (1:)[modulo 2^wordsize] one bit left"])
231 "-------"
232 ["Help on Arithmetic"
233 (calc-info-goto-node "Arithmetic")])
234 "Menu for Calc's arithmetic functions.")
235
236 (defvar calc-scientific-function-menu
237 (list "Scientific Functions"
238 (list "Constants"
239 ["pi"
240 (progn
241 (require 'calc-math)
242 (call-interactively 'calc-pi))
243 :keys "P"]
244 ["e"
245 (progn
246 (require 'calc-math)
247 (let ((calc-hyperbolic-flag t))
248 (call-interactively 'calc-pi)))
249 :keys "H P"]
250 ["phi"
251 (progn
252 (require 'calc-math)
253 (let ((calc-inverse-flag t)
254 (calc-hyperbolic-flag t))
255 (call-interactively 'calc-pi)))
256 :keys "I H P"
257 :help "The golden ratio"]
258 ["gamma"
259 (progn
260 (require 'calc-math)
261 (let ((calc-inverse-flag t))
262 (call-interactively 'calc-pi)))
263 :keys "I P"
264 :help "Euler's constant"])
265 (list "Logs and Exps"
266 ["ln(1:)"
267 (progn
268 (require 'calc-math)
269 (call-interactively 'calc-ln))
270 :keys "L"
271 :active (>= (calc-stack-size) 1)
272 :help "The natural logarithm"]
273 ["e^(1:)"
274 (progn
275 (require 'calc-math)
276 (call-interactively 'calc-exp))
277 :keys "E"
278 :active (>= (calc-stack-size) 1)]
279 ["log(1:) [base 10]"
280 (progn
281 (require 'calc-math)
282 (call-interactively 'calc-log10))
283 :keys "H L"
284 :active (>= (calc-stack-size) 1)
285 :help "The common logarithm"]
286 ["10^(1:)"
287 (progn
288 (require 'calc-math)
289 (let ((calc-inverse-flag t))
290 (call-interactively 'calc-log10)))
291 :keys "I H L"
292 :active (>= (calc-stack-size) 1)]
293 ["log(2:) [base(1:)]"
294 (progn
295 (require 'calc-math)
296 (call-interactively 'calc-log))
297 :keys "B"
298 :active (>= (calc-stack-size) 2)
299 :help "The logarithm with an arbitrary base"]
300 ["(2:) ^ (1:)"
301 calc-power
302 :keys "^"
303 :active (>= (calc-stack-size) 2)])
304 (list "Trigonometric Functions"
305 ["sin(1:)"
306 (progn
307 (require 'calc-math)
308 (call-interactively 'calc-sin))
309 :keys "S"
310 :active (>= (calc-stack-size) 1)]
311 ["cos(1:)"
312 (progn
313 (require 'calc-math)
314 (call-interactively 'calc-cos))
315 :keys "C"
316 :active (>= (calc-stack-size) 1)]
317 ["tan(1:)"
318 (progn
319 (require 'calc-math)
320 (call-interactively 'calc-tan))
321 :keys "T"
322 :active (>= (calc-stack-size) 1)]
323 ["arcsin(1:)"
324 (progn
325 (require 'calc-math)
326 (call-interactively 'calc-arcsin))
327 :keys "I S"
328 :active (>= (calc-stack-size) 1)]
329 ["arccos(1:)"
330 (progn
331 (require 'calc-math)
332 (call-interactively 'calc-arccos))
333 :keys "I C"
334 :active (>= (calc-stack-size) 1)]
335 ["arctan(1:)"
336 (progn
337 (require 'calc-math)
338 (call-interactively 'calc-arctan))
339 :keys "I T"
340 :active (>= (calc-stack-size) 1)]
341 ["arctan2(2:,1:)"
342 (progn
343 (require 'calc-math)
344 (call-interactively 'calc-arctan2))
345 :keys "f T"
346 :active (>= (calc-stack-size) 2)]
347 "--Angle Measure--"
348 ["Radians"
349 (progn
350 (require 'calc-math)
351 (calc-radians-mode))
352 :keys "m r"
353 :style radio
354 :selected (eq calc-angle-mode 'rad)]
355 ["Degrees"
356 (progn
357 (require 'calc-math)
358 (calc-degrees-mode))
359 :keys "m d"
360 :style radio
361 :selected (eq calc-angle-mode 'deg)]
362 ["HMS"
363 (progn
364 (require 'calc-math)
365 (calc-hms-mode))
366 :keys "m h"
367 :style radio
368 :selected (eq calc-angle-mode 'hms)])
369 (list "Hyperbolic Functions"
370 ["sinh(1:)"
371 (progn
372 (require 'calc-math)
373 (call-interactively 'calc-sinh))
374 :keys "H S"
375 :active (>= (calc-stack-size) 1)]
376 ["cosh(1:)"
377 (progn
378 (require 'calc-math)
379 (call-interactively 'calc-cosh))
380 :keys "H C"
381 :active (>= (calc-stack-size) 1)]
382 ["tanh(1:)"
383 (progn
384 (require 'calc-math)
385 (call-interactively 'calc-tanh))
386 :keys "H T"
387 :active (>= (calc-stack-size) 1)]
388 ["arcsinh(1:)"
389 (progn
390 (require 'calc-math)
391 (call-interactively 'calc-arcsinh))
392 :keys "I H S"
393 :active (>= (calc-stack-size) 1)]
394 ["arccosh(1:)"
395 (progn
396 (require 'calc-math)
397 (call-interactively 'calc-arccosh))
398 :keys "I H C"
399 :active (>= (calc-stack-size) 1)]
400 ["arctanh(1:)"
401 (progn
402 (require 'calc-math)
403 (call-interactively 'calc-arctanh))
404 :keys "I H T"
405 :active (>= (calc-stack-size) 1)])
406 (list "Advanced Math Functions"
407 ["Gamma(1:)"
408 (progn
409 (require 'calc-comb)
410 (call-interactively 'calc-gamma))
411 :keys "f g"
412 :active (>= (calc-stack-size) 1)
413 :help "The Euler Gamma function"]
414 ["GammaP(2:,1:)"
415 (progn
416 (require 'calc-funcs)
417 (call-interactively 'calc-inc-gamma))
418 :keys "f G"
419 :active (>= (calc-stack-size) 2)
420 :help "The lower incomplete Gamma function"]
421 ["Beta(2:,1:)"
422 (progn
423 (require 'calc-funcs)
424 (call-interactively 'calc-beta))
425 :keys "f b"
426 :active (>= (calc-stack-size) 2)
427 :help "The Euler Beta function"]
428 ["BetaI(3:,2:,1:)"
429 (progn
430 (require 'calc-funcs)
431 (call-interactively 'calc-inc-beta))
432 :keys "f B"
433 :active (>= (calc-stack-size) 3)
434 :help "The incomplete Beta function"]
435 ["erf(1:)"
436 (progn
437 (require 'calc-funcs)
438 (call-interactively 'calc-erf))
439 :keys "f e"
440 :active (>= (calc-stack-size) 1)
441 :help "The error function"]
442 ["BesselJ(2:,1:)"
443 (progn
444 (require 'calc-funcs)
445 (call-interactively 'calc-bessel-J))
446 :keys "f j"
447 :active (>= (calc-stack-size) 2)
448 :help "The Bessel function of the first kind (of order (2:))"]
449 ["BesselY(2:,1:)"
450 (progn
451 (require 'calc-funcs)
452 (call-interactively 'calc-bessel-Y))
453 :keys "f y"
454 :active (>= (calc-stack-size) 2)
455 :help "The Bessel function of the second kind (of order (2:))"])
456 (list "Combinatorial Functions"
457 ["gcd(2:,1:)"
458 (progn
459 (require 'calc-comb)
460 (call-interactively 'calc-gcd))
461 :keys "k g"
462 :active (>= (calc-stack-size) 2)]
463 ["lcm(2:,1:)"
464 (progn
465 (require 'calc-comb)
466 (call-interactively 'calc-lcm))
467 :keys "k l"
468 :active (>= (calc-stack-size) 2)]
469 ["factorial(1:)"
470 (progn
471 (require 'calc-comb)
472 (call-interactively 'calc-factorial))
473 :keys "!"
474 :active (>= (calc-stack-size) 1)]
475 ["(2:) choose (1:)"
476 (progn
477 (require 'calc-comb)
478 (call-interactively 'calc-choose))
479 :keys "k c"
480 :active (>= (calc-stack-size) 2)]
481 ["permutations(2:,1:)"
482 (progn
483 (require 'calc-comb)
484 (call-interactively 'calc-perm))
485 :keys "H k c"
486 :active (>= (calc-stack-size) 2)]
487 ["Primality test for (1:)"
488 (progn
489 (require 'calc-comb)
490 (call-interactively 'calc-prime-test))
491 :keys "k p"
492 :active (>= (calc-stack-size) 1)
493 :help "For large (1:), a probabilistic test"]
494 ["Factor (1:) into primes"
495 (progn
496 (require 'calc-comb)
497 (call-interactively 'calc-prime-factors))
498 :keys "k f"
499 :active (>= (calc-stack-size) 1)]
500 ["Next prime after (1:)"
501 (progn
502 (require 'calc-comb)
503 (call-interactively 'calc-next-prime))
504 :keys "k n"
505 :active (>= (calc-stack-size) 1)]
506 ["Previous prime before (1:)"
507 (progn
508 (require 'calc-comb)
509 (call-interactively 'calc-prev-prime))
510 :keys "I k n"
511 :active (>= (calc-stack-size) 1)]
512 ["phi(1:)"
513 (progn
514 (require 'calc-comb)
515 (call-interactively 'calc-totient))
516 :keys "k n"
517 :active (>= (calc-stack-size) 1)
518 :help "Euler's totient function"]
519 ["random(1:)"
520 (progn
521 (require 'calc-comb)
522 (call-interactively 'calc-random))
523 :keys "k r"
524 :active (>= (calc-stack-size) 1)
525 :help "A random number >=1 and < (1:)"])
526 "----"
527 ["Help on Scientific Functions"
528 (calc-info-goto-node "Scientific Functions")])
529 "Menu for Calc's scientific functions.")
530
531 (defvar calc-algebra-menu
532 (list "Algebra"
533 (list "Simplification"
534 ["Simplify (1:)"
535 (progn
536 (require 'calc-alg)
537 (call-interactively 'calc-simplify))
538 :keys "a s"
539 :active (>= (calc-stack-size) 1)]
540 ["Simplify (1:) with extended rules"
541 (progn
542 (require 'calc-alg)
543 (call-interactively 'calc-simplify-extended))
544 :keys "a e"
545 :active (>= (calc-stack-size) 1)
546 :help "Apply possibly unsafe simplifications"])
547 (list "Manipulation"
548 ["Expand formula (1:)"
549 (progn
550 (require 'calc-alg)
551 (call-interactively 'calc-expand-formula))
552 :keys "a \""
553 :active (>= (calc-stack-size) 1)
554 :help "Expand (1:) into its defining formula, if possible"]
555 ["Evaluate variables in (1:)"
556 (progn
557 (require 'calc-ext)
558 (call-interactively 'calc-evaluate))
559 :keys "="
560 :active (>= (calc-stack-size) 1)]
561 ["Make substitution in (1:)"
562 (progn
563 (require 'calc-alg)
564 (call-interactively 'calc-substitute))
565 :keys "a b"
566 :active (>= (calc-stack-size) 1)
567 :help
568 "Substitute all occurrences of a sub-expression with a new sub-expression"])
569 (list "Polynomials"
570 ["Factor (1:)"
571 (progn
572 (require 'calc-alg)
573 (call-interactively 'calc-factor))
574 :keys "a f"
575 :active (>= (calc-stack-size) 1)]
576 ["Collect terms in (1:)"
577 (progn
578 (require 'calc-alg)
579 (call-interactively 'calc-collect))
580 :keys "a c"
581 :active (>= (calc-stack-size) 1)
582 :help "Arrange as a polynomial in a given variable"]
583 ["Expand (1:)"
584 (progn
585 (require 'calc-alg)
586 (call-interactively 'calc-expand))
587 :keys "a x"
588 :active (>= (calc-stack-size) 1)
589 :help "Apply distributive law everywhere"]
590 ["Find roots of (1:)"
591 (progn
592 (require 'calcalg2)
593 (call-interactively 'calc-poly-roots))
594 :keys "a P"
595 :active (>= (calc-stack-size) 1)])
596 (list "Calculus"
597 ["Differentiate (1:)"
598 (progn
599 (require 'calcalg2)
600 (call-interactively 'calc-derivative))
601 :keys "a d"
602 :active (>= (calc-stack-size) 1)]
603 ["Integrate (1:) [indefinite]"
604 (progn
605 (require 'calcalg2)
606 (call-interactively 'calc-integral))
607 :keys "a i"
608 :active (>= (calc-stack-size) 1)]
609 ["Integrate (1:) [definite]"
610 (progn
611 (require 'calcalg2)
612 (let ((var (read-string "Integration variable: ")))
613 (calc-tabular-command 'calcFunc-integ "Integration"
614 "intg" nil var nil nil)))
615 :keys "C-u a i"
616 :active (>= (calc-stack-size) 1)]
617 ["Integrate (1:) [numeric]"
618 (progn
619 (require 'calcalg2)
620 (call-interactively 'calc-num-integral))
621 :keys "a I"
622 :active (>= (calc-stack-size) 1)
623 :help "Integrate using the open Romberg method"]
624 ["Taylor expand (1:)"
625 (progn
626 (require 'calcalg2)
627 (call-interactively 'calc-taylor))
628 :keys "a t"
629 :active (>= (calc-stack-size) 1)]
630 ["Minimize (2:) [initial guess = (1:)]"
631 (progn
632 (require 'calcalg3)
633 (call-interactively 'calc-find-minimum))
634 :keys "a N"
635 :active (>= (calc-stack-size) 2)
636 :help "Find a local minimum"]
637 ["Maximize (2:) [initial guess = (1:)]"
638 (progn
639 (require 'calcalg3)
640 (call-interactively 'calc-find-maximum))
641 :keys "a X"
642 :active (>= (calc-stack-size) 2)
643 :help "Find a local maximum"])
644 (list "Solving"
645 ["Solve equation (1:)"
646 (progn
647 (require 'calcalg2)
648 (call-interactively 'calc-solve-for))
649 :keys "a S"
650 :active (>= (calc-stack-size) 1)]
651 ["Solve equation (2:) numerically [initial guess = (1:)]"
652 (progn
653 (require 'calcalg3)
654 (call-interactively 'calc-find-root))
655 :keys "a R"
656 :active (>= (calc-stack-size) 2)]
657 ["Find roots of polynomial (1:)"
658 (progn
659 (require 'calcalg2)
660 (call-interactively 'calc-poly-roots))
661 :keys "a P"
662 :active (>= (calc-stack-size) 1)])
663 (list "Curve Fitting"
664 ["Fit (1:)=[x values, y values] to a curve"
665 (progn
666 (require 'calcalg3)
667 (call-interactively 'calc-curve-fit))
668 :keys "a F"
669 :active (>= (calc-stack-size) 1)])
670 "----"
671 ["Help on Algebra"
672 (calc-info-goto-node "Algebra")])
673 "Menu for Calc's algebraic facilities.")
674
675
676 (defvar calc-graphics-menu
677 (list "Graphics"
678 ["Graph 2D [(1:)= y values, (2:)= x values]"
679 (progn
680 (require 'calc-graph)
681 (call-interactively 'calc-graph-fast))
682 :keys "g f"
683 :active (>= (calc-stack-size) 2)]
684 ["Graph 3D [(1:)= z values, (2:)= y values, (3:)= x values]"
685 (progn
686 (require 'calc-graph)
687 (call-interactively 'calc-graph-fast-3d))
688 :keys "g F"
689 :active (>= (calc-stack-size) 3)]
690 "----"
691 ["Help on Graphics"
692 (calc-info-goto-node "Graphics")])
693 "Menu for Calc's graphics.")
694
695
696 (defvar calc-vectors-menu
697 (list "Matrices/Vectors"
698 (list "Matrices"
699 ["(2:) + (1:)" calc-plus
700 :keys "+" :active (>= (calc-stack-size) 2)]
701 ["(2:) - (1:)" calc-minus
702 :keys "-" :active (>= (calc-stack-size) 2)]
703 ["(2:) * (1:)" calc-times
704 :keys "*" :active (>= (calc-stack-size) 2)]
705 ["(1:)^(-1)"
706 (progn
707 (require 'calc-arith)
708 (call-interactively 'calc-inv))
709 :keys "&"
710 :active (>= (calc-stack-size) 1)]
711 ["Create an identity matrix"
712 (progn
713 (require 'calc-vec)
714 (call-interactively 'calc-ident))
715 :keys "v i"]
716 ["transpose(1:)"
717 (progn
718 (require 'calc-vec)
719 (call-interactively 'calc-transpose))
720 :keys "v t"
721 :active (>= (calc-stack-size) 1)]
722 ["det(1:)"
723 (progn
724 (require 'calc-mtx)
725 (call-interactively 'calc-mdet))
726 :keys "V D"
727 :active (>= (calc-stack-size) 1)]
728 ["trace(1:)"
729 (progn
730 (require 'calc-mtx)
731 (call-interactively 'calc-mtrace))
732 :keys "V T"
733 :active (>= (calc-stack-size) 1)]
734 ["LUD decompose (1:)"
735 (progn
736 (require 'calc-mtx)
737 (call-interactively 'calc-mlud))
738 :keys "V L"
739 :active (>= (calc-stack-size) 1)]
740 ["Extract a row from (1:)"
741 (progn
742 (require 'calc-vec)
743 (call-interactively 'calc-mrow))
744 :keys "v r"
745 :active (>= (calc-stack-size) 1)]
746 ["Extract a column from (1:)"
747 (progn
748 (require 'calc-vec)
749 (call-interactively 'calc-mcol))
750 :keys "v c"
751 :active (>= (calc-stack-size) 1)])
752 (list "Vectors"
753 ["Extract the first element of (1:)"
754 (progn
755 (require 'calc-vec)
756 (call-interactively 'calc-head))
757 :keys "v h"
758 :active (>= (calc-stack-size) 1)]
759 ["Extract an element from (1:)"
760 (progn
761 (require 'calc-vec)
762 (call-interactively 'calc-mrow))
763 :keys "v r"
764 :active (>= (calc-stack-size) 1)]
765 ["Reverse (1:)"
766 (progn
767 (require 'calc-vec)
768 (call-interactively 'calc-reverse-vector))
769 :keys "v v"
770 :active (>= (calc-stack-size) 1)]
771 ["Unpack (1:)"
772 (progn
773 (require 'calc-vec)
774 (call-interactively 'calc-unpack))
775 :keys "v u"
776 :active (>= (calc-stack-size) 1)
777 :help "Separate the elements of (1:)"]
778 ["(2:) cross (1:)"
779 (progn
780 (require 'calc-vec)
781 (call-interactively 'calc-cross))
782 :keys "V C"
783 :active (>= (calc-stack-size) 2)
784 :help "The cross product in R^3"]
785 ["(2:) dot (1:)"
786 calc-mult
787 :keys "*"
788 :active (>= (calc-stack-size) 2)
789 :help "The dot product"]
790 ["Map a function across (1:)"
791 (progn
792 (require 'calc-map)
793 (call-interactively 'calc-map))
794 :keys "V M"
795 :active (>= (calc-stack-size) 1)
796 :help "Apply a function to each element"])
797 (list "Vectors As Sets"
798 ["Remove duplicates from (1:)"
799 (progn
800 (require 'calc-vec)
801 (call-interactively 'calc-remove-duplicates))
802 :keys "V +"
803 :active (>= (calc-stack-size) 1)]
804 ["(2:) union (1:)"
805 (progn
806 (require 'calc-vec)
807 (call-interactively 'calc-set-union))
808 :keys "V V"
809 :active (>= (calc-stack-size) 2)]
810 ["(2:) intersect (1:)"
811 (progn
812 (require 'calc-vec)
813 (call-interactively 'calc-set-intersect))
814 :keys "V ^"
815 :active (>= (calc-stack-size) 2)]
816 ["(2:) \\ (1:)"
817 (progn
818 (require 'calc-vec)
819 (call-interactively 'calc-set-difference))
820 :keys "V -"
821 :help "Set difference"
822 :active (>= (calc-stack-size) 2)])
823 (list "Statistics On Vectors"
824 ["length(1:)"
825 (progn
826 (require 'calc-stat)
827 (call-interactively 'calc-vector-count))
828 :keys "u #"
829 :active (>= (calc-stack-size) 1)
830 :help "The number of data values"]
831 ["sum(1:)"
832 (progn
833 (require 'calc-stat)
834 (call-interactively 'calc-vector-sum))
835 :keys "u +"
836 :active (>= (calc-stack-size) 1)
837 :help "The sum of the data values"]
838 ["max(1:)"
839 (progn
840 (require 'calc-stat)
841 (call-interactively 'calc-vector-max))
842 :keys "u x"
843 :active (>= (calc-stack-size) 1)
844 :help "The maximum of the data values"]
845 ["min(1:)"
846 (progn
847 (require 'calc-stat)
848 (call-interactively 'calc-vector-min))
849 :keys "u N"
850 :active (>= (calc-stack-size) 1)
851 :help "The minimum of the data values"]
852 ["mean(1:)"
853 (progn
854 (require 'calc-stat)
855 (call-interactively 'calc-vector-mean))
856 :keys "u M"
857 :active (>= (calc-stack-size) 1)
858 :help "The average (arithmetic mean) of the data values"]
859 ["mean(1:) with error"
860 (progn
861 (require 'calc-stat)
862 (call-interactively 'calc-vector-mean-error))
863 :keys "I u M"
864 :active (>= (calc-stack-size) 1)
865 :help "The average (arithmetic mean) of the data values as an error form"]
866 ["sdev(1:)"
867 (progn
868 (require 'calc-stat)
869 (call-interactively 'calc-vector-sdev))
870 :keys "u S"
871 :active (>= (calc-stack-size) 1)
872 :help "The sample sdev, sqrt[sum((values - mean)^2)/(N-1)]"]
873 ["variance(1:)"
874 (progn
875 (require 'calc-stat)
876 (call-interactively 'calc-vector-variance))
877 :keys "H u S"
878 :active (>= (calc-stack-size) 1)
879 :help "The sample variance, sum((values - mean)^2)/(N-1)"]
880 ["population sdev(1:)"
881 (progn
882 (require 'calc-stat)
883 (call-interactively 'calc-vector-pop-sdev))
884 :keys "I u S"
885 :active (>= (calc-stack-size) 1)
886 :help "The population sdev, sqrt[sum((values - mean)^2)/N]"]
887 ["population variance(1:)"
888 (progn
889 (require 'calc-stat)
890 (call-interactively 'calc-vector-pop-variance))
891 :keys "H I u S"
892 :active (>= (calc-stack-size) 1)
893 :help "The population variance, sum((values - mean)^2)/N"]
894 ["median(1:)"
895 (progn
896 (require 'calc-stat)
897 (call-interactively 'calc-vector-median))
898 :keys "H u M"
899 :active (>= (calc-stack-size) 1)
900 :help "The median of the data values"]
901 ["harmonic mean(1:)"
902 (progn
903 (require 'calc-stat)
904 (call-interactively 'calc-vector-harmonic-mean))
905 :keys "H I u M"
906 :active (>= (calc-stack-size) 1)]
907 ["geometric mean(1:)"
908 (progn
909 (require 'calc-stat)
910 (call-interactively 'calc-vector-geometric-mean))
911 :keys "u G"
912 :active (>= (calc-stack-size) 1)]
913 ["arithmetic-geometric mean(1:)"
914 (progn
915 (require 'calc-stat)
916 (let ((calc-hyperbolic-flag t))
917 (call-interactively 'calc-vector-geometric-mean)))
918 :keys "H u G"
919 :active (>= (calc-stack-size) 1)]
920 ["RMS(1:)"
921 (progn (require 'calc-arith)
922 (call-interactively 'calc-abs))
923 :keys "A"
924 :active (>= (calc-stack-size) 1)
925 :help "The root-mean-square, or quadratic mean"])
926 ["Abbreviate long vectors"
927 (progn
928 (require 'calc-mode)
929 (call-interactively 'calc-full-vectors))
930 :keys "v ."
931 :style toggle
932 :selected (not calc-full-vectors)]
933 "----"
934 ["Help on Matrices/Vectors"
935 (calc-info-goto-node "Matrix Functions")])
936 "Menu for Calc's vector and matrix functions.")
937
938 (defvar calc-units-menu
939 (list "Units"
940 ["Convert units in (1:)"
941 (progn
942 (require 'calc-units)
943 (call-interactively 'calc-convert-units ))
944 :keys "u c"
945 :active (>= (calc-stack-size) 1)]
946 ["Convert temperature in (1:)"
947 (progn
948 (require 'calc-units)
949 (call-interactively 'calc-convert-temperature))
950 :keys "u t"
951 :active (>= (calc-stack-size) 1)]
952 ["Simplify units in (1:)"
953 (progn
954 (require 'calc-units)
955 (call-interactively 'calc-simplify-units))
956 :keys "u s"
957 :active (>= (calc-stack-size) 1)]
958 ["View units table"
959 (progn
960 (require 'calc-units)
961 (call-interactively 'calc-view-units-table))
962 :keys "u V"]
963 (list "Logarithmic Units"
964 ["Convert (1:) to dB (power)"
965 (progn
966 (require 'calc-units)
967 (call-interactively 'calc-db))
968 :keys "l d"
969 :active (>= (calc-stack-size) 1)]
970 ["Convert (2:) to dB (power) with reference level (1:)"
971 (progn
972 (require 'calc-units)
973 (let ((calc-option-flag t))
974 (call-interactively 'calc-db)))
975 :keys "O l d"
976 :active (>= (calc-stack-size) 2)]
977 ["Convert (1:) to Np (power)"
978 (progn
979 (require 'calc-units)
980 (call-interactively 'calc-np))
981 :keys "l n"
982 :active (>= (calc-stack-size) 1)]
983 ["Convert (2:) to Np (power) with reference level (1:)"
984 (progn
985 (require 'calc-units)
986 (let ((calc-option-flag t))
987 (call-interactively 'calc-np)))
988 :keys "O l n"
989 :active (>= (calc-stack-size) 2)]
990 ["Convert (1:) to power quantity"
991 (progn
992 (require 'calc-units)
993 (call-interactively 'calc-lu-quant))
994 :keys "l q"
995 :active (>= (calc-stack-size) 1)]
996 ["Convert (2:) to power quantity with reference level (1:)"
997 (progn
998 (require 'calc-units)
999 (let ((calc-option-flag t))
1000 (call-interactively 'calc-lu-quant)))
1001 :keys "O l q"
1002 :active (>= (calc-stack-size) 2)]
1003 "----"
1004 ["Convert (1:) to dB (field)"
1005 (progn
1006 (require 'calc-units)
1007 (let ((calc-hyperbolic-flag t))
1008 (call-interactively 'calc-db)))
1009 :keys "H l d"
1010 :active (>= (calc-stack-size) 1)]
1011 ["Convert (2:) to dB (field) with reference level (1:)"
1012 (progn
1013 (require 'calc-units)
1014 (let ((calc-option-flag t)
1015 (calc-hyperbolic-flag t))
1016 (call-interactively 'calc-db)))
1017 :keys "O H l d"
1018 :active (>= (calc-stack-size) 2)]
1019 ["Convert (1:) to Np (field)"
1020 (progn
1021 (require 'calc-units)
1022 (let ((calc-hyperbolic-flag t))
1023 (call-interactively 'calc-np)))
1024 :keys "H l n"
1025 :active (>= (calc-stack-size) 1)]
1026 ["Convert (2:) to Np (field) with reference level (1:)"
1027 (progn
1028 (require 'calc-units)
1029 (let ((calc-option-flag t)
1030 (calc-hyperbolic-flag t))
1031 (call-interactively 'calc-np)))
1032 :keys "O H l d"
1033 :active (>= (calc-stack-size) 2)]
1034 ["Convert (1:) to field quantity"
1035 (progn
1036 (require 'calc-units)
1037 (let ((calc-hyperbolic-flag t))
1038 (call-interactively 'calc-lu-quant)))
1039 :keys "H l q"
1040 :active (>= (calc-stack-size) 1)]
1041 ["Convert (2:) to field quantity with reference level (1:)"
1042 (progn
1043 (require 'calc-units)
1044 (let ((calc-option-flag t)
1045 (calc-hyperbolic-flag))
1046 (call-interactively 'calc-lu-quant)))
1047 :keys "O H l q"
1048 :active (>= (calc-stack-size) 2)])
1049 (list "Musical Notes"
1050 ["Convert (1:) to scientific pitch notation"
1051 (progn
1052 (require 'calc-units)
1053 (call-interactively 'calc-spn))
1054 :keys "l s"
1055 :active (>= (calc-stack-size) 1)]
1056 ["Convert (1:) to midi number"
1057 (progn
1058 (require 'calc-units)
1059 (call-interactively 'calc-midi))
1060 :keys "l m"
1061 :active (>= (calc-stack-size) 1)]
1062 ["Convert (1:) to frequency"
1063 (progn
1064 (require 'calc-units)
1065 (call-interactively 'calc-freq))
1066 :keys "l f"
1067 :active (>= (calc-stack-size) 1)])
1068 "----"
1069 ["Help on Units"
1070 (calc-info-goto-node "Units")])
1071 "Menu for Calc's units functions.")
1072
1073 (defvar calc-variables-menu
1074 (list "Variables"
1075 ["Store (1:) into a variable"
1076 (progn
1077 (require 'calc-store)
1078 (call-interactively 'calc-store))
1079 :keys "s s"
1080 :active (>= (calc-stack-size) 1)]
1081 ["Recall a variable value"
1082 (progn
1083 (require 'calc-store)
1084 (call-interactively 'calc-recall ))
1085 :keys "s r"]
1086 ["Edit the value of a variable"
1087 (progn
1088 (require 'calc-store)
1089 (call-interactively 'calc-edit-variable))
1090 :keys "s e"]
1091 ["Exchange (1:) with a variable value"
1092 (progn
1093 (require 'calc-store)
1094 (call-interactively 'calc-store-exchange))
1095 :keys "s x"
1096 :active (>= (calc-stack-size) 1)]
1097 ["Clear variable value"
1098 (progn
1099 (require 'calc-store)
1100 (call-interactively 'calc-unstore))
1101 :keys "s u"]
1102 ["Evaluate variables in (1:)"
1103 (progn
1104 (require 'calc-ext)
1105 (call-interactively 'calc-evaluate))
1106 :keys "="
1107 :active (>= (calc-stack-size) 1)]
1108 ["Evaluate (1:), assigning a value to a variable"
1109 (progn
1110 (require 'calc-store)
1111 (call-interactively 'calc-let))
1112 :keys "s l"
1113 :active (>= (calc-stack-size) 1)
1114 :help "Evaluate (1:) under a temporary assignment of a variable"]
1115 "----"
1116 ["Help on Variables"
1117 (calc-info-goto-node "Store and Recall")])
1118 "Menu for Calc's variables.")
1119
1120 (defvar calc-stack-menu
1121 (list "Stack"
1122 ["Remove (1:)"
1123 calc-pop
1124 :keys "DEL"
1125 :active (>= (calc-stack-size) 1)]
1126 ["Switch (1:) and (2:)"
1127 calc-roll-down
1128 :keys "TAB"
1129 :active (>= (calc-stack-size) 2)]
1130 ["Duplicate (1:)"
1131 calc-enter
1132 :keys "RET"
1133 :active (>= (calc-stack-size) 1)]
1134 ["Edit (1:)"
1135 (progn
1136 (require 'calc-yank)
1137 (call-interactively calc-edit))
1138 :keys "`"
1139 :active (>= (calc-stack-size) 1)]
1140 "----"
1141 ["Help on Stack"
1142 (calc-info-goto-node "Stack and Trail")])
1143 "Menu for Calc's stack functions.")
1144
1145 (defvar calc-errors-menu
1146 (list "Undo"
1147 ["Undo"
1148 (progn
1149 (require 'calc-undo)
1150 (call-interactively 'calc-undo))
1151 :keys "U"]
1152 ["Redo"
1153 (progn
1154 (require 'calc-undo)
1155 (call-interactively 'calc-redo))
1156 :keys "D"]
1157 "----"
1158 ["Help on Undo"
1159 (progn
1160 (calc-info-goto-node "Introduction")
1161 (Info-goto-node "Undo"))]))
1162
1163 (defvar calc-modes-menu
1164 (list "Modes"
1165 ["Precision"
1166 (progn
1167 (require 'calc-ext)
1168 (call-interactively 'calc-precision))
1169 :keys "p"
1170 :help "Set the precision for floating point calculations"]
1171 ["Fraction mode"
1172 (progn
1173 (require 'calc-frac)
1174 (call-interactively 'calc-frac-mode))
1175 :keys "m f"
1176 :style toggle
1177 :selected calc-prefer-frac
1178 :help "Leave integer quotients as fractions"]
1179 ["Symbolic mode"
1180 (lambda ()
1181 (interactive)
1182 (require 'calc-mode)
1183 (calc-symbolic-mode nil))
1184 :keys "m s"
1185 :style toggle
1186 :selected calc-symbolic-mode
1187 :help "Leave functions producing inexact answers in symbolic form"]
1188 ["Infinite mode"
1189 (lambda ()
1190 (interactive)
1191 (require 'calc-mode)
1192 (calc-infinite-mode nil))
1193 :keys "m i"
1194 :style toggle
1195 :selected calc-infinite-mode
1196 :help "Let expressions like 1/0 produce infinite results"]
1197 ["Abbreviate long vectors"
1198 (progn
1199 (require 'calc-mode)
1200 (call-interactively 'calc-full-vectors))
1201 :keys "v ."
1202 :style toggle
1203 :selected (not calc-full-vectors)]
1204 (list "Simplification"
1205 ["No simplification mode"
1206 (progn
1207 (require 'calc-mode)
1208 (calc-no-simplify-mode t))
1209 :keys "m O"
1210 :style radio
1211 :selected (eq calc-simplify-mode 'none)
1212 :help "No simplifications are done automatically"]
1213 ["Numeric simplification mode"
1214 (progn
1215 (require 'calc-mode)
1216 (calc-num-simplify-mode t))
1217 :keys "m N"
1218 :style radio
1219 :selected (eq calc-simplify-mode 'num)
1220 :help "Only numeric simplifications are done automatically"]
1221 ["Basic simplification mode"
1222 (progn
1223 (require 'calc-mode)
1224 (calc-basic-simplify-mode t))
1225 :keys "m I"
1226 :style radio
1227 :selected (eq calc-simplify-mode nil)
1228 :help "Only basic simplifications are done automatically"]
1229 ["Binary simplification mode"
1230 (progn
1231 (require 'calc-mode)
1232 (calc-bin-simplify-mode t))
1233 :keys "m B"
1234 :style radio
1235 :selected (eq calc-simplify-mode 'binary)
1236 :help "Basic simplifications with binary clipping are done automatically"]
1237 ["Algebraic simplification mode"
1238 (progn
1239 (require 'calc-mode)
1240 (calc-alg-simplify-mode t))
1241 :keys "m A"
1242 :style radio
1243 :selected (eq calc-simplify-mode 'alg)
1244 :help "Standard algebraic simplifications are done automatically"]
1245 ["Extended simplification mode"
1246 (progn
1247 (require 'calc-mode)
1248 (calc-ext-simplify-mode t))
1249 :keys "m E"
1250 :style radio
1251 :selected (eq calc-simplify-mode 'ext)
1252 :help "Extended (unsafe) simplifications are done automatically"]
1253 ["Units simplification mode"
1254 (progn
1255 (require 'calc-mode)
1256 (calc-units-simplify-mode t))
1257 :keys "m U"
1258 :style radio
1259 :selected (eq calc-simplify-mode 'units)
1260 :help "Algebraic and unit simplifications are done automatically"])
1261 (list "Angle Measure"
1262 ["Radians"
1263 (progn
1264 (require 'calc-math)
1265 (call-interactively 'calc-radians-mode))
1266 :keys "m r"
1267 :style radio
1268 :selected (eq calc-angle-mode 'rad)]
1269 ["Degrees"
1270 (progn
1271 (require 'calc-math)
1272 (call-interactively 'calc-degrees-mode))
1273 :keys "m d"
1274 :style radio
1275 :selected (eq calc-angle-mode 'deg)]
1276 ["HMS"
1277 (progn
1278 (require 'calc-math)
1279 (call-interactively 'calc-hms-mode))
1280 :keys "m h"
1281 :style radio
1282 :selected (eq calc-angle-mode 'hms)])
1283 (list "Radix"
1284 ["Decimal"
1285 (progn
1286 (require 'calc-bin)
1287 (call-interactively 'calc-decimal-radix))
1288 :keys "d 0"
1289 :style radio
1290 :selected (and (= calc-number-radix 10)
1291 (not calc-twos-complement-mode))]
1292 ["Binary"
1293 (progn
1294 (require 'calc-bin)
1295 (call-interactively 'calc-binary-radix))
1296 :keys "d 2"
1297 :style radio
1298 :selected (and (= calc-number-radix 2)
1299 (not calc-twos-complement-mode))]
1300 ["Octal"
1301 (progn
1302 (require 'calc-bin)
1303 (call-interactively 'calc-octal-radix))
1304 :keys "d 8"
1305 :style radio
1306 :selected (and (= calc-number-radix 8)
1307 (not calc-twos-complement-mode))]
1308 ["Hexadecimal"
1309 (progn
1310 (require 'calc-bin)
1311 (call-interactively 'calc-hex-radix))
1312 :keys "d 6"
1313 :style radio
1314 :selected (and (= calc-number-radix 16)
1315 (not calc-twos-complement-mode))]
1316 ["Other"
1317 (progn
1318 (require 'calc-bin)
1319 (call-interactively 'calc-radix))
1320 :keys "d r"
1321 :style radio
1322 :selected (and
1323 (not calc-twos-complement-mode)
1324 (not
1325 (or
1326 (= calc-number-radix 10)
1327 (= calc-number-radix 2)
1328 (= calc-number-radix 8)
1329 (= calc-number-radix 16))))]
1330 ["--Two's Complement--"
1331 (lambda () ())
1332 :style radio
1333 :selected nil]
1334 ["Binary"
1335 (progn
1336 (require 'calc-bin)
1337 (call-interactively
1338 (lambda () (interactive) (calc-binary-radix t))))
1339 :keys "C-u d 2"
1340 :style radio
1341 :selected (and (= calc-number-radix 2)
1342 calc-twos-complement-mode)]
1343 ["Octal"
1344 (progn
1345 (require 'calc-bin)
1346 (call-interactively
1347 (lambda () (interactive) (calc-octal-radix t))))
1348 :keys "C-u d 8"
1349 :style radio
1350 :selected (and (= calc-number-radix 8)
1351 calc-twos-complement-mode)]
1352 ["Hexadecimal"
1353 (progn
1354 (require 'calc-bin)
1355 (call-interactively
1356 (lambda () (interactive) (calc-hex-radix t))))
1357 :keys "C-u d 6"
1358 :style radio
1359 :selected (and (= calc-number-radix 16)
1360 calc-twos-complement-mode)])
1361 (list "Float Format"
1362 ["Normal"
1363 (progn
1364 (require 'calc-mode)
1365 (call-interactively 'calc-normal-notation))
1366 :keys "d n"
1367 :style radio
1368 :selected (eq (car-safe calc-float-format) 'float)]
1369 ["Fixed point"
1370 (progn
1371 (require 'calc-mode)
1372 (call-interactively 'calc-fix-notation))
1373 :keys "d f"
1374 :style radio
1375 :selected (eq (car-safe calc-float-format) 'fix)]
1376 ["Scientific notation"
1377 (progn
1378 (require 'calc-mode)
1379 (call-interactively 'calc-sci-notation))
1380 :keys "d s"
1381 :style radio
1382 :selected (eq (car-safe calc-float-format) 'sci)]
1383 ["Engineering notation"
1384 (progn
1385 (require 'calc-mode)
1386 (call-interactively 'calc-eng-notation))
1387 :keys "d e"
1388 :style radio
1389 :selected (eq (car-safe calc-float-format) 'eng)])
1390 (list "Complex Format"
1391 ["Default"
1392 (progn
1393 (require 'calc-cplx)
1394 (calc-complex-notation))
1395 :style radio
1396 :selected (not calc-complex-format)
1397 :keys "d c"
1398 :help "Display complex numbers as ordered pairs."]
1399 ["i notation"
1400 (progn
1401 (require 'calc-cplx)
1402 (calc-i-notation))
1403 :style radio
1404 :selected (eq calc-complex-format 'i)
1405 :keys "d i"
1406 :help "Display complex numbers as a+bi."]
1407 ["j notation"
1408 (progn
1409 (require 'calc-cplx)
1410 (calc-i-notation))
1411 :style radio
1412 :selected (eq calc-complex-format 'j)
1413 :keys "d j"
1414 :help "Display complex numbers as a+bj."]
1415 ["Other"
1416 (calc-complex-notation)
1417 :style radio
1418 :selected (and calc-complex-format
1419 (not (eq calc-complex-format 'i))
1420 (not (eq calc-complex-format 'j)))
1421 :active nil]
1422 "----"
1423 ["Polar mode"
1424 (progn
1425 (require 'calc-cplx)
1426 (calc-polar-mode nil))
1427 :style toggle
1428 :selected (eq calc-complex-mode 'polar)
1429 :keys "m p"
1430 :help "Prefer polar form for complex numbers."])
1431 (list "Algebraic"
1432 ["Normal"
1433 (progn
1434 (require 'calc-mode)
1435 (cond
1436 (calc-incomplete-algebraic-mode
1437 (calc-algebraic-mode t))
1438 (calc-algebraic-mode
1439 (calc-algebraic-mode nil))))
1440 :style radio
1441 :selected (not calc-algebraic-mode)]
1442 ["Algebraic mode"
1443 (progn
1444 (require 'calc-mode)
1445 (if (or
1446 calc-incomplete-algebraic-mode
1447 (not calc-algebraic-mode))
1448 (calc-algebraic-mode nil)))
1449 :keys "m a"
1450 :style radio
1451 :selected (and calc-algebraic-mode
1452 (not calc-incomplete-algebraic-mode))
1453 :help "Keys which start numeric entry also start algebraic entry"]
1454 ["Incomplete algebraic mode"
1455 (progn
1456 (require 'calc-mode)
1457 (unless calc-incomplete-algebraic-mode
1458 (calc-algebraic-mode t)))
1459 :keys "C-u m a"
1460 :style radio
1461 :selected calc-incomplete-algebraic-mode
1462 :help "Only ( and [ begin algebraic entry"]
1463 ["Total algebraic mode"
1464 (progn
1465 (require 'calc-mode)
1466 (unless (eq calc-algebraic-mode 'total)
1467 (calc-total-algebraic-mode nil)))
1468 :keys "m t"
1469 :style radio
1470 :selected (eq calc-algebraic-mode 'total)
1471 :help "All regular letters and punctuation begin algebraic entry"])
1472 (list "Matrix"
1473 ["Off"
1474 (progn
1475 (require 'calc-mode)
1476 (calc-matrix-mode -1))
1477 :style radio
1478 :selected (eq calc-matrix-mode nil)
1479 :help "Variables are not assumed to be matrix or scalar"]
1480 ["Matrix mode"
1481 (progn
1482 (require 'calc-mode)
1483 (calc-matrix-mode -2))
1484 :style radio
1485 :selected (eq calc-matrix-mode 'matrix)
1486 :help "Variables are assumed to be matrices"]
1487 ["Square matrix mode"
1488 (progn
1489 (require 'calc-mode)
1490 (calc-matrix-mode '(4)))
1491 :style radio
1492 :selected (eq calc-matrix-mode 'sqmatrix)
1493 :help "Variables are assumed to be square matrices"]
1494 ["Dimensioned matrix mode"
1495 (let ((dim (string-to-number (read-from-minibuffer "Dimension: "))))
1496 (if (natnump dim)
1497 (progn
1498 (require 'calc-mode)
1499 (calc-matrix-mode dim))
1500 (error "The dimension must be a positive integer")))
1501 :style radio
1502 :selected (and (integerp calc-matrix-mode) (> calc-matrix-mode 0))
1503 :help "Variables are assumed to be NxN matrices"]
1504 ["Scalar mode"
1505 (progn
1506 (require 'calc-mode)
1507 (calc-matrix-mode 0))
1508 :style radio
1509 :selected (eq calc-matrix-mode 'scalar)
1510 :help "Variables are assumed to be scalars"])
1511 (list "Language"
1512 ["Normal"
1513 (progn
1514 (require 'calc-lang)
1515 (call-interactively 'calc-normal-language))
1516 :keys "d N"
1517 :style radio
1518 :selected (eq calc-language nil)]
1519 ["Big"
1520 (progn
1521 (require 'calc-lang)
1522 (call-interactively 'calc-big-language))
1523 :keys "d B"
1524 :style radio
1525 :selected (eq calc-language 'big)
1526 :help "Use textual approximations to various mathematical notations"]
1527 ["Flat"
1528 (progn
1529 (require 'calc-lang)
1530 (call-interactively 'calc-flat-language))
1531 :keys "d O"
1532 :style radio
1533 :selected (eq calc-language 'flat)
1534 :help "Write matrices on a single line"]
1535 ["C"
1536 (progn
1537 (require 'calc-lang)
1538 (call-interactively 'calc-c-language))
1539 :keys "d C"
1540 :style radio
1541 :selected (eq calc-language 'c)]
1542 ["Pascal"
1543 (progn
1544 (require 'calc-lang)
1545 (call-interactively 'calc-pascal-language))
1546 :keys "d P"
1547 :style radio
1548 :selected (eq calc-language 'pascal)]
1549 ["Fortran"
1550 (progn
1551 (require 'calc-lang)
1552 (call-interactively 'calc-fortran-language))
1553 :keys "d F"
1554 :style radio
1555 :selected (eq calc-language 'fortran)]
1556 ["TeX"
1557 (progn
1558 (require 'calc-lang)
1559 (call-interactively 'calc-tex-language))
1560 :keys "d T"
1561 :style radio
1562 :selected (eq calc-language 'tex)]
1563 ["LaTeX"
1564 (progn
1565 (require 'calc-lang)
1566 (call-interactively 'calc-latex-language))
1567 :keys "d L"
1568 :style radio
1569 :selected (eq calc-language 'latex)]
1570 ["Eqn"
1571 (progn
1572 (require 'calc-lang)
1573 (call-interactively 'calc-eqn-language))
1574 :keys "d E"
1575 :style radio
1576 :selected (eq calc-language 'eqn)]
1577 ["Yacas"
1578 (progn
1579 (require 'calc-lang)
1580 (call-interactively 'calc-yacas-language))
1581 :keys "d Y"
1582 :style radio
1583 :selected (eq calc-language 'yacas)]
1584 ["Maxima"
1585 (progn
1586 (require 'calc-lang)
1587 (call-interactively 'calc-maxima-language))
1588 :keys "d X"
1589 :style radio
1590 :selected (eq calc-language 'maxima)]
1591 ["Giac"
1592 (progn
1593 (require 'calc-lang)
1594 (call-interactively 'calc-giac-language))
1595 :keys "d A"
1596 :style radio
1597 :selected (eq calc-language 'giac)]
1598 ["Mma"
1599 (progn
1600 (require 'calc-lang)
1601 (call-interactively 'calc-mathematica-language))
1602 :keys "d M"
1603 :style radio
1604 :selected (eq calc-language 'math)]
1605 ["Maple"
1606 (progn
1607 (require 'calc-lang)
1608 (call-interactively 'calc-maple-language))
1609 :keys "d W"
1610 :style radio
1611 :selected (eq calc-language 'maple)])
1612 "----"
1613 ["Save mode settings" calc-save-modes :keys "m m"]
1614 "----"
1615 ["Help on Modes"
1616 (calc-info-goto-node "Mode settings")])
1617 "Menu for Calc's mode settings.")
1618
1619 (defvar calc-help-menu
1620 (list "Help"
1621 ["Manual"
1622 calc-info
1623 :keys "h i"]
1624 ["Tutorial"
1625 calc-tutorial
1626 :keys "h t"]
1627 ["Summary"
1628 calc-info-summary
1629 :keys "h s"]
1630 "----"
1631 ["Help on Help"
1632 (progn
1633 (calc-info-goto-node "Introduction")
1634 (Info-goto-node "Help Commands"))])
1635 "Menu for Calc's help functions.")
1636
1637 ;; Needed to make this file loadable in isolation.
1638 ;; Another option would be to use calc-load-hook.
1639 (require 'calc)
1640
1641 (easy-menu-define
1642 calc-menu
1643 calc-mode-map
1644 "Menu for Calc."
1645 (list "Calc"
1646 :visible '(eq major-mode 'calc-mode)
1647 calc-arithmetic-menu
1648 calc-scientific-function-menu
1649 calc-algebra-menu
1650 calc-graphics-menu
1651 calc-vectors-menu
1652 calc-units-menu
1653 calc-variables-menu
1654 calc-stack-menu
1655 calc-errors-menu
1656 calc-modes-menu
1657 calc-help-menu
1658 ["Reset"
1659 (progn
1660 (require 'calc-ext)
1661 (call-interactively 'calc-reset))
1662 :help "Reset Calc to its initial state"]
1663 ["Quit" calc-quit]))
1664
1665 (provide 'calc-menu)
Emacs repository mirror