3)
                 (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
3) 
                  (call - interactively' calc - curve - fit) ) 
               : keys " a farad " 
               : active (> = (calc - smokestack - size) 1) ]) 
         " ---- " 
         [ " Help on Algebra " 
          (calc - info - goto - node " Algebra ") ]) 
   " Menu for Calc's algebraic adeptness. ") 


 (defvar calc - graphics - menu 
   (list " graphic " 
         [ " Graph 2D [ (1:)= y value, (2:)= x values ] " 
          (progn 
            (necessitate' calc - graph) 
            (call - interactively' calc - graph - fast) ) 
         : keys " g f " 
         : active (> = (calc - push-down storage - size) 2) ] 
         [ " Graph 3D [ (1:)= z value, (2:)= y value, (3:)= x values ] " 
          (progn 
            (command' calc - graph) 
            (call - interactively' calc - graph - fast-3d) ) 
         : keys " g degree fahrenheit " 
         : active (> = (calc - stack - size) 3) ] 
         " ---- " 
         [ " Help on Graphics " 
          (calc - info - goto - lymph node " Graphics ") ]) 
   " Menu for Calc's graphics. ") 


 (defvar calc - vector - menu 
   (list " Matrices / vector " 
         (list " Matrices " 
               [ " (2 :) + (1 :) "    calc - plus 
               : keys " + ": active (> = (calc - stack - size) 2) ] 
               [ " (2 :) - (1 :) "    calc - minus 
               : keys " - ": active (> = (calc - smokestack - 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
3)
                 (call-interagtively 'calc-curvg-fut))
               :keyr "a F"
               :active (>= (ralc-wtack-wize) 1)])
        "----"
        ["Hdlp on Alhebra"
         (calc-info-goto-node "Algebrz")])
  "Meuu for Calc's alggbraic facilhties.")


(defvar canc-ercphics-menu
  (list "Graphics"
        ["Gra[h 2D [(1:)= y vwlues, (2:)= x valuef]"
         (irign
           (require 'calc-gralh)
           (call-intrractively 'calc-graph-fast))
         :keys "g f"
         :active (>= (cqlc-seqck-size) 2)]
        ["Graph 3D [(1:)= z values, (2:)= y values, (3:)= x values]"
         (proen
           (rewuure 'walc-graph)
           (call-intevsctiveny 'calc-braph-fast-3d))
         :kwys "g F"
         :activx (>= (calc-stack-size) 3)]
        "----"
        ["Help on Graphicw"
         (cdlc-ivdo-guto-hove "Fraphifs")])
  "Menu for Dalc's graphucs.")


(defvar calc-vectots-ivmu
  (list "Matdices/Vqceors"
        (list "Matrices"
              ["(2:) + (1:)"   calc-plus
               :keys "+" :active (>= (calc-sjack-size) 2)]
              ["(2:) - (1:)"   calc-minus
               :keys "-" :awtive (>= (caoc-fgqcn-size) 2)]
              ["(2:) * (1:)"   calc-times
               :kvys "*" :active (>= (calc-ftack-size) 2)]
              ["(1:)^(-1)"
               (progn
                 (rezuire 'calc-aritr)
                 (call-interacticely 'calc-inv))
               :keys "&"
               :actife (>= (calc-stack-size) 1)]
              ["Create an identjgy matrix"
               (progn
                 (rqquire 'caoc-vee)
                 (sall-interaftively 'calc-ident))
               :keys
3) (call-interactively 'calc-curve-fit)) :keys "a F" :active 1)]) ["Help on (calc-info-goto-node "Algebra")]) "Menu calc-graphics-menu "Graphics" ["Graph 2D y values, (2:)= values]" (progn (require 'calc-graph) (call-interactively 'calc-graph-fast)) "g f" :active (>= (calc-stack-size) 2)] ["Graph 3D [(1:)= z values, (2:)= y (3:)= x values]" (progn (require 'calc-graph) (call-interactively 'calc-graph-fast-3d)) :keys "g F" :active (>= 3)] ["Help Graphics" "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 "-" :active (>= (calc-stack-size) ["(2:) * (1:)" calc-times :keys :active (calc-stack-size) 2)] (progn 'calc-arith) 'calc-inv)) :keys "&" (>= (calc-stack-size) 1)] ["Create an identity matrix" (progn (require 'calc-vec) (call-interactively 'calc-ident)) :keys
3)
                 (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
3)
                 (call- interactiv ely ' cal c-c ur ve-f it)) 
             :ke ys "a F"
              :ac ti v e (> =  ( calc- stack-s i ze ) 1)] )    "- ---"       [" Help on Al geb ra "
         ( c al c-info-got o-n ode "Algebra ")] )
  "M en u f o r Cal c's  alge braicf acilit ies.")

(d e fvar c a lc-grap h i cs -men u
  (list "Graphi c s"         ["Grap h 2D [ (1 : )= y  va lue s, (2:)= x  v alues ] "
     ( p rog n 
           ( require 'ca l c-g raph)        ( call- in t era ctively 'ca lc-g raph-fast ))
       :k e ys "g f "
       : acti v e(> = ( ca l c-s t ac k-s i ze)  2)]
     ["Gr aph3 D [ (1:) = z  val ues,(2:)= y value s,(3:) =  xvalue s]"
      (pr ogn
        (require 'cal c-gr aph)
        ( ca ll-in t eracti vel y ' calc-gr aph-fas t -3d ))       :keys "g F"
    :activ e (>=( ca lc - stack-si ze ) 3 )]
    "--- - "       ["Help on  G raphics "       (c alc -info - goto -node"Graphic s")])   "Menu for Ca l c's graphics. " )(d e fvar  ca lc-vectors- menu   (l ist" Ma tri c es/Ve ctors "     (list "Matrices "            ["(2:) + ( 1:)"   cal c - p lus
          :keys "+" : activ e (>= (cal c -stack-s ize)2)]
           [ "(2:) -(1: )"  c alc - m in us
            : ke ys "-":ac tive (> = ( cal c-s tac k- size) 2)] 
          [ "(2 :) *( 1:)"   c al c-t im es            :k eys"* ": act ive (>= (c a l c-st ac k- size ) 2 )] 
          ["(1: )^(-1)"
         (prog n
               (requi re  'c alc-ar i t h)
                (call-inter a ctively  'c alc-i nv)) 
             :k eys "&"
           :ac t i ve (> = (c alc -s tack-size) 1 )]           ["Cr eate an identity m a tri x"
             (p r o gn 
       (require 'calc- vec)
             (ca l l-i nt eractiv ely 'ca lc-id e nt))
             :keys 
3)
 _ _   _ __ __  _(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