mirror of
https://git.savannah.gnu.org/git/emacs.git
synced 2024-12-16 09:50:25 +00:00
bc511a64f6
Most of this change is to boilerplate commentary such as license URLs. This change was prompted by ftp://ftp.gnu.org's going-away party, planned for November. Change these FTP URLs to https://ftp.gnu.org instead. Make similar changes for URLs to other organizations moving away from FTP. Also, change HTTP to HTTPS for URLs to gnu.org and fsf.org when this works, as this will further help defend against man-in-the-middle attacks (for this part I omitted the MS-DOS and MS-Windows sources and the test tarballs to keep the workload down). HTTPS is not fully working to lists.gnu.org so I left those URLs alone for now.
1672 lines
61 KiB
EmacsLisp
1672 lines
61 KiB
EmacsLisp
;;; calc-menu.el --- a menu for Calc
|
|
|
|
;; Copyright (C) 2007-2017 Free Software Foundation, Inc.
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
|
;; it under the terms of the GNU General Public License as published by
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
;; (at your option) any later version.
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
;; GNU General Public License for more details.
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
|
;; along with GNU Emacs. If not, see <https://www.gnu.org/licenses/>.
|
|
|
|
;;; Commentary:
|
|
|
|
(defvar calc-arithmetic-menu
|
|
(list "Arithmetic"
|
|
(list "Basic"
|
|
["-(1:)" calc-change-sign
|
|
:keys "n" :active (>= (calc-stack-size) 1)]
|
|
["(2:) + (1:)" calc-plus
|
|
:keys "+" :active (>= (calc-stack-size) 2)]
|
|
["(2:) - (1:)" calc-minus
|
|
:keys "-" :active (>= (calc-stack-size) 2)]
|
|
["(2:) * (1:)" calc-times
|
|
:keys "*" :active (>= (calc-stack-size) 2)]
|
|
["(2:) / (1:)" calc-divide
|
|
:keys "/" :active (>= (calc-stack-size) 2)]
|
|
["(2:) ^ (1:)" calc-power
|
|
:keys "^" :active (>= (calc-stack-size) 2)]
|
|
["(2:) ^ (1/(1:))"
|
|
(progn
|
|
(require 'calc-ext)
|
|
(let ((calc-inverse-flag t))
|
|
(call-interactively 'calc-power)))
|
|
:keys "I ^"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The (1:)th root of (2:)"]
|
|
["abs(1:)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-abs))
|
|
:keys "A"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Absolute value"]
|
|
["1/(1:)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-inv))
|
|
:keys "&"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["sqrt(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-sqrt))
|
|
:keys "Q"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["idiv(2:,1:)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-idiv))
|
|
:keys "\\"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The integer quotient of (2:) over (1:)"]
|
|
["(2:) mod (1:)"
|
|
(progn
|
|
(require 'calc-misc)
|
|
(call-interactively 'calc-mod))
|
|
:keys "%"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The remainder when (2:) is divided by (1:)"])
|
|
(list "Rounding"
|
|
["floor(1:)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-floor))
|
|
:keys "F"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The greatest integer less than or equal to (1:)"]
|
|
["ceiling(1:)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-ceiling))
|
|
:keys "I F"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The smallest integer greater than or equal to (1:)"]
|
|
["round(1:)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-round))
|
|
:keys "R"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The nearest integer to (1:)"]
|
|
["truncate(1:)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-trunc))
|
|
:keys "I R"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The integer part of (1:)"])
|
|
(list "Complex Numbers"
|
|
["Re(1:)"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(call-interactively 'calc-re))
|
|
:keys "f r"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Im(1:)"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(call-interactively 'calc-im))
|
|
:keys "f i"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["conj(1:)"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(call-interactively 'calc-conj))
|
|
:keys "J"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The complex conjugate of (1:)"]
|
|
["length(1:)"
|
|
(progn (require 'calc-arith)
|
|
(call-interactively 'calc-abs))
|
|
:keys "A"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The length (absolute value) of (1:)"]
|
|
["arg(1:)"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(call-interactively 'calc-argument))
|
|
:keys "G"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The argument (polar angle) of (1:)"])
|
|
(list "Conversion"
|
|
["Convert (1:) to a float"
|
|
(progn
|
|
(require 'calc-ext)
|
|
(call-interactively 'calc-float))
|
|
:keys "c f"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (1:) to a fraction"
|
|
(progn
|
|
(require 'calc-ext)
|
|
(call-interactively 'calc-fraction))
|
|
:keys "c F"
|
|
:active (>= (calc-stack-size) 1)])
|
|
(list "Binary"
|
|
["Set word size"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-word-size))
|
|
:keys "b w"]
|
|
["Clip (1:) to word size"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-clip))
|
|
:keys "b c"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Reduce (1:) modulo 2^wordsize"]
|
|
["(2:) and (1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-and))
|
|
:keys "b a"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "Bitwise AND [modulo 2^wordsize]"]
|
|
["(2:) or (1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-or))
|
|
:keys "b o"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "Bitwise inclusive OR [modulo 2^wordsize]"]
|
|
["(2:) xor (1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-xor))
|
|
:keys "b x"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "Bitwise exclusive OR [modulo 2^wordsize]"]
|
|
["diff(2:,1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-diff))
|
|
:keys "b d"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "Bitwise difference [modulo 2^wordsize]"]
|
|
["not (1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-not))
|
|
:keys "b n"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Bitwise NOT [modulo 2^wordsize]"]
|
|
["left shift(1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-lshift-binary))
|
|
:keys "b l"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Shift (1:)[modulo 2^wordsize] one bit left"]
|
|
["right shift(1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-rshift-binary))
|
|
:keys "b r"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Shift (1:)[modulo 2^wordsize] one bit right, putting 0s on the left"]
|
|
["arithmetic right shift(1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-rshift-arith))
|
|
:keys "b R"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Shift (1:)[modulo 2^wordsize] one bit right, duplicating the leftmost bit"]
|
|
["rotate(1:)"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-rotate-binary))
|
|
:keys "b t"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Rotate (1:)[modulo 2^wordsize] one bit left"])
|
|
"-------"
|
|
["Help on Arithmetic"
|
|
(calc-info-goto-node "Arithmetic")])
|
|
"Menu for Calc's arithmetic functions.")
|
|
|
|
(defvar calc-scientific-function-menu
|
|
(list "Scientific Functions"
|
|
(list "Constants"
|
|
["pi"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-pi))
|
|
:keys "P"]
|
|
["e"
|
|
(progn
|
|
(require 'calc-math)
|
|
(let ((calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-pi)))
|
|
:keys "H P"]
|
|
["phi"
|
|
(progn
|
|
(require 'calc-math)
|
|
(let ((calc-inverse-flag t)
|
|
(calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-pi)))
|
|
:keys "I H P"
|
|
:help "The golden ratio"]
|
|
["gamma"
|
|
(progn
|
|
(require 'calc-math)
|
|
(let ((calc-inverse-flag t))
|
|
(call-interactively 'calc-pi)))
|
|
:keys "I P"
|
|
:help "Euler's constant"])
|
|
(list "Logs and Exps"
|
|
["ln(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-ln))
|
|
:keys "L"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The natural logarithm"]
|
|
["e^(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-exp))
|
|
:keys "E"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["log(1:) [base 10]"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-log10))
|
|
:keys "H L"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The common logarithm"]
|
|
["10^(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(let ((calc-inverse-flag t))
|
|
(call-interactively 'calc-log10)))
|
|
:keys "I H L"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["log(2:) [base(1:)]"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-log))
|
|
:keys "B"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The logarithm with an arbitrary base"]
|
|
["(2:) ^ (1:)"
|
|
calc-power
|
|
:keys "^"
|
|
:active (>= (calc-stack-size) 2)])
|
|
(list "Trigonometric Functions"
|
|
["sin(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-sin))
|
|
:keys "S"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["cos(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-cos))
|
|
:keys "C"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["tan(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-tan))
|
|
:keys "T"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arcsin(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-arcsin))
|
|
:keys "I S"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arccos(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-arccos))
|
|
:keys "I C"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arctan(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-arctan))
|
|
:keys "I T"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arctan2(2:,1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-arctan2))
|
|
:keys "f T"
|
|
:active (>= (calc-stack-size) 2)]
|
|
"--Angle Measure--"
|
|
["Radians"
|
|
(progn
|
|
(require 'calc-math)
|
|
(calc-radians-mode))
|
|
:keys "m r"
|
|
:style radio
|
|
:selected (eq calc-angle-mode 'rad)]
|
|
["Degrees"
|
|
(progn
|
|
(require 'calc-math)
|
|
(calc-degrees-mode))
|
|
:keys "m d"
|
|
:style radio
|
|
:selected (eq calc-angle-mode 'deg)]
|
|
["HMS"
|
|
(progn
|
|
(require 'calc-math)
|
|
(calc-hms-mode))
|
|
:keys "m h"
|
|
:style radio
|
|
:selected (eq calc-angle-mode 'hms)])
|
|
(list "Hyperbolic Functions"
|
|
["sinh(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-sinh))
|
|
:keys "H S"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["cosh(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-cosh))
|
|
:keys "H C"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["tanh(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-tanh))
|
|
:keys "H T"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arcsinh(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-arcsinh))
|
|
:keys "I H S"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arccosh(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-arccosh))
|
|
:keys "I H C"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arctanh(1:)"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-arctanh))
|
|
:keys "I H T"
|
|
:active (>= (calc-stack-size) 1)])
|
|
(list "Advanced Math Functions"
|
|
["Gamma(1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-gamma))
|
|
:keys "f g"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The Euler Gamma function"]
|
|
["GammaP(2:,1:)"
|
|
(progn
|
|
(require 'calc-funcs)
|
|
(call-interactively 'calc-inc-gamma))
|
|
:keys "f G"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The lower incomplete Gamma function"]
|
|
["Beta(2:,1:)"
|
|
(progn
|
|
(require 'calc-funcs)
|
|
(call-interactively 'calc-beta))
|
|
:keys "f b"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The Euler Beta function"]
|
|
["BetaI(3:,2:,1:)"
|
|
(progn
|
|
(require 'calc-funcs)
|
|
(call-interactively 'calc-inc-beta))
|
|
:keys "f B"
|
|
:active (>= (calc-stack-size) 3)
|
|
:help "The incomplete Beta function"]
|
|
["erf(1:)"
|
|
(progn
|
|
(require 'calc-funcs)
|
|
(call-interactively 'calc-erf))
|
|
:keys "f e"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The error function"]
|
|
["BesselJ(2:,1:)"
|
|
(progn
|
|
(require 'calc-funcs)
|
|
(call-interactively 'calc-bessel-J))
|
|
:keys "f j"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The Bessel function of the first kind (of order (2:))"]
|
|
["BesselY(2:,1:)"
|
|
(progn
|
|
(require 'calc-funcs)
|
|
(call-interactively 'calc-bessel-Y))
|
|
:keys "f y"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The Bessel function of the second kind (of order (2:))"])
|
|
(list "Combinatorial Functions"
|
|
["gcd(2:,1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-gcd))
|
|
:keys "k g"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["lcm(2:,1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-lcm))
|
|
:keys "k l"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["factorial(1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-factorial))
|
|
:keys "!"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["(2:) choose (1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-choose))
|
|
:keys "k c"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["permutations(2:,1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-perm))
|
|
:keys "H k c"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Primality test for (1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-prime-test))
|
|
:keys "k p"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "For large (1:), a probabilistic test"]
|
|
["Factor (1:) into primes"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-prime-factors))
|
|
:keys "k f"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Next prime after (1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-next-prime))
|
|
:keys "k n"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Previous prime before (1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-prev-prime))
|
|
:keys "I k n"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["phi(1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-totient))
|
|
:keys "k n"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Euler's totient function"]
|
|
["random(1:)"
|
|
(progn
|
|
(require 'calc-comb)
|
|
(call-interactively 'calc-random))
|
|
:keys "k r"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "A random number >=1 and < (1:)"])
|
|
"----"
|
|
["Help on Scientific Functions"
|
|
(calc-info-goto-node "Scientific Functions")])
|
|
"Menu for Calc's scientific functions.")
|
|
|
|
(defvar calc-algebra-menu
|
|
(list "Algebra"
|
|
(list "Simplification"
|
|
["Simplify (1:)"
|
|
(progn
|
|
(require 'calc-alg)
|
|
(call-interactively 'calc-simplify))
|
|
:keys "a s"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Simplify (1:) with extended rules"
|
|
(progn
|
|
(require 'calc-alg)
|
|
(call-interactively 'calc-simplify-extended))
|
|
:keys "a e"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Apply possibly unsafe simplifications"])
|
|
(list "Manipulation"
|
|
["Expand formula (1:)"
|
|
(progn
|
|
(require 'calc-alg)
|
|
(call-interactively 'calc-expand-formula))
|
|
:keys "a \""
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Expand (1:) into its defining formula, if possible"]
|
|
["Evaluate variables in (1:)"
|
|
(progn
|
|
(require 'calc-ext)
|
|
(call-interactively 'calc-evaluate))
|
|
:keys "="
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Make substitution in (1:)"
|
|
(progn
|
|
(require 'calc-alg)
|
|
(call-interactively 'calc-substitute))
|
|
:keys "a b"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help
|
|
"Substitute all occurrences of a sub-expression with a new sub-expression"])
|
|
(list "Polynomials"
|
|
["Factor (1:)"
|
|
(progn
|
|
(require 'calc-alg)
|
|
(call-interactively 'calc-factor))
|
|
:keys "a f"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Collect terms in (1:)"
|
|
(progn
|
|
(require 'calc-alg)
|
|
(call-interactively 'calc-collect))
|
|
:keys "a c"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Arrange as a polynomial in a given variable"]
|
|
["Expand (1:)"
|
|
(progn
|
|
(require 'calc-alg)
|
|
(call-interactively 'calc-expand))
|
|
:keys "a x"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Apply distributive law everywhere"]
|
|
["Find roots of (1:)"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(call-interactively 'calc-poly-roots))
|
|
:keys "a P"
|
|
:active (>= (calc-stack-size) 1)])
|
|
(list "Calculus"
|
|
["Differentiate (1:)"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(call-interactively 'calc-derivative))
|
|
:keys "a d"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Integrate (1:) [indefinite]"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(call-interactively 'calc-integral))
|
|
:keys "a i"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Integrate (1:) [definite]"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(let ((var (read-string "Integration variable: ")))
|
|
(calc-tabular-command 'calcFunc-integ "Integration"
|
|
"intg" nil var nil nil)))
|
|
:keys "C-u a i"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Integrate (1:) [numeric]"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(call-interactively 'calc-num-integral))
|
|
:keys "a I"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Integrate using the open Romberg method"]
|
|
["Taylor expand (1:)"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(call-interactively 'calc-taylor))
|
|
:keys "a t"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Minimize (2:) [initial guess = (1:)]"
|
|
(progn
|
|
(require 'calcalg3)
|
|
(call-interactively 'calc-find-minimum))
|
|
:keys "a N"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "Find a local minimum"]
|
|
["Maximize (2:) [initial guess = (1:)]"
|
|
(progn
|
|
(require 'calcalg3)
|
|
(call-interactively 'calc-find-maximum))
|
|
:keys "a X"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "Find a local maximum"])
|
|
(list "Solving"
|
|
["Solve equation (1:)"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(call-interactively 'calc-solve-for))
|
|
:keys "a S"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Solve equation (2:) numerically [initial guess = (1:)]"
|
|
(progn
|
|
(require 'calcalg3)
|
|
(call-interactively 'calc-find-root))
|
|
:keys "a R"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Find roots of polynomial (1:)"
|
|
(progn
|
|
(require 'calcalg2)
|
|
(call-interactively 'calc-poly-roots))
|
|
:keys "a P"
|
|
:active (>= (calc-stack-size) 1)])
|
|
(list "Curve Fitting"
|
|
["Fit (1:)=[x values, y values] to a curve"
|
|
(progn
|
|
(require 'calcalg3)
|
|
(call-interactively 'calc-curve-fit))
|
|
:keys "a F"
|
|
:active (>= (calc-stack-size) 1)])
|
|
"----"
|
|
["Help on Algebra"
|
|
(calc-info-goto-node "Algebra")])
|
|
"Menu for Calc's algebraic facilities.")
|
|
|
|
|
|
(defvar calc-graphics-menu
|
|
(list "Graphics"
|
|
["Graph 2D [(1:)= y values, (2:)= x values]"
|
|
(progn
|
|
(require 'calc-graph)
|
|
(call-interactively 'calc-graph-fast))
|
|
:keys "g f"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Graph 3D [(1:)= z values, (2:)= y values, (3:)= x values]"
|
|
(progn
|
|
(require 'calc-graph)
|
|
(call-interactively 'calc-graph-fast-3d))
|
|
:keys "g F"
|
|
:active (>= (calc-stack-size) 3)]
|
|
"----"
|
|
["Help on Graphics"
|
|
(calc-info-goto-node "Graphics")])
|
|
"Menu for Calc's graphics.")
|
|
|
|
|
|
(defvar calc-vectors-menu
|
|
(list "Matrices/Vectors"
|
|
(list "Matrices"
|
|
["(2:) + (1:)" calc-plus
|
|
:keys "+" :active (>= (calc-stack-size) 2)]
|
|
["(2:) - (1:)" calc-minus
|
|
:keys "-" :active (>= (calc-stack-size) 2)]
|
|
["(2:) * (1:)" calc-times
|
|
:keys "*" :active (>= (calc-stack-size) 2)]
|
|
["(1:)^(-1)"
|
|
(progn
|
|
(require 'calc-arith)
|
|
(call-interactively 'calc-inv))
|
|
:keys "&"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Create an identity matrix"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-ident))
|
|
:keys "v i"]
|
|
["transpose(1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-transpose))
|
|
:keys "v t"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["det(1:)"
|
|
(progn
|
|
(require 'calc-mtx)
|
|
(call-interactively 'calc-mdet))
|
|
:keys "V D"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["trace(1:)"
|
|
(progn
|
|
(require 'calc-mtx)
|
|
(call-interactively 'calc-mtrace))
|
|
:keys "V T"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["LUD decompose (1:)"
|
|
(progn
|
|
(require 'calc-mtx)
|
|
(call-interactively 'calc-mlud))
|
|
:keys "V L"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Extract a row from (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-mrow))
|
|
:keys "v r"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Extract a column from (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-mcol))
|
|
:keys "v c"
|
|
:active (>= (calc-stack-size) 1)])
|
|
(list "Vectors"
|
|
["Extract the first element of (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-head))
|
|
:keys "v h"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Extract an element from (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-mrow))
|
|
:keys "v r"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Reverse (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-reverse-vector))
|
|
:keys "v v"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Unpack (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-unpack))
|
|
:keys "v u"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Separate the elements of (1:)"]
|
|
["(2:) cross (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-cross))
|
|
:keys "V C"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The cross product in R^3"]
|
|
["(2:) dot (1:)"
|
|
calc-mult
|
|
:keys "*"
|
|
:active (>= (calc-stack-size) 2)
|
|
:help "The dot product"]
|
|
["Map a function across (1:)"
|
|
(progn
|
|
(require 'calc-map)
|
|
(call-interactively 'calc-map))
|
|
:keys "V M"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Apply a function to each element"])
|
|
(list "Vectors As Sets"
|
|
["Remove duplicates from (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-remove-duplicates))
|
|
:keys "V +"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["(2:) union (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-set-union))
|
|
:keys "V V"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["(2:) intersect (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-set-intersect))
|
|
:keys "V ^"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["(2:) \\ (1:)"
|
|
(progn
|
|
(require 'calc-vec)
|
|
(call-interactively 'calc-set-difference))
|
|
:keys "V -"
|
|
:help "Set difference"
|
|
:active (>= (calc-stack-size) 2)])
|
|
(list "Statistics On Vectors"
|
|
["length(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-count))
|
|
:keys "u #"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The number of data values"]
|
|
["sum(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-sum))
|
|
:keys "u +"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The sum of the data values"]
|
|
["max(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-max))
|
|
:keys "u x"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The maximum of the data values"]
|
|
["min(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-min))
|
|
:keys "u N"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The minimum of the data values"]
|
|
["mean(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-mean))
|
|
:keys "u M"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The average (arithmetic mean) of the data values"]
|
|
["mean(1:) with error"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-mean-error))
|
|
:keys "I u M"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The average (arithmetic mean) of the data values as an error form"]
|
|
["rms(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-rms))
|
|
:keys "u R"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The root mean square of the data values"]
|
|
["sdev(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-sdev))
|
|
:keys "u S"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The sample sdev, sqrt[sum((values - mean)^2)/(N-1)]"]
|
|
["variance(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-variance))
|
|
:keys "H u S"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The sample variance, sum((values - mean)^2)/(N-1)"]
|
|
["population sdev(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-pop-sdev))
|
|
:keys "I u S"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The population sdev, sqrt[sum((values - mean)^2)/N]"]
|
|
["population variance(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-pop-variance))
|
|
:keys "H I u S"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The population variance, sum((values - mean)^2)/N"]
|
|
["median(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-median))
|
|
:keys "H u M"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "The median of the data values"]
|
|
["harmonic mean(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-harmonic-mean))
|
|
:keys "H I u M"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["geometric mean(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(call-interactively 'calc-vector-geometric-mean))
|
|
:keys "u G"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["arithmetic-geometric mean(1:)"
|
|
(progn
|
|
(require 'calc-stat)
|
|
(let ((calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-vector-geometric-mean)))
|
|
:keys "H u G"
|
|
:active (>= (calc-stack-size) 1)]
|
|
;; ["RMS(1:)"
|
|
;; (progn (require 'calc-arith)
|
|
;; (call-interactively 'calc-abs))
|
|
;; :keys "A"
|
|
;; :active (>= (calc-stack-size) 1)
|
|
;; :help "The root-mean-square, or quadratic mean"]
|
|
)
|
|
["Abbreviate long vectors"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(call-interactively 'calc-full-vectors))
|
|
:keys "v ."
|
|
:style toggle
|
|
:selected (not calc-full-vectors)]
|
|
"----"
|
|
["Help on Matrices/Vectors"
|
|
(calc-info-goto-node "Matrix Functions")])
|
|
"Menu for Calc's vector and matrix functions.")
|
|
|
|
(defvar calc-units-menu
|
|
(list "Units"
|
|
["Convert units in (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-convert-units ))
|
|
:keys "u c"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert temperature in (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-convert-temperature))
|
|
:keys "u t"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Simplify units in (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-simplify-units))
|
|
:keys "u s"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["View units table"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-view-units-table))
|
|
:keys "u V"]
|
|
(list "Logarithmic Units"
|
|
["Convert (1:) to dB (power)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-db))
|
|
:keys "l d"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (2:) to dB (power) with reference level (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-option-flag t))
|
|
(call-interactively 'calc-db)))
|
|
:keys "O l d"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Convert (1:) to Np (power)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-np))
|
|
:keys "l n"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (2:) to Np (power) with reference level (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-option-flag t))
|
|
(call-interactively 'calc-np)))
|
|
:keys "O l n"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Convert (1:) to power quantity"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-lu-quant))
|
|
:keys "l q"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (2:) to power quantity with reference level (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-option-flag t))
|
|
(call-interactively 'calc-lu-quant)))
|
|
:keys "O l q"
|
|
:active (>= (calc-stack-size) 2)]
|
|
"----"
|
|
["Convert (1:) to dB (field)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-db)))
|
|
:keys "H l d"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (2:) to dB (field) with reference level (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-option-flag t)
|
|
(calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-db)))
|
|
:keys "O H l d"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Convert (1:) to Np (field)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-np)))
|
|
:keys "H l n"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (2:) to Np (field) with reference level (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-option-flag t)
|
|
(calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-np)))
|
|
:keys "O H l d"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Convert (1:) to field quantity"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-hyperbolic-flag t))
|
|
(call-interactively 'calc-lu-quant)))
|
|
:keys "H l q"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (2:) to field quantity with reference level (1:)"
|
|
(progn
|
|
(require 'calc-units)
|
|
(let ((calc-option-flag t)
|
|
(calc-hyperbolic-flag))
|
|
(call-interactively 'calc-lu-quant)))
|
|
:keys "O H l q"
|
|
:active (>= (calc-stack-size) 2)])
|
|
(list "Musical Notes"
|
|
["Convert (1:) to scientific pitch notation"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-spn))
|
|
:keys "l s"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (1:) to midi number"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-midi))
|
|
:keys "l m"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Convert (1:) to frequency"
|
|
(progn
|
|
(require 'calc-units)
|
|
(call-interactively 'calc-freq))
|
|
:keys "l f"
|
|
:active (>= (calc-stack-size) 1)])
|
|
"----"
|
|
["Help on Units"
|
|
(calc-info-goto-node "Units")])
|
|
"Menu for Calc's units functions.")
|
|
|
|
(defvar calc-variables-menu
|
|
(list "Variables"
|
|
["Store (1:) into a variable"
|
|
(progn
|
|
(require 'calc-store)
|
|
(call-interactively 'calc-store))
|
|
:keys "s s"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Recall a variable value"
|
|
(progn
|
|
(require 'calc-store)
|
|
(call-interactively 'calc-recall ))
|
|
:keys "s r"]
|
|
["Edit the value of a variable"
|
|
(progn
|
|
(require 'calc-store)
|
|
(call-interactively 'calc-edit-variable))
|
|
:keys "s e"]
|
|
["Exchange (1:) with a variable value"
|
|
(progn
|
|
(require 'calc-store)
|
|
(call-interactively 'calc-store-exchange))
|
|
:keys "s x"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Clear variable value"
|
|
(progn
|
|
(require 'calc-store)
|
|
(call-interactively 'calc-unstore))
|
|
:keys "s u"]
|
|
["Evaluate variables in (1:)"
|
|
(progn
|
|
(require 'calc-ext)
|
|
(call-interactively 'calc-evaluate))
|
|
:keys "="
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Evaluate (1:), assigning a value to a variable"
|
|
(progn
|
|
(require 'calc-store)
|
|
(call-interactively 'calc-let))
|
|
:keys "s l"
|
|
:active (>= (calc-stack-size) 1)
|
|
:help "Evaluate (1:) under a temporary assignment of a variable"]
|
|
"----"
|
|
["Help on Variables"
|
|
(calc-info-goto-node "Store and Recall")])
|
|
"Menu for Calc's variables.")
|
|
|
|
(defvar calc-stack-menu
|
|
(list "Stack"
|
|
["Remove (1:)"
|
|
calc-pop
|
|
:keys "DEL"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Switch (1:) and (2:)"
|
|
calc-roll-down
|
|
:keys "TAB"
|
|
:active (>= (calc-stack-size) 2)]
|
|
["Duplicate (1:)"
|
|
calc-enter
|
|
:keys "RET"
|
|
:active (>= (calc-stack-size) 1)]
|
|
["Edit (1:)"
|
|
(progn
|
|
(require 'calc-yank)
|
|
(call-interactively calc-edit))
|
|
:keys "`"
|
|
:active (>= (calc-stack-size) 1)]
|
|
"----"
|
|
["Help on Stack"
|
|
(calc-info-goto-node "Stack and Trail")])
|
|
"Menu for Calc's stack functions.")
|
|
|
|
(defvar calc-errors-menu
|
|
(list "Undo"
|
|
["Undo"
|
|
(progn
|
|
(require 'calc-undo)
|
|
(call-interactively 'calc-undo))
|
|
:keys "U"]
|
|
["Redo"
|
|
(progn
|
|
(require 'calc-undo)
|
|
(call-interactively 'calc-redo))
|
|
:keys "D"]
|
|
"----"
|
|
["Help on Undo"
|
|
(progn
|
|
(calc-info-goto-node "Introduction")
|
|
(Info-goto-node "Undo"))]))
|
|
|
|
(defvar calc-modes-menu
|
|
(list "Modes"
|
|
["Precision"
|
|
(progn
|
|
(require 'calc-ext)
|
|
(call-interactively 'calc-precision))
|
|
:keys "p"
|
|
:help "Set the precision for floating point calculations"]
|
|
["Fraction mode"
|
|
(progn
|
|
(require 'calc-frac)
|
|
(call-interactively 'calc-frac-mode))
|
|
:keys "m f"
|
|
:style toggle
|
|
:selected calc-prefer-frac
|
|
:help "Leave integer quotients as fractions"]
|
|
["Symbolic mode"
|
|
(lambda ()
|
|
(interactive)
|
|
(require 'calc-mode)
|
|
(calc-symbolic-mode nil))
|
|
:keys "m s"
|
|
:style toggle
|
|
:selected calc-symbolic-mode
|
|
:help "Leave functions producing inexact answers in symbolic form"]
|
|
["Infinite mode"
|
|
(lambda ()
|
|
(interactive)
|
|
(require 'calc-mode)
|
|
(calc-infinite-mode nil))
|
|
:keys "m i"
|
|
:style toggle
|
|
:selected calc-infinite-mode
|
|
:help "Let expressions like 1/0 produce infinite results"]
|
|
["Abbreviate long vectors"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(call-interactively 'calc-full-vectors))
|
|
:keys "v ."
|
|
:style toggle
|
|
:selected (not calc-full-vectors)]
|
|
(list "Simplification"
|
|
["No simplification mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-no-simplify-mode t))
|
|
:keys "m O"
|
|
:style radio
|
|
:selected (eq calc-simplify-mode 'none)
|
|
:help "No simplifications are done automatically"]
|
|
["Numeric simplification mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-num-simplify-mode t))
|
|
:keys "m N"
|
|
:style radio
|
|
:selected (eq calc-simplify-mode 'num)
|
|
:help "Only numeric simplifications are done automatically"]
|
|
["Basic simplification mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-basic-simplify-mode t))
|
|
:keys "m I"
|
|
:style radio
|
|
:selected (eq calc-simplify-mode nil)
|
|
:help "Only basic simplifications are done automatically"]
|
|
["Binary simplification mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-bin-simplify-mode t))
|
|
:keys "m B"
|
|
:style radio
|
|
:selected (eq calc-simplify-mode 'binary)
|
|
:help "Basic simplifications with binary clipping are done automatically"]
|
|
["Algebraic simplification mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-alg-simplify-mode t))
|
|
:keys "m A"
|
|
:style radio
|
|
:selected (eq calc-simplify-mode 'alg)
|
|
:help "Standard algebraic simplifications are done automatically"]
|
|
["Extended simplification mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-ext-simplify-mode t))
|
|
:keys "m E"
|
|
:style radio
|
|
:selected (eq calc-simplify-mode 'ext)
|
|
:help "Extended (unsafe) simplifications are done automatically"]
|
|
["Units simplification mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-units-simplify-mode t))
|
|
:keys "m U"
|
|
:style radio
|
|
:selected (eq calc-simplify-mode 'units)
|
|
:help "Algebraic and unit simplifications are done automatically"])
|
|
(list "Angle Measure"
|
|
["Radians"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-radians-mode))
|
|
:keys "m r"
|
|
:style radio
|
|
:selected (eq calc-angle-mode 'rad)]
|
|
["Degrees"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-degrees-mode))
|
|
:keys "m d"
|
|
:style radio
|
|
:selected (eq calc-angle-mode 'deg)]
|
|
["HMS"
|
|
(progn
|
|
(require 'calc-math)
|
|
(call-interactively 'calc-hms-mode))
|
|
:keys "m h"
|
|
:style radio
|
|
:selected (eq calc-angle-mode 'hms)])
|
|
(list "Radix"
|
|
["Decimal"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-decimal-radix))
|
|
:keys "d 0"
|
|
:style radio
|
|
:selected (and (= calc-number-radix 10)
|
|
(not calc-twos-complement-mode))]
|
|
["Binary"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-binary-radix))
|
|
:keys "d 2"
|
|
:style radio
|
|
:selected (and (= calc-number-radix 2)
|
|
(not calc-twos-complement-mode))]
|
|
["Octal"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-octal-radix))
|
|
:keys "d 8"
|
|
:style radio
|
|
:selected (and (= calc-number-radix 8)
|
|
(not calc-twos-complement-mode))]
|
|
["Hexadecimal"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-hex-radix))
|
|
:keys "d 6"
|
|
:style radio
|
|
:selected (and (= calc-number-radix 16)
|
|
(not calc-twos-complement-mode))]
|
|
["Other"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively 'calc-radix))
|
|
:keys "d r"
|
|
:style radio
|
|
:selected (and
|
|
(not calc-twos-complement-mode)
|
|
(not
|
|
(or
|
|
(= calc-number-radix 10)
|
|
(= calc-number-radix 2)
|
|
(= calc-number-radix 8)
|
|
(= calc-number-radix 16))))]
|
|
["--Two's Complement--"
|
|
(lambda () ())
|
|
:style radio
|
|
:selected nil]
|
|
["Binary"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively
|
|
(lambda () (interactive) (calc-binary-radix t))))
|
|
:keys "C-u d 2"
|
|
:style radio
|
|
:selected (and (= calc-number-radix 2)
|
|
calc-twos-complement-mode)]
|
|
["Octal"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively
|
|
(lambda () (interactive) (calc-octal-radix t))))
|
|
:keys "C-u d 8"
|
|
:style radio
|
|
:selected (and (= calc-number-radix 8)
|
|
calc-twos-complement-mode)]
|
|
["Hexadecimal"
|
|
(progn
|
|
(require 'calc-bin)
|
|
(call-interactively
|
|
(lambda () (interactive) (calc-hex-radix t))))
|
|
:keys "C-u d 6"
|
|
:style radio
|
|
:selected (and (= calc-number-radix 16)
|
|
calc-twos-complement-mode)])
|
|
(list "Float Format"
|
|
["Normal"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(call-interactively 'calc-normal-notation))
|
|
:keys "d n"
|
|
:style radio
|
|
:selected (eq (car-safe calc-float-format) 'float)]
|
|
["Fixed point"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(call-interactively 'calc-fix-notation))
|
|
:keys "d f"
|
|
:style radio
|
|
:selected (eq (car-safe calc-float-format) 'fix)]
|
|
["Scientific notation"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(call-interactively 'calc-sci-notation))
|
|
:keys "d s"
|
|
:style radio
|
|
:selected (eq (car-safe calc-float-format) 'sci)]
|
|
["Engineering notation"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(call-interactively 'calc-eng-notation))
|
|
:keys "d e"
|
|
:style radio
|
|
:selected (eq (car-safe calc-float-format) 'eng)])
|
|
(list "Complex Format"
|
|
["Default"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(calc-complex-notation))
|
|
:style radio
|
|
:selected (not calc-complex-format)
|
|
:keys "d c"
|
|
:help "Display complex numbers as ordered pairs."]
|
|
["i notation"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(calc-i-notation))
|
|
:style radio
|
|
:selected (eq calc-complex-format 'i)
|
|
:keys "d i"
|
|
:help "Display complex numbers as a+bi."]
|
|
["j notation"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(calc-i-notation))
|
|
:style radio
|
|
:selected (eq calc-complex-format 'j)
|
|
:keys "d j"
|
|
:help "Display complex numbers as a+bj."]
|
|
["Other"
|
|
(calc-complex-notation)
|
|
:style radio
|
|
:selected (and calc-complex-format
|
|
(not (eq calc-complex-format 'i))
|
|
(not (eq calc-complex-format 'j)))
|
|
:active nil]
|
|
"----"
|
|
["Polar mode"
|
|
(progn
|
|
(require 'calc-cplx)
|
|
(calc-polar-mode nil))
|
|
:style toggle
|
|
:selected (eq calc-complex-mode 'polar)
|
|
:keys "m p"
|
|
:help "Prefer polar form for complex numbers."])
|
|
(list "Algebraic"
|
|
["Normal"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(cond
|
|
(calc-incomplete-algebraic-mode
|
|
(calc-algebraic-mode t))
|
|
(calc-algebraic-mode
|
|
(calc-algebraic-mode nil))))
|
|
:style radio
|
|
:selected (not calc-algebraic-mode)]
|
|
["Algebraic mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(if (or
|
|
calc-incomplete-algebraic-mode
|
|
(not calc-algebraic-mode))
|
|
(calc-algebraic-mode nil)))
|
|
:keys "m a"
|
|
:style radio
|
|
:selected (and calc-algebraic-mode
|
|
(not calc-incomplete-algebraic-mode))
|
|
:help "Keys which start numeric entry also start algebraic entry"]
|
|
["Incomplete algebraic mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(unless calc-incomplete-algebraic-mode
|
|
(calc-algebraic-mode t)))
|
|
:keys "C-u m a"
|
|
:style radio
|
|
:selected calc-incomplete-algebraic-mode
|
|
:help "Only ( and [ begin algebraic entry"]
|
|
["Total algebraic mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(unless (eq calc-algebraic-mode 'total)
|
|
(calc-total-algebraic-mode nil)))
|
|
:keys "m t"
|
|
:style radio
|
|
:selected (eq calc-algebraic-mode 'total)
|
|
:help "All regular letters and punctuation begin algebraic entry"])
|
|
(list "Matrix"
|
|
["Off"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-matrix-mode -1))
|
|
:style radio
|
|
:selected (eq calc-matrix-mode nil)
|
|
:help "Variables are not assumed to be matrix or scalar"]
|
|
["Matrix mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-matrix-mode -2))
|
|
:style radio
|
|
:selected (eq calc-matrix-mode 'matrix)
|
|
:help "Variables are assumed to be matrices"]
|
|
["Square matrix mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-matrix-mode '(4)))
|
|
:style radio
|
|
:selected (eq calc-matrix-mode 'sqmatrix)
|
|
:help "Variables are assumed to be square matrices"]
|
|
["Dimensioned matrix mode"
|
|
(let ((dim (string-to-number (read-from-minibuffer "Dimension: "))))
|
|
(if (natnump dim)
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-matrix-mode dim))
|
|
(error "The dimension must be a positive integer")))
|
|
:style radio
|
|
:selected (and (integerp calc-matrix-mode) (> calc-matrix-mode 0))
|
|
:help "Variables are assumed to be NxN matrices"]
|
|
["Scalar mode"
|
|
(progn
|
|
(require 'calc-mode)
|
|
(calc-matrix-mode 0))
|
|
:style radio
|
|
:selected (eq calc-matrix-mode 'scalar)
|
|
:help "Variables are assumed to be scalars"])
|
|
(list "Language"
|
|
["Normal"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-normal-language))
|
|
:keys "d N"
|
|
:style radio
|
|
:selected (eq calc-language nil)]
|
|
["Big"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-big-language))
|
|
:keys "d B"
|
|
:style radio
|
|
:selected (eq calc-language 'big)
|
|
:help "Use textual approximations to various mathematical notations"]
|
|
["Flat"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-flat-language))
|
|
:keys "d O"
|
|
:style radio
|
|
:selected (eq calc-language 'flat)
|
|
:help "Write matrices on a single line"]
|
|
["C"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-c-language))
|
|
:keys "d C"
|
|
:style radio
|
|
:selected (eq calc-language 'c)]
|
|
["Pascal"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-pascal-language))
|
|
:keys "d P"
|
|
:style radio
|
|
:selected (eq calc-language 'pascal)]
|
|
["Fortran"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-fortran-language))
|
|
:keys "d F"
|
|
:style radio
|
|
:selected (eq calc-language 'fortran)]
|
|
["TeX"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-tex-language))
|
|
:keys "d T"
|
|
:style radio
|
|
:selected (eq calc-language 'tex)]
|
|
["LaTeX"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-latex-language))
|
|
:keys "d L"
|
|
:style radio
|
|
:selected (eq calc-language 'latex)]
|
|
["Eqn"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-eqn-language))
|
|
:keys "d E"
|
|
:style radio
|
|
:selected (eq calc-language 'eqn)]
|
|
["Yacas"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-yacas-language))
|
|
:keys "d Y"
|
|
:style radio
|
|
:selected (eq calc-language 'yacas)]
|
|
["Maxima"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-maxima-language))
|
|
:keys "d X"
|
|
:style radio
|
|
:selected (eq calc-language 'maxima)]
|
|
["Giac"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-giac-language))
|
|
:keys "d A"
|
|
:style radio
|
|
:selected (eq calc-language 'giac)]
|
|
["Mma"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-mathematica-language))
|
|
:keys "d M"
|
|
:style radio
|
|
:selected (eq calc-language 'math)]
|
|
["Maple"
|
|
(progn
|
|
(require 'calc-lang)
|
|
(call-interactively 'calc-maple-language))
|
|
:keys "d W"
|
|
:style radio
|
|
:selected (eq calc-language 'maple)])
|
|
"----"
|
|
["Save mode settings" calc-save-modes :keys "m m"]
|
|
"----"
|
|
["Help on Modes"
|
|
(calc-info-goto-node "Mode settings")])
|
|
"Menu for Calc's mode settings.")
|
|
|
|
(defvar calc-help-menu
|
|
(list "Help"
|
|
["Manual"
|
|
calc-info
|
|
:keys "h i"]
|
|
["Tutorial"
|
|
calc-tutorial
|
|
:keys "h t"]
|
|
["Summary"
|
|
calc-info-summary
|
|
:keys "h s"]
|
|
"----"
|
|
["Help on Help"
|
|
(progn
|
|
(calc-info-goto-node "Introduction")
|
|
(Info-goto-node "Help Commands"))])
|
|
"Menu for Calc's help functions.")
|
|
|
|
;; Needed to make this file loadable in isolation.
|
|
;; Another option would be to use calc-load-hook.
|
|
(require 'calc)
|
|
|
|
(easy-menu-define
|
|
calc-menu
|
|
calc-mode-map
|
|
"Menu for Calc."
|
|
(list "Calc"
|
|
:visible '(eq major-mode 'calc-mode)
|
|
calc-arithmetic-menu
|
|
calc-scientific-function-menu
|
|
calc-algebra-menu
|
|
calc-graphics-menu
|
|
calc-vectors-menu
|
|
calc-units-menu
|
|
calc-variables-menu
|
|
calc-stack-menu
|
|
calc-errors-menu
|
|
calc-modes-menu
|
|
calc-help-menu
|
|
["Reset"
|
|
(progn
|
|
(require 'calc-ext)
|
|
(call-interactively 'calc-reset))
|
|
:help "Reset Calc to its initial state"]
|
|
["Quit" calc-quit]))
|
|
|
|
(provide 'calc-menu)
|