?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Top-level elisp files respect ‘text-quoting-style’
[emacs.git] / lisp / calc / calc-menu.el
blob44086872dd02eb0f88d3b49c91b04172503bfa2d
1 ;;; calc-menu.el --- a menu for Calc
2
3 ;; Copyright (C) 2007-2015 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 )
927 ["Abbreviate long vectors"
928 (progn
929 (require 'calc-mode)
930 (call-interactively 'calc-full-vectors))
931 :keys "v ."
932 :style toggle
933 :selected (not calc-full-vectors)]
934 "----"
935 ["Help on Matrices/Vectors"
936 (calc-info-goto-node "Matrix Functions")])
937 "Menu for Calc's vector and matrix functions.")
938
939 (defvar calc-units-menu
940 (list "Units"
941 ["Convert units in (1:)"
942 (progn
943 (require 'calc-units)
944 (call-interactively 'calc-convert-units ))
945 :keys "u c"
946 :active (>= (calc-stack-size) 1)]
947 ["Convert temperature in (1:)"
948 (progn
949 (require 'calc-units)
950 (call-interactively 'calc-convert-temperature))
951 :keys "u t"
952 :active (>= (calc-stack-size) 1)]
953 ["Simplify units in (1:)"
954 (progn
955 (require 'calc-units)
956 (call-interactively 'calc-simplify-units))
957 :keys "u s"
958 :active (>= (calc-stack-size) 1)]
959 ["View units table"
960 (progn
961 (require 'calc-units)
962 (call-interactively 'calc-view-units-table))
963 :keys "u V"]
964 (list "Logarithmic Units"
965 ["Convert (1:) to dB (power)"
966 (progn
967 (require 'calc-units)
968 (call-interactively 'calc-db))
969 :keys "l d"
970 :active (>= (calc-stack-size) 1)]
971 ["Convert (2:) to dB (power) with reference level (1:)"
972 (progn
973 (require 'calc-units)
974 (let ((calc-option-flag t))
975 (call-interactively 'calc-db)))
976 :keys "O l d"
977 :active (>= (calc-stack-size) 2)]
978 ["Convert (1:) to Np (power)"
979 (progn
980 (require 'calc-units)
981 (call-interactively 'calc-np))
982 :keys "l n"
983 :active (>= (calc-stack-size) 1)]
984 ["Convert (2:) to Np (power) with reference level (1:)"
985 (progn
986 (require 'calc-units)
987 (let ((calc-option-flag t))
988 (call-interactively 'calc-np)))
989 :keys "O l n"
990 :active (>= (calc-stack-size) 2)]
991 ["Convert (1:) to power quantity"
992 (progn
993 (require 'calc-units)
994 (call-interactively 'calc-lu-quant))
995 :keys "l q"
996 :active (>= (calc-stack-size) 1)]
997 ["Convert (2:) to power quantity with reference level (1:)"
998 (progn
999 (require 'calc-units)
1000 (let ((calc-option-flag t))
1001 (call-interactively 'calc-lu-quant)))
1002 :keys "O l q"
1003 :active (>= (calc-stack-size) 2)]
1004 "----"
1005 ["Convert (1:) to dB (field)"
1006 (progn
1007 (require 'calc-units)
1008 (let ((calc-hyperbolic-flag t))
1009 (call-interactively 'calc-db)))
1010 :keys "H l d"
1011 :active (>= (calc-stack-size) 1)]
1012 ["Convert (2:) to dB (field) with reference level (1:)"
1013 (progn
1014 (require 'calc-units)
1015 (let ((calc-option-flag t)
1016 (calc-hyperbolic-flag t))
1017 (call-interactively 'calc-db)))
1018 :keys "O H l d"
1019 :active (>= (calc-stack-size) 2)]
1020 ["Convert (1:) to Np (field)"
1021 (progn
1022 (require 'calc-units)
1023 (let ((calc-hyperbolic-flag t))
1024 (call-interactively 'calc-np)))
1025 :keys "H l n"
1026 :active (>= (calc-stack-size) 1)]
1027 ["Convert (2:) to Np (field) with reference level (1:)"
1028 (progn
1029 (require 'calc-units)
1030 (let ((calc-option-flag t)
1031 (calc-hyperbolic-flag t))
1032 (call-interactively 'calc-np)))
1033 :keys "O H l d"
1034 :active (>= (calc-stack-size) 2)]
1035 ["Convert (1:) to field quantity"
1036 (progn
1037 (require 'calc-units)
1038 (let ((calc-hyperbolic-flag t))
1039 (call-interactively 'calc-lu-quant)))
1040 :keys "H l q"
1041 :active (>= (calc-stack-size) 1)]
1042 ["Convert (2:) to field quantity with reference level (1:)"
1043 (progn
1044 (require 'calc-units)
1045 (let ((calc-option-flag t)
1046 (calc-hyperbolic-flag))
1047 (call-interactively 'calc-lu-quant)))
1048 :keys "O H l q"
1049 :active (>= (calc-stack-size) 2)])
1050 (list "Musical Notes"
1051 ["Convert (1:) to scientific pitch notation"
1052 (progn
1053 (require 'calc-units)
1054 (call-interactively 'calc-spn))
1055 :keys "l s"
1056 :active (>= (calc-stack-size) 1)]
1057 ["Convert (1:) to midi number"
1058 (progn
1059 (require 'calc-units)
1060 (call-interactively 'calc-midi))
1061 :keys "l m"
1062 :active (>= (calc-stack-size) 1)]
1063 ["Convert (1:) to frequency"
1064 (progn
1065 (require 'calc-units)
1066 (call-interactively 'calc-freq))
1067 :keys "l f"
1068 :active (>= (calc-stack-size) 1)])
1069 "----"
1070 ["Help on Units"
1071 (calc-info-goto-node "Units")])
1072 "Menu for Calc's units functions.")
1073
1074 (defvar calc-variables-menu
1075 (list "Variables"
1076 ["Store (1:) into a variable"
1077 (progn
1078 (require 'calc-store)
1079 (call-interactively 'calc-store))
1080 :keys "s s"
1081 :active (>= (calc-stack-size) 1)]
1082 ["Recall a variable value"
1083 (progn
1084 (require 'calc-store)
1085 (call-interactively 'calc-recall ))
1086 :keys "s r"]
1087 ["Edit the value of a variable"
1088 (progn
1089 (require 'calc-store)
1090 (call-interactively 'calc-edit-variable))
1091 :keys "s e"]
1092 ["Exchange (1:) with a variable value"
1093 (progn
1094 (require 'calc-store)
1095 (call-interactively 'calc-store-exchange))
1096 :keys "s x"
1097 :active (>= (calc-stack-size) 1)]
1098 ["Clear variable value"
1099 (progn
1100 (require 'calc-store)
1101 (call-interactively 'calc-unstore))
1102 :keys "s u"]
1103 ["Evaluate variables in (1:)"
1104 (progn
1105 (require 'calc-ext)
1106 (call-interactively 'calc-evaluate))
1107 :keys "="
1108 :active (>= (calc-stack-size) 1)]
1109 ["Evaluate (1:), assigning a value to a variable"
1110 (progn
1111 (require 'calc-store)
1112 (call-interactively 'calc-let))
1113 :keys "s l"
1114 :active (>= (calc-stack-size) 1)
1115 :help "Evaluate (1:) under a temporary assignment of a variable"]
1116 "----"
1117 ["Help on Variables"
1118 (calc-info-goto-node "Store and Recall")])
1119 "Menu for Calc's variables.")
1120
1121 (defvar calc-stack-menu
1122 (list "Stack"
1123 ["Remove (1:)"
1124 calc-pop
1125 :keys "DEL"
1126 :active (>= (calc-stack-size) 1)]
1127 ["Switch (1:) and (2:)"
1128 calc-roll-down
1129 :keys "TAB"
1130 :active (>= (calc-stack-size) 2)]
1131 ["Duplicate (1:)"
1132 calc-enter
1133 :keys "RET"
1134 :active (>= (calc-stack-size) 1)]
1135 ["Edit (1:)"
1136 (progn
1137 (require 'calc-yank)
1138 (call-interactively calc-edit))
1139 :keys "`"
1140 :active (>= (calc-stack-size) 1)]
1141 "----"
1142 ["Help on Stack"
1143 (calc-info-goto-node "Stack and Trail")])
1144 "Menu for Calc's stack functions.")
1145
1146 (defvar calc-errors-menu
1147 (list "Undo"
1148 ["Undo"
1149 (progn
1150 (require 'calc-undo)
1151 (call-interactively 'calc-undo))
1152 :keys "U"]
1153 ["Redo"
1154 (progn
1155 (require 'calc-undo)
1156 (call-interactively 'calc-redo))
1157 :keys "D"]
1158 "----"
1159 ["Help on Undo"
1160 (progn
1161 (calc-info-goto-node "Introduction")
1162 (Info-goto-node "Undo"))]))
1163
1164 (defvar calc-modes-menu
1165 (list "Modes"
1166 ["Precision"
1167 (progn
1168 (require 'calc-ext)
1169 (call-interactively 'calc-precision))
1170 :keys "p"
1171 :help "Set the precision for floating point calculations"]
1172 ["Fraction mode"
1173 (progn
1174 (require 'calc-frac)
1175 (call-interactively 'calc-frac-mode))
1176 :keys "m f"
1177 :style toggle
1178 :selected calc-prefer-frac
1179 :help "Leave integer quotients as fractions"]
1180 ["Symbolic mode"
1181 (lambda ()
1182 (interactive)
1183 (require 'calc-mode)
1184 (calc-symbolic-mode nil))
1185 :keys "m s"
1186 :style toggle
1187 :selected calc-symbolic-mode
1188 :help "Leave functions producing inexact answers in symbolic form"]
1189 ["Infinite mode"
1190 (lambda ()
1191 (interactive)
1192 (require 'calc-mode)
1193 (calc-infinite-mode nil))
1194 :keys "m i"
1195 :style toggle
1196 :selected calc-infinite-mode
1197 :help "Let expressions like 1/0 produce infinite results"]
1198 ["Abbreviate long vectors"
1199 (progn
1200 (require 'calc-mode)
1201 (call-interactively 'calc-full-vectors))
1202 :keys "v ."
1203 :style toggle
1204 :selected (not calc-full-vectors)]
1205 (list "Simplification"
1206 ["No simplification mode"
1207 (progn
1208 (require 'calc-mode)
1209 (calc-no-simplify-mode t))
1210 :keys "m O"
1211 :style radio
1212 :selected (eq calc-simplify-mode 'none)
1213 :help "No simplifications are done automatically"]
1214 ["Numeric simplification mode"
1215 (progn
1216 (require 'calc-mode)
1217 (calc-num-simplify-mode t))
1218 :keys "m N"
1219 :style radio
1220 :selected (eq calc-simplify-mode 'num)
1221 :help "Only numeric simplifications are done automatically"]
1222 ["Basic simplification mode"
1223 (progn
1224 (require 'calc-mode)
1225 (calc-basic-simplify-mode t))
1226 :keys "m I"
1227 :style radio
1228 :selected (eq calc-simplify-mode nil)
1229 :help "Only basic simplifications are done automatically"]
1230 ["Binary simplification mode"
1231 (progn
1232 (require 'calc-mode)
1233 (calc-bin-simplify-mode t))
1234 :keys "m B"
1235 :style radio
1236 :selected (eq calc-simplify-mode 'binary)
1237 :help "Basic simplifications with binary clipping are done automatically"]
1238 ["Algebraic simplification mode"
1239 (progn
1240 (require 'calc-mode)
1241 (calc-alg-simplify-mode t))
1242 :keys "m A"
1243 :style radio
1244 :selected (eq calc-simplify-mode 'alg)
1245 :help "Standard algebraic simplifications are done automatically"]
1246 ["Extended simplification mode"
1247 (progn
1248 (require 'calc-mode)
1249 (calc-ext-simplify-mode t))
1250 :keys "m E"
1251 :style radio
1252 :selected (eq calc-simplify-mode 'ext)
1253 :help "Extended (unsafe) simplifications are done automatically"]
1254 ["Units simplification mode"
1255 (progn
1256 (require 'calc-mode)
1257 (calc-units-simplify-mode t))
1258 :keys "m U"
1259 :style radio
1260 :selected (eq calc-simplify-mode 'units)
1261 :help "Algebraic and unit simplifications are done automatically"])
1262 (list "Angle Measure"
1263 ["Radians"
1264 (progn
1265 (require 'calc-math)
1266 (call-interactively 'calc-radians-mode))
1267 :keys "m r"
1268 :style radio
1269 :selected (eq calc-angle-mode 'rad)]
1270 ["Degrees"
1271 (progn
1272 (require 'calc-math)
1273 (call-interactively 'calc-degrees-mode))
1274 :keys "m d"
1275 :style radio
1276 :selected (eq calc-angle-mode 'deg)]
1277 ["HMS"
1278 (progn
1279 (require 'calc-math)
1280 (call-interactively 'calc-hms-mode))
1281 :keys "m h"
1282 :style radio
1283 :selected (eq calc-angle-mode 'hms)])
1284 (list "Radix"
1285 ["Decimal"
1286 (progn
1287 (require 'calc-bin)
1288 (call-interactively 'calc-decimal-radix))
1289 :keys "d 0"
1290 :style radio
1291 :selected (and (= calc-number-radix 10)
1292 (not calc-twos-complement-mode))]
1293 ["Binary"
1294 (progn
1295 (require 'calc-bin)
1296 (call-interactively 'calc-binary-radix))
1297 :keys "d 2"
1298 :style radio
1299 :selected (and (= calc-number-radix 2)
1300 (not calc-twos-complement-mode))]
1301 ["Octal"
1302 (progn
1303 (require 'calc-bin)
1304 (call-interactively 'calc-octal-radix))
1305 :keys "d 8"
1306 :style radio
1307 :selected (and (= calc-number-radix 8)
1308 (not calc-twos-complement-mode))]
1309 ["Hexadecimal"
1310 (progn
1311 (require 'calc-bin)
1312 (call-interactively 'calc-hex-radix))
1313 :keys "d 6"
1314 :style radio
1315 :selected (and (= calc-number-radix 16)
1316 (not calc-twos-complement-mode))]
1317 ["Other"
1318 (progn
1319 (require 'calc-bin)
1320 (call-interactively 'calc-radix))
1321 :keys "d r"
1322 :style radio
1323 :selected (and
1324 (not calc-twos-complement-mode)
1325 (not
1326 (or
1327 (= calc-number-radix 10)
1328 (= calc-number-radix 2)
1329 (= calc-number-radix 8)
1330 (= calc-number-radix 16))))]
1331 ["--Two's Complement--"
1332 (lambda () ())
1333 :style radio
1334 :selected nil]
1335 ["Binary"
1336 (progn
1337 (require 'calc-bin)
1338 (call-interactively
1339 (lambda () (interactive) (calc-binary-radix t))))
1340 :keys "C-u d 2"
1341 :style radio
1342 :selected (and (= calc-number-radix 2)
1343 calc-twos-complement-mode)]
1344 ["Octal"
1345 (progn
1346 (require 'calc-bin)
1347 (call-interactively
1348 (lambda () (interactive) (calc-octal-radix t))))
1349 :keys "C-u d 8"
1350 :style radio
1351 :selected (and (= calc-number-radix 8)
1352 calc-twos-complement-mode)]
1353 ["Hexadecimal"
1354 (progn
1355 (require 'calc-bin)
1356 (call-interactively
1357 (lambda () (interactive) (calc-hex-radix t))))
1358 :keys "C-u d 6"
1359 :style radio
1360 :selected (and (= calc-number-radix 16)
1361 calc-twos-complement-mode)])
1362 (list "Float Format"
1363 ["Normal"
1364 (progn
1365 (require 'calc-mode)
1366 (call-interactively 'calc-normal-notation))
1367 :keys "d n"
1368 :style radio
1369 :selected (eq (car-safe calc-float-format) 'float)]
1370 ["Fixed point"
1371 (progn
1372 (require 'calc-mode)
1373 (call-interactively 'calc-fix-notation))
1374 :keys "d f"
1375 :style radio
1376 :selected (eq (car-safe calc-float-format) 'fix)]
1377 ["Scientific notation"
1378 (progn
1379 (require 'calc-mode)
1380 (call-interactively 'calc-sci-notation))
1381 :keys "d s"
1382 :style radio
1383 :selected (eq (car-safe calc-float-format) 'sci)]
1384 ["Engineering notation"
1385 (progn
1386 (require 'calc-mode)
1387 (call-interactively 'calc-eng-notation))
1388 :keys "d e"
1389 :style radio
1390 :selected (eq (car-safe calc-float-format) 'eng)])
1391 (list "Complex Format"
1392 ["Default"
1393 (progn
1394 (require 'calc-cplx)
1395 (calc-complex-notation))
1396 :style radio
1397 :selected (not calc-complex-format)
1398 :keys "d c"
1399 :help "Display complex numbers as ordered pairs."]
1400 ["i notation"
1401 (progn
1402 (require 'calc-cplx)
1403 (calc-i-notation))
1404 :style radio
1405 :selected (eq calc-complex-format 'i)
1406 :keys "d i"
1407 :help "Display complex numbers as a+bi."]
1408 ["j notation"
1409 (progn
1410 (require 'calc-cplx)
1411 (calc-i-notation))
1412 :style radio
1413 :selected (eq calc-complex-format 'j)
1414 :keys "d j"
1415 :help "Display complex numbers as a+bj."]
1416 ["Other"
1417 (calc-complex-notation)
1418 :style radio
1419 :selected (and calc-complex-format
1420 (not (eq calc-complex-format 'i))
1421 (not (eq calc-complex-format 'j)))
1422 :active nil]
1423 "----"
1424 ["Polar mode"
1425 (progn
1426 (require 'calc-cplx)
1427 (calc-polar-mode nil))
1428 :style toggle
1429 :selected (eq calc-complex-mode 'polar)
1430 :keys "m p"
1431 :help "Prefer polar form for complex numbers."])
1432 (list "Algebraic"
1433 ["Normal"
1434 (progn
1435 (require 'calc-mode)
1436 (cond
1437 (calc-incomplete-algebraic-mode
1438 (calc-algebraic-mode t))
1439 (calc-algebraic-mode
1440 (calc-algebraic-mode nil))))
1441 :style radio
1442 :selected (not calc-algebraic-mode)]
1443 ["Algebraic mode"
1444 (progn
1445 (require 'calc-mode)
1446 (if (or
1447 calc-incomplete-algebraic-mode
1448 (not calc-algebraic-mode))
1449 (calc-algebraic-mode nil)))
1450 :keys "m a"
1451 :style radio
1452 :selected (and calc-algebraic-mode
1453 (not calc-incomplete-algebraic-mode))
1454 :help "Keys which start numeric entry also start algebraic entry"]
1455 ["Incomplete algebraic mode"
1456 (progn
1457 (require 'calc-mode)
1458 (unless calc-incomplete-algebraic-mode
1459 (calc-algebraic-mode t)))
1460 :keys "C-u m a"
1461 :style radio
1462 :selected calc-incomplete-algebraic-mode
1463 :help "Only ( and [ begin algebraic entry"]
1464 ["Total algebraic mode"
1465 (progn
1466 (require 'calc-mode)
1467 (unless (eq calc-algebraic-mode 'total)
1468 (calc-total-algebraic-mode nil)))
1469 :keys "m t"
1470 :style radio
1471 :selected (eq calc-algebraic-mode 'total)
1472 :help "All regular letters and punctuation begin algebraic entry"])
1473 (list "Matrix"
1474 ["Off"
1475 (progn
1476 (require 'calc-mode)
1477 (calc-matrix-mode -1))
1478 :style radio
1479 :selected (eq calc-matrix-mode nil)
1480 :help "Variables are not assumed to be matrix or scalar"]
1481 ["Matrix mode"
1482 (progn
1483 (require 'calc-mode)
1484 (calc-matrix-mode -2))
1485 :style radio
1486 :selected (eq calc-matrix-mode 'matrix)
1487 :help "Variables are assumed to be matrices"]
1488 ["Square matrix mode"
1489 (progn
1490 (require 'calc-mode)
1491 (calc-matrix-mode '(4)))
1492 :style radio
1493 :selected (eq calc-matrix-mode 'sqmatrix)
1494 :help "Variables are assumed to be square matrices"]
1495 ["Dimensioned matrix mode"
1496 (let ((dim (string-to-number (read-from-minibuffer "Dimension: "))))
1497 (if (natnump dim)
1498 (progn
1499 (require 'calc-mode)
1500 (calc-matrix-mode dim))
1501 (error "The dimension must be a positive integer")))
1502 :style radio
1503 :selected (and (integerp calc-matrix-mode) (> calc-matrix-mode 0))
1504 :help "Variables are assumed to be NxN matrices"]
1505 ["Scalar mode"
1506 (progn
1507 (require 'calc-mode)
1508 (calc-matrix-mode 0))
1509 :style radio
1510 :selected (eq calc-matrix-mode 'scalar)
1511 :help "Variables are assumed to be scalars"])
1512 (list "Language"
1513 ["Normal"
1514 (progn
1515 (require 'calc-lang)
1516 (call-interactively 'calc-normal-language))
1517 :keys "d N"
1518 :style radio
1519 :selected (eq calc-language nil)]
1520 ["Big"
1521 (progn
1522 (require 'calc-lang)
1523 (call-interactively 'calc-big-language))
1524 :keys "d B"
1525 :style radio
1526 :selected (eq calc-language 'big)
1527 :help "Use textual approximations to various mathematical notations"]
1528 ["Flat"
1529 (progn
1530 (require 'calc-lang)
1531 (call-interactively 'calc-flat-language))
1532 :keys "d O"
1533 :style radio
1534 :selected (eq calc-language 'flat)
1535 :help "Write matrices on a single line"]
1536 ["C"
1537 (progn
1538 (require 'calc-lang)
1539 (call-interactively 'calc-c-language))
1540 :keys "d C"
1541 :style radio
1542 :selected (eq calc-language 'c)]
1543 ["Pascal"
1544 (progn
1545 (require 'calc-lang)
1546 (call-interactively 'calc-pascal-language))
1547 :keys "d P"
1548 :style radio
1549 :selected (eq calc-language 'pascal)]
1550 ["Fortran"
1551 (progn
1552 (require 'calc-lang)
1553 (call-interactively 'calc-fortran-language))
1554 :keys "d F"
1555 :style radio
1556 :selected (eq calc-language 'fortran)]
1557 ["TeX"
1558 (progn
1559 (require 'calc-lang)
1560 (call-interactively 'calc-tex-language))
1561 :keys "d T"
1562 :style radio
1563 :selected (eq calc-language 'tex)]
1564 ["LaTeX"
1565 (progn
1566 (require 'calc-lang)
1567 (call-interactively 'calc-latex-language))
1568 :keys "d L"
1569 :style radio
1570 :selected (eq calc-language 'latex)]
1571 ["Eqn"
1572 (progn
1573 (require 'calc-lang)
1574 (call-interactively 'calc-eqn-language))
1575 :keys "d E"
1576 :style radio
1577 :selected (eq calc-language 'eqn)]
1578 ["Yacas"
1579 (progn
1580 (require 'calc-lang)
1581 (call-interactively 'calc-yacas-language))
1582 :keys "d Y"
1583 :style radio
1584 :selected (eq calc-language 'yacas)]
1585 ["Maxima"
1586 (progn
1587 (require 'calc-lang)
1588 (call-interactively 'calc-maxima-language))
1589 :keys "d X"
1590 :style radio
1591 :selected (eq calc-language 'maxima)]
1592 ["Giac"
1593 (progn
1594 (require 'calc-lang)
1595 (call-interactively 'calc-giac-language))
1596 :keys "d A"
1597 :style radio
1598 :selected (eq calc-language 'giac)]
1599 ["Mma"
1600 (progn
1601 (require 'calc-lang)
1602 (call-interactively 'calc-mathematica-language))
1603 :keys "d M"
1604 :style radio
1605 :selected (eq calc-language 'math)]
1606 ["Maple"
1607 (progn
1608 (require 'calc-lang)
1609 (call-interactively 'calc-maple-language))
1610 :keys "d W"
1611 :style radio
1612 :selected (eq calc-language 'maple)])
1613 "----"
1614 ["Save mode settings" calc-save-modes :keys "m m"]
1615 "----"
1616 ["Help on Modes"
1617 (calc-info-goto-node "Mode settings")])
1618 "Menu for Calc's mode settings.")
1619
1620 (defvar calc-help-menu
1621 (list "Help"
1622 ["Manual"
1623 calc-info
1624 :keys "h i"]
1625 ["Tutorial"
1626 calc-tutorial
1627 :keys "h t"]
1628 ["Summary"
1629 calc-info-summary
1630 :keys "h s"]
1631 "----"
1632 ["Help on Help"
1633 (progn
1634 (calc-info-goto-node "Introduction")
1635 (Info-goto-node "Help Commands"))])
1636 "Menu for Calc's help functions.")
1637
1638 ;; Needed to make this file loadable in isolation.
1639 ;; Another option would be to use calc-load-hook.
1640 (require 'calc)
1641
1642 (easy-menu-define
1643 calc-menu
1644 calc-mode-map
1645 "Menu for Calc."
1646 (list "Calc"
1647 :visible '(eq major-mode 'calc-mode)
1648 calc-arithmetic-menu
1649 calc-scientific-function-menu
1650 calc-algebra-menu
1651 calc-graphics-menu
1652 calc-vectors-menu
1653 calc-units-menu
1654 calc-variables-menu
1655 calc-stack-menu
1656 calc-errors-menu
1657 calc-modes-menu
1658 calc-help-menu
1659 ["Reset"
1660 (progn
1661 (require 'calc-ext)
1662 (call-interactively 'calc-reset))
1663 :help "Reset Calc to its initial state"]
1664 ["Quit" calc-quit]))
1665
1666 (provide 'calc-menu)
Emacs repository mirror