lisp/calc/calc-menu.el

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