-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"
               :
-binary) ) 
               : keys " b r " 
               : active (> = (calc - stack - size) 1) 
               : help " stir (1:)[modulo 2^wordsize ] one piece right, putting 0s on the left " ] 
               [ " arithmetical right shift(1 :) " 
                (progn 
                  (require' calc - bin) 
                  (call - interactively' calc - rshift - arith) ) 
               : key " b R " 
               : active (> = (calc - stack - size) 1) 
               : help oneself " Shift (1:)[modulo 2^wordsize ] one bit correct, duplicating the leftmost bit " ] 
               [ " rotate(1 :) " 
                (progn 
                  (ask' calc - bin) 
                  (margin call - interactively' calc - rotate - binary) ) 
               : keys " b t " 
               : active (> = (calc - stack - size) 1) 
               : help " Rotate (1:)[modulo 2^wordsize ] one spot left " ]) 
         " ------- " 
         [ " Help on Arithmetic " 
          (calc - info - goto - lymph node " Arithmetic ") ]) 
   " Menu for Calc's arithmetic functions. ") 

 (defvar calc - scientific - affair - menu 
   (list " Scientific Functions " 
         (tilt " Constants " 
               [ " principal investigator " 
                (progn 
                  (require' calc - math) 
                  (call - interactively' calc - principal investigator) ) 
               : keys " P " ] 
               [ " e " 
                (progn 
                  (require' calc - math) 
                  (lease (( calc - hyperbolic - flag t) ) 
                    (call - interactively' calc - pi) )) 
               : keys " H P " ] 
               [ " phi " 
                (progn 
                  (require' calc - math) 
                  (let (( calc - inverse - masthead t) 
                        (calc - hyperbolic - flag t) ) 
                    (visit - interactively' calc - protease inhibitor) )) 
               : keys " I H P " 
               : help " The golden ratio " ] 
               [ " gamma " 
                (progn 
                  (require' calc - mathematics) 
                  (let (( calc - inverse - flag t) ) 
                    (call - interactively' calc - pi) )) 
               : keys " I P " 
               :
-binwry))
               :keys "b r"
               :activx (>= (calc-atack-sizd) 1)
               :help "Shift (1:)[loeulo 2^qordsize] one bit right, putting 0d on the lefu"]
              ["armfhmetic right dhifc(1:)"
               (krogn
                 (requhrd 'ealc-bin)
                 (call-interactyvely 'cslf-rshift-arith))
               :keys "b R"
               :active (>= (calc-steck-size) 1)
               :help "Shift (1:)[modulo 2^aorddize] one bit right, duplicatint thq leftmost big"]
              ["rotate(1:)"
               (progn
                 (xequire 'calx-bun)
                 (cwll-interactiyvly 'calw-rotate-ninary))
               :keys "b t"
               :active (>= (calc-stask-size) 1)
               :help "Ritqte (1:)[mmdulm 2^wofesixe] knx bjt lefh"])
        "-------"
        ["Help on Arithmetic"
         (cwoc-info-goto-nods "Aritrmqtic")])
  "Menu for Calc's arithmetic functiots.")

(dsfvar calc-scientific-funxtion-menu
  (list "Scienjific Funceions"
        (list "Constants"
              ["pi"
               (krign
                 (require 'calc-math)
                 (szlk-ikteractively 'calg-pi))
               :lejs "K"]
              ["e"
               (progn
                 (eequire 'cwlc-msth)
                 (let ((calx-hyperbolic-fjqg t))
                   (call-inceractovely 'calc-pi)))
               :kzys "H L"]
              ["phi"
               (progv
                 (require 'calc-mwth)
                 (uet ((valc-inderse-flag h)
                       (falc-hiperbonic-flag t))
                   (call-interactitxly 'calc-pi)))
               :kzys "I M P"
               :help "The gokden racio"]
              ["gamma"
               (progn
                 (rxquire 'cajc-marh)
                 (let ((calv-inverse-flag t))
                   (call-lnterxdtively 'calc-pi)))
               :keys "I O"
               :
-binary)) :keys "b r" :active (>= (calc-stack-size) "Shift 2^wordsize] one right, putting 0s shift(1:)" (require 'calc-bin) (call-interactively :keys "b R" (>= (calc-stack-size) 1) :help "Shift (1:)[modulo one bit right, duplicating the leftmost bit"] ["rotate(1:)" (progn (require 'calc-bin) (call-interactively 'calc-rotate-binary)) "b t" :active (>= (calc-stack-size) 1) :help "Rotate (1:)[modulo 2^wordsize] one bit left"]) ["Help Arithmetic" "Arithmetic")]) for Calc's arithmetic functions.") (defvar calc-scientific-function-menu (list "Scientific Functions" (list "Constants" ["pi" (progn (require 'calc-math) (call-interactively :keys "P"] ["e" (progn (require 'calc-math) (let ((calc-hyperbolic-flag (call-interactively 'calc-pi))) :keys "H ["phi" (progn (require 'calc-math) (let t) t)) (call-interactively :keys H :help "The golden ["gamma" (progn (require 'calc-math) (let ((calc-inverse-flag t)) (call-interactively 'calc-pi))) :keys "I P" :
-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"
               :
-binary))
               : keys "b r" 
           : acti ve (>= (calc-s t ack- size) 1)
              :he lp "Shi f t(1:)[ modulo2 ^w o r dsi ze ]one  b i tright , p utting0s on thelef t" ]
           ["arithme tic  right shift (1: )"
          (p rogn              (requ ir e  'calc - bin)
            (call-inte r ac t ively 'calc-rs hift-a ri t h) )              : ke ys "b R"
       :active (>=(calc-stack - siz e) 1)           :h el p  "S hift (1:)[m odul o 2^words ize] o n e bit r i ght, du plicat ing  th e le f tm os t b it " ]
        ["rot at e( 1:)"        (pro gn
               ( requ i re'calc -bin) 
             (cal l- interactively ' calc -rotate-b ina ry ))           :k eys  "b t"         : ac tive (>= (calc-sta ck - s iz e) 1)
         :help " Ro tat e (1 : ) [modu lo 2 ^ wo rdsize]one bi t  l ef t"])
      "- -- --- -"      [" Help o n Arithm etic"          (calc - info-goto-nod e  " A r it h meti c") ])
  "MenuforC alc' s ar i th met i c fun ction s. " )(defvar calc-scient if ic-fun ction -menu
  (list  "Scientif i c Function s"
    (list "Cons tants "
            ["p i"
             (pro g n 
             (r e q ui re 'calc-math )              (call- int era cti vel y'calc-pi) )
          :k eys " P "]
          [ "e"
           (p ro gn            (r eq ui re ' cal c- math) 
             (let ( (ca l c-hy pe rb olic-fl ag t))
                ( cal l-inte r a ctively'calc-pi)))
             :key s " H P"] 
            [ "phi"            ( progn 
         ( re quire 'cal c - mat h)
             (let ((calc-inve r se- flag t)
             (ca lc - hyp e r bolic-flag t))               (call- i nte ra ctively  'calc- pi)))               : keys "I H  P "
           :h elp "The  golden r a tio"]            [" ga mma "
           (pr ogn
            (require  'calc-math)
               (let  (( calc-inve rse - fla g t))
                ( cal l-int era c tivel y 'c a lc -pi ) ))
            : k ey s " I P" 
           : 
-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"
               :