annotate lisp/calc/calc-menu.el @ 91569:4a3d0b905c9e

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