;ELC ;;; Compiled ;;; in Emacs version 27.1 ;;; with all optimizations. ;;; This file contains utf-8 non-ASCII characters, ;;; and so cannot be loaded into Emacs 22 or earlier. (and (boundp 'emacs-version) (< (aref emacs-version (1- (length emacs-version))) ?A) (string-lessp emacs-version "23") (error "`%s' was compiled for Emacs 23 or later" #$)) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (byte-code "\300\301!\210\300\302!\207" [require calc calc-macs] 2) #@34 The history list for quick-calc. (defvar calc-quick-calc-history nil (#$ . 476)) (defalias 'calc-do-quick-calc #[(&optional insert) "\306\307!\210\310 \210\311=\203\312\313!\207\314\211\212\315 \210\314\f\3163\31345\317>\203.\320\202055\321\322\323\313\324$6\325\3266\"\2117G\327U\203\2057@\242\330=\203\2057@G\331U\203\2057@A@\242\332=\203\205\3337@A@8\3337@8L\210\334\3337@A@8!\210\3337@8C77\335\3367\337#\2117G\327U\203\3677@\242\314=\203\367\nG\340W\203\3678\341U\203\367\n\342\3438\3447@\345\")\346\3478\3447@\345\")\346\3338\3447@\345\")7@\250\203\3627@\316V\203\3627@\350W\203\362\351\3527@\"\202\363\322\353\260 \nG\354 W\203&6G\327U\203&\355\307!\203&\3446@\345\"\356\nQ\2119G\354 \347ZX\203%9)\357 \210\360\361\n\"\210.:\204<;\341=\203A c\202D\362 !*\207" [major-mode shortbuf buf calc-command-flags calc-quick-prev-results calc-dollar-values require calc-ext calc-check-defines calc-mode calc-algebraic-entry t nil calc-create-buffer 0 (nil big) flat calc-do-alg-entry "" "Quick calc: " calc-quick-calc-history mapcar math-evaluate-expr 1 calcFunc-assign 3 var 2 calc-refresh-evaltos mapconcat #[(x) "\301\302\"\207" [x math-format-value 1000] 3] " " 20 10 " (" 16 math-format-value 1000 ", " 8 127 format ", \"%c\"" ")" frame-width featurep " => " calc-handle-whys message "Result: %s" kill-new calc-dollar-used enable-recursive-minibuffers calc-language entry alg-exp calc-number-radix long insert last-command-event] 11]) (defalias 'calc-do-calc-eval #[(str separator args) "\306 \210\3072@\212\310 \210:\203\220@9\204\220\311\312 \313\314\311\211\315\316\311\211\211\317\320\311\321\322\323\324\311\211\325\311\326\327\330\331\311\211\211\332A@ABCDEFGHIJKLMNOPQRSTUVWXY \203\203 @ A@L\210 AA\211\204t\333@Z[#.\202>Z\334\267\2024\335!\202>\336\337!\210p\\\340\\!]\341 ^]\203\306\342\216\343]!\210\344\311[@#\210)\202\337\345 _\346\216\343\347 !\210\350\\!\210\344\311[@#\210*+\311\202>\250\203\366\351U\204\366\352\353 ^!\210\353 \202>\250\205>\351V\205>\353 X\205>\354\355[@\"\356\"\202>\250\205>\351V\205>\353 X\205>\355[@\"\202>\311\211`aY\357>\203E\360\202GYY\361\362[\"b\351c;\203^\363!\202`Cd\311ed@\364=\203u\365dA!\202<\361\366d\"d\367`>\203\207\370\371!\210Z\372\267\202\336\337!\210dG\373U\203\242\374d@!\202<\365\375!\202<dG\373U\203\266d@\202<\365\376!\202<d\202<dG\373U\203\377d@!\203\351Z\201f=\203\343\354d@\356\"\202<d@\202<\365\351a\203\372\201ga@!\202\375\201hD!\202<\365\201i!\202<\201jd!\210\311\202<d\203:e\211\205(Z\206(\201k\354d@\356\"QedA\211d\204e.)0\207" [str strp calc-display-working-message calc-simplify-mode calc-display-strings calc-infinite-mode calc-check-defines calc-error calc-create-buffer nil math-standard-ops 12 32 deg 10 "." (":" nil) "%s@ %s' %s\"" ((H ":" mm C SS pp " ") Www " " Mmm " " D ", " YYYY) (float 0) (float 0) t "," "[]" (R O) cplx lots calc-do-calc-eval #s(hash-table size 5 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (eval 151 macro 157 pop 228 top 251 rawtop 281)) eval require calc-ext get-buffer-window selected-window #[nil "\301!\205 \302!\207" [save-window window-point select-window] 2] select-window calc-execute-kbd-macro current-window-configuration #[nil "\301!\207" [#1=#:wconfig set-window-configuration] 2] get-largest-window switch-to-buffer 0 calc-pop calc-stack-size math-format-value calc-top-n 1000 (nil big) flat mapcar #[(x) ";\203\301!\211\242\302=\203\303\304\305A!\"\207@\207\207" [x math-read-exprs error throw calc-error calc-eval-error] 5] math-read-exprs error calc-eval-error calc-normalize clear-message message "" #s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (pred 398 raw 424 list 444 num 449 rawnum 449 push 522)) 1 math-is-true (0 "Single value expected") (0 "Single value expected") math-constp calc-complex-mode calc-matrix-brackets calc-vector-brackets calc-vector-commas calc-break-vectors calc-full-vectors calc-matrix-just calc-complex-format calc-full-float-format calc-float-format calc-date-format calc-hms-format calc-prefer-frac calc-frac-format calc-point-char calc-group-digits calc-leading-zeros calc-twos-complement-mode calc-number-radix calc-angle-mode calc-matrix-mode calc-symbolic-mode calc-word-size calc-internal-prec math-expr-opers calc-language separator args calc-buffer calc-window save-window #1# calc-command-flags calc-next-why calc-dollar-values calc-dollar-used res buf num calc-explain-why "Number expected" (0 "Single value expected") calc-push-list ", "] 32]) #@216 Determines how calc handles errors. If nil, return a list containing the character position of error. STRING means return error message as string rather than list. The value t means abort and give an error message. (defvar calc-eval-error nil (#$ . 5200)) (defalias 'calc-eval-error #[(msg) "\203\302=\203 A@\207\303\304 A@\"\207 \207" [calc-eval-error msg string error "%s"] 3]) (defalias 'calc-auto-algebraic-entry #[(&optional prefix) "\301\302\"\207" [prefix calc-algebraic-entry t] 3 nil "P"]) (defalias 'calc-algebraic-entry #[(&optional prefix auto) "\300\301!\207" [calc-do #[nil "?\205 \203\305 \202\306 \307 \205\310\f!!*\207" [prefix calc-language math-expr-opers auto last-command-event math-standard-ops math-expr-ops calc-alg-entry char-to-string] 3]] 2 nil "P"]) #@30 History for algebraic entry. (defvar calc-alg-entry-history nil (#$ . 6003)) (defalias 'calc-alg-entry #[(&optional initial prompt) "\306\307 \233\"\310\311\312 \311\313$\211;\203$\314\315!\210\316!\202~\317=\203/\320\2021\306\321\"\203{\322\323\315!\203L@\202O@\324\"\210\325 @@\232?\205f\323\315!\205f\326@C#\210AA\310\202:*\327 ,\207" [calc-stack-top calc-stack calc-dollar-values calc-dollar-used calc-plain-entry initial mapcar calc-get-stack-element 0 t calc-do-alg-entry calc-alg-entry-history require calc-ext calc-alg-edit 10 none calc-normalize calc-record featurep "alg'" calc-pop-push-record-list "" calc-handle-whys prompt alg-exp last-command-event calc-simplify-mode nvals] 6]) #@38 The keymap used for algebraic entry. (defvar calc-alg-ent-map (byte-code "\302 \303 \"\210\304\305\306#\210\304\307\310#\210\304\311\312#\210\304\313\312#\210)\207" [map minibuffer-local-map make-sparse-keymap set-keymap-parent define-key "'" calcAlg-previous "`" calcAlg-edit " " calcAlg-enter "\n"] 4) (#$ . 6753)) #@49 The keymap used for escapes in algebraic entry. (defvar calc-alg-ent-esc-map (byte-code "\303 \304\305 \n\"\210\306W\203\307 \310!\311#\210T\211\202 *\207" [i map esc-map make-keymap 33 set-keymap-parent 127 define-key vector calcAlg-escape] 5) (#$ . 7083)) (defalias 'calc-do-alg-entry #[(&optional initial prompt no-normalize history) "p\306\307\310 \311\312#\210\f\313=\203\310 \311 #\210\202E\310 \314\315#\210\310 \316\317#\210\310 \320\321#\210\310 \322\321#\210\310 \323\324#\210\310 \325\326#\210\310 \327\330#\210\312 \331!\206O\332\"\206U\333 \312#%$\n\307=\203p\334$!\211\242\307=\203p\312\335 %\204\201\n\203\201\336\337\n\"\n,\207" [calc-buffer blink-matching-check-function calc-alg-exp calc-alg-ent-map calc-algebraic-mode calc-alg-ent-esc-map calcAlg-blink-matching-check error define-key "" nil total "+" calcAlg-plus-minus "m" calcAlg-mod "=" calcAlg-equals " " "p" previous-history-element "n" next-history-element "%" self-insert-command read-from-minibuffer "Algebraic: " "" math-read-exprs "alg'" mapcar calc-normalize calc-aborted-prefix prompt initial history buf no-normalize] 6]) (defalias 'calcAlg-plus-minus #[nil "\300\301!\203 \302c\207\303c\207" [calc-minibuffer-contains ".* \\'" "+/- " " +/- "] 2 nil nil]) (defalias 'calcAlg-mod #[nil "\301\302!\204 \303c\210\301\304!\203\203\305\306\"c\207\307 \207\310c\207" [calc-previous-modulo calc-minibuffer-contains ".* \\'" " " ".* mod +\\'" math-format-flat-expr 0 beep "mod "] 3 nil nil]) (defalias 'calcAlg-previous #[nil "\300\301!\203\n\302\303!\207\304c\207" [calc-minibuffer-contains "\\'" previous-history-element 1 "'"] 2 nil nil]) (defalias 'calcAlg-equals #[nil "\300\216\301 )\207" [#[nil ":\205 G\302\303!\207" [calc-alg-exp prefix-arg calc-unread-command 61] 2] calcAlg-enter] 1 nil nil]) (defalias 'calcAlg-escape #[nil "\301 \210\212\302 \210\303!\210)\304 \207" [calc-mode-map calc-unread-command calc-select-buffer use-local-map calcAlg-enter] 2 nil nil]) (defvar calc-plain-entry nil) (defalias 'calcAlg-edit #[nil "\203\n\302\303!\203 \304c\207\305 \306 \207" [calc-plain-entry calc-alg-exp calc-minibuffer-contains "\\`\\([^\"]*\"[^\"]*\"\\)*[^\"]*\"[^\"]*\\'" "`" minibuffer-contents exit-minibuffer] 2 nil nil]) (defalias 'calcAlg-enter #[nil "\304 \211G\305V\205r q\210\306!)\211\242\307=\2038\310 b\210\nA@u\210\311 \210\312\313\314\n8\206/\315\316Q!\210\317 \202F\320\321!\203B\322\202C\n\323 *\207" [str calc-buffer exp calc-alg-exp minibuffer-contents 0 math-read-exprs error minibuffer-prompt-end beep calc-temp-minibuffer-message " [" 2 "Error" "]" calc-clear-unread-commands calc-minibuffer-contains "\\` *\\[ *\\'" ((incomplete vec)) exit-minibuffer] 5 nil nil]) (defalias 'calcAlg-blink-matching-check #[(leftpt rightpt) "\206`Sf \205 f \2053 \304U\203\n\305U\204+ \306U\2053\n\307U\2053\212 b\210\310\311!)?\205;\312 \"*\207" [rightpt leftpt leftchar rightchar 41 91 93 40 looking-at ".+\\(\\.\\.\\|\\\\dots\\|\\\\ldots\\)" blink-matching-check-mismatch] 3]) (defalias 'calc-alg-digit-entry #[nil "\300\301 !\207" [calc-alg-entry calc-digit-start-entry] 2]) (defalias 'calcDigit-algebraic #[nil "\301\302!\203 \303 \207\304 \305 \207" [calc-digit-value calc-minibuffer-contains ".*[@oh] *[^'m ]+[^'m]*\\'" calcDigit-key minibuffer-contents exit-minibuffer] 2 nil nil]) (defalias 'calcDigit-edit #[nil "\301 \210\302 \303 \207" [calc-digit-value calc-unread-command minibuffer-contents exit-minibuffer] 1 nil nil]) #@88 A list whose elements (old new) indicate replacements to make in Calc algebraic input. (defvar math-read-replacement-list '(("±" "+/-") ("×" "*") ("÷" ":") ("−" "-") ("∕" "/") ("∗" "*") ("∞" "inf") ("≤" "<=") ("≥" ">=") ("≦" "<=") ("≧" ">=") ("µ" "μ") ("¼" "(1:4)") ("½" "(1:2)") ("¾" "(3:4)") ("⅓" "(1:3)") ("⅔" "(2:3)") ("⅕" "(1:5)") ("⅖" "(2:5)") ("⅗" "(3:5)") ("⅘" "(4:5)") ("⅙" "(1:6)") ("⅚" "(5:6)") ("⅛" "(1:8)") ("⅜" "(3:8)") ("⅝" "(5:8)") ("⅞" "(7:8)") ("⅟" "1:") ("⁰" "0") ("¹" "1") ("²" "2") ("³" "3") ("⁴" "4") ("⁵" "5") ("⁶" "6") ("⁷" "7") ("⁸" "8") ("⁹" "9") ("⁺" "+") ("⁻" "-") ("⁽" "(") ("⁾" ")") ("ⁿ" "n") ("ⁱ" "i") ("₀" "0") ("₁" "1") ("₂" "2") ("₃" "3") ("₄" "4") ("₅" "5") ("₆" "6") ("₇" "7") ("₈" "8") ("₉" "9") ("₊" "+") ("₋" "-") ("₍" "(") ("₎" ")")) (#$ . 10602)) #@58 A string consisting of the superscripts allowed by Calc. (defvar math-read-superscripts "⁰¹²³⁴⁵⁶⁷⁸⁹⁺⁻⁽⁾ⁿⁱ" (#$ . 11503)) #@56 A string consisting of the subscripts allowed by Calc. (defvar math-read-subscripts "₀₁₂₃₄₅₆₇₈₉₊₋₍₎" (#$ . 11659)) #@53 Replace some substrings of STR by Calc equivalents. (defalias 'math-read-preprocess-string #[(str) "\305\306\307Q\310 #\305\306\n\307Q\311 # \211\203*\305\f@@\f@A@ #\fA\211\204) \207" [math-read-superscripts str math-read-subscripts math-read-replacement-list rep-list replace-regexp-in-string "[" "]+" "^(\\&)" "_(\\&)"] 5 (#$ . 11808)]) (defalias 'math-read-exprs #[(math-exp-str) "\306\211\307\211\211\310 !>\203\311 !\203$ !\312\313 \"\211\203>\314 \306 #\315\314 \316\\\"Q\202$\317 \210\320 \210\3212K\322 0\211;\203Z\323 E\202i \324=\203e\202i\323 \325E.\207" [math-expr-data math-exp-token math-exp-keep-spaces math-exp-old-pos math-exp-pos math-exp-str 0 nil math-read-preprocess-string math-remove-percentsigns string-match "\\.\\.\\([^.]\\|.[^.]\\)" substring "\\dots" 2 math-build-parse-table math-read-token syntax math-read-expr-list error end "Syntax error" calc-language calc-lang-allow-percentsigns calc-language-input-filter val] 7]) (defalias 'math-read-expr-list #[nil "\305\306\307!C\211 \310\232\203!\311 \210\306\307!C\n\f\241\210\f)\202 +\207" [math-exp-keep-spaces val last math-expr-data rest nil math-read-expr-level 0 "," math-read-token] 3]) (defvar calc-user-parse-table nil) (defvar calc-last-main-parse-table nil) (defvar calc-last-user-lang-parse-table nil) (defvar calc-last-lang-parse-table nil) (defvar calc-user-tokens nil) (defvar calc-user-token-chars nil) #@74 Tokens to pass between math-build-parse-table and math-find-user-tokens. (defvar math-toks nil (#$ . 13262)) (defalias 'math-build-parse-table #[nil "\306\236A \236A \307N\211 =\203\" =\203\"\n=\206_\310\f \n#\306\211\306\203G\311@@!\210A\211\2047\312\313\314\315\316\"\317\"\320#\f \n\211*+\207" [calc-user-parse-tables calc-language lltab ltab mtab calc-last-main-parse-table nil math-parse-table append math-find-user-tokens mapconcat identity sort mapcar car #[(x y) "G GV\207" [x y] 2] "\\|" calc-last-user-lang-parse-table calc-last-lang-parse-table math-toks p calc-user-parse-table calc-user-token-chars calc-user-tokens] 7]) (defalias 'math-find-user-tokens #[(p) "\205\207@;\203c@G\304V\204 @\305\232\204 @\306\232\203c\307\310@\"\203c\311@!\307\312 \"\2038\313 P\307\314 \"\203C \315P\316 \n\"\204_ C\nB@\317H >\204_@\317H B)\202@:\203\320@A@!\210@@\321=\204\320\322@8!\210A\211\204\323\207" [p s math-toks calc-user-token-chars 1 "$" "\"" string-match "[^a-zA-Zα-ωΑ-Ω0-9]" regexp-quote "\\`[a-zA-Zα-ωΑ-Ω0-9]" "\\<" "[a-zA-Zα-ωΑ-Ω0-9]\\'" "\\>" assoc 0 math-find-user-tokens \? 2 nil] 4]) (defalias 'math-read-token #[nil " GY\203\306\307\211\207\310 H< \311>\2033T=\203.\312\313\211\202 \314 \202  >>\203W\310?\315@ #)=\203W\316\317 \320\"\320\225\211\202  \321Y\203c \322X\204\207 \323Y\203o \324X\204\207 \325Y\203{ \326X\204\207 \327Y\203\311 \330X\203\311\315AB>\203\234AC>\203\234\331\202\251AB>\203\250\332\202\251\333 #\210\334\320\225\335\317 \320\"!A\336N\211<\205 < \202  \337Y\203\325 \340X\204 \341=\203\345\315\342 #=\204 \343=\2035\315\344 #=\2035\320=\204AB>\2045\315\345 S#S=\2035AD>\203!\315\346 #=\204'\315\347 #\210\350\317 \320\"\320\225\211\202  A\351N\236\211<\203S\352=\\|<>\\|/=\\|\\+/-\\|\\\\dots\\|\\\\ldots\\|\\*\\*\\|<<\\|>>\\|==\\|!=\\|&&&\\||||\\|!!!\\|&&\\|||\\|!!\\|:=\\|::\\|=>" 34 "\\(\"\\([^\"\\]\\|\\\\.\\)*\\)\\(\"\\|\\'\\)" string math-lang-read "%%.*$" math-punc-table char-to-string adfn math-exp-keep-spaces calc-user-token-chars case-fold-search calc-user-tokens calc-language calc-lang-allow-underscores calc-lang-allow-percentsigns calc-lang-c-type-hex] 4]) (defconst math-alg-inequalities '(calcFunc-lt calcFunc-gt calcFunc-leq calcFunc-geq calcFunc-eq calcFunc-neq)) (defalias 'math-read-expr-level #[(exp-prec &optional exp-term) "\306 \307 \310\311\211 \203\"\312 $\"\211\203\" \313\211\204\350\314%\"\211\203e\315 8\316U\204e\314% >A\"\211\203\350\317 8\316U\317\f8\316U?=\203\350\317\f8\316U\320 ?=\203\350\f\211\204\350\202\350\315 8\316=\204\227&\321>\204\227%\322\232\204\227%\323\232\203\222'\324N\323\232\204\222(\203\227 \242\325=\204\222\314%\"\211\203\251\315 8\316U\204\222 \203\337&\326=\203\337 \211)\203\331)@@@\250\203\320)@@A@%\232\204\331)A\211)\204\273))\204\222\314\327\"\211\203\222*\203\365%*\232\204\222\315 8$Y\203\222 @\327\232\204\330 \210 A@\331>\203\332\333!\210 A@:\203% A@@ \"\202\214\317 8\316=\203` A@\334=\2039 \202\214 A@\335=\203X\315 8$=\203Q\336$ \202\214\337\340\341\"\202\214 A@ D\202\214\n\204\200 A@+>\203\200 \242+>\203\200\332\333!\210\342 \"\202\214 A@ \343\317 8*\"E\311\202\f -\207" [math-expr-opers x first op op2 calc-user-parse-table math-expr-ops math-read-factor t nil calc-check-user-syntax ("2x" ident 999999 -1) assoc 2 -1 3 math-factor-after (symbol number dollar hash) "(" "[" math-function-open vec symbol "2x" math-read-token (sdev mod) require calc-ext ident closing 1000 throw syntax "Mismatched delimiters" math-composite-inequalities math-read-expr-level exp-prec math-expr-data math-exp-token calc-language math-exp-keep-spaces p exp-term math-alg-inequalities] 6]) (defalias 'calc-check-user-syntax #[(&optional x prec) "\306\211\211\211\203\203\f@@ \203- @\250\203| @Y\203| A\211@\232\2022 @\232\203| \307 !\211\204\f\n>\205,\305 !\n>\203\306\307!\210\310\f! >\203(\311\f!\312\f!)\207" [calc-language calc-lang-allow-underscores calc-lang-allow-percentsigns x sx symbol-name require calccomp math-to-percentsigns math-string-restore-underscores intern-soft] 2 (#$ . 21242)]) #@53 Replace pound signs by underscores in the string x. (defalias 'math-string-restore-underscores #[(x) "\301\302\"\203\303\304\305\"\306\304\307\"Q!\207\207" [x string-match "\\`\\(.*\\)#\\(.*\\)\\'" math-string-restore-underscores math-match-substring 1 "_" 2] 6 (#$ . 21744)]) (defalias 'math-read-if #[(cond op) "\304\305! \306\232\204\307\310\311\"\210\312 \210\313\n\304\314 8!F)\207" [then math-expr-data cond op math-read-expr-level 0 ":" throw syntax "Expected `:'" math-read-token calcFunc-if 3] 6]) (defalias 'math-factor-after #[nil "\305\211\211\306 \210\n\307>\2060\310 \311\"\203!\310\312 P\f\"\2060\313\310 \f\"8\314=\2060\310 \315\",\207" [math-exp-pos math-expr-data math-exp-token math-exp-old-pos math-expr-opers nil math-read-token (number symbol dollar hash string) assoc (("-") ("+") ("!") ("|") ("/")) "u" 2 -1 (("(") ("[") ("{"))] 4]) (defalias 'math-read-factor #[nil "\306 \307\n\310=\2033\311 !\211\204 @\312\313\314\"\210\315 \210A\203.\f:\203.\316\fD\202/\f)\202sB\203C\317 \211\203C\202s \320\232\204a \321\232\204a \322\232\204a \323\232\204a \324\232\203j\325 P\326 \202s\327 \"\211\203\313\3308\331=\203\313A@:\203\213A@@!\202s\315 \210\332\3338!CA@\334=\203\242C\202\307C\211:?\206\256\211@\335>\262\203\301@\336\232\203\301\337C!\202\307A@CD)\202s\n\340\267\202\305\341 !D\315 \210 E\232\203\237DF\236G\315 \210GA:\203\375GA@GD\"\202\233 H\232\206\n\342=?\205 \343 I H\232\204!\n\342=\204!\312\313\344\"\210\315 \210JK>\203UI\203U\345\346!\203U\347L\350\351D\341\352\353D!P!E!)\203U\354DI\"\202\232G\203bGAD\202\225\353D!\355H\356U\203\201\357M!\355W\203\201\341\360\353D!\361\"!D\362\320\353D!\"\204\225\341\363\353D!P!DDIB))\202OA\203\251D\202O\351\341\364\353D!!!\362\320\353D!\"\203\301D\202\311\341\352\353D!P!E\211CA@N\236\206\336\365CA@!N\236\211O\203OA:\203\367OA@OC\"\202\351\341\360\353OA!\366\"!OAEC)JP>\203L \367\232\203L\315 \210\343 \211Q\2037\370\371CDQ@C\"CQA\211Q\204\") \372\232\203D\315 \210\202 \312\313\373\"\210\202 C))\202s \355V\203] \202_ [RSGRY\203\201 \315 \210T\f]T\374RSS8!)\202\216\312\313S\203\214\375\202\215\376\")\202sU\204\234\312\313\377\"\210\345\346!\210 VGX\203\274 \315 \210U\f]U\fSV8)\202s\312\313\201Z\"\202s \201[\232\203)\307W\315 \210 \201\\\232\204\343 \201]\232\203\351\201^\202\354\332\355!)X\307W \201_\267\202\262\315 \210\332\355!\211Y\203;X\211:?\206\211@\201`>\262\203;Y\211:?\206'\211@\201`>\262\203;\201a\201bXYE!\202J\201cX\201dY\201eEEX)\202\374\315 \210\332\355!\211Y\203\221X\211:?\206j\211@\201`>\262\203\221Y\211:?\206}\211@\201f>\262\203\221\201a\201gXYE!\202\254\345\346!\210\201dX\201h\201d\201iY!\201jEDEX)\202\374 \201\\\232\204\302 \201]\232\203\374\315 \210 \201k\232\204\331 \372\232\204\331\n\342=\203\337\201l\202\342\332\355!Y\201m \201k\232\203\363\355\202\364\361XYFX)) \201k\232\204  \372\232\203X\242\201m=\204 \n\342=\204 \312\313\344\"\210\315 \210X)\202s\n\201n=\203<\345\346!\210\201o \202s \201p\267\202m\345\346!\210\201q\201r\372\"\202s\345\346!\210\201q\307\201s\"\202s\345\346!\210\201t \202s\312\313\201u\"*\207" [op math-expr-opers math-exp-token math-expr-data num math-exp-pos math-expr-ops nil number math-read-number throw syntax "Bad format" math-read-token quote calc-check-user-syntax "-" "+" "!" "|" "/" "u" math-read-factor assoc 2 -1 math-read-expr-level 3 ident (frac float cplx polar) "u-" math-neg #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (symbol 209 dollar 595 hash 658)) intern end math-read-expr-list "Expected `)'" require calc-ext scalar math-known-matrixp var "var-" symbol-name math-parse-fortran-subscr 0 92 prefix-numeric-value substring 1 string-match "calcFunc-" math-remove-dashes math-restore-placeholders 4 "[" append calcFunc-subscr "]" "Expected `]'" math-check-complete "Too many $'s" "$'s not allowed in this context" "#'s not allowed in this context" math-exp-old-pos math-read-expr-quotes calc-user-parse-table val sym calc-function-open math-expr-function-mapping f calc-function-close args calc-language calc-lang-parens-are-subscripts calc-matrix-mode calc-language-option math-expr-variable-mapping v calc-lang-brackets-are-subscripts el abs calc-dollar-values calc-dollar-used calc-hashes-used calc-arg-values math-exp-keep-spaces exp exp2 "Too many # arguments" "(" "\\dots" "\\ldots" (neg (var inf var-inf)) #s(hash-table size 2 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("," 762 ";" 848)) (frac float) math-normalize cplx + * (var i var-i) (frac float hms) polar calcFunc-exp math-to-radians-2 (var i var-i) ")" (var inf var-inf) intv string math-read-string #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("[" 1092 "{" 1107 "<" 1122)) math-read-brackets t "}" math-read-angle-brackets "Expected a number"] 8]) (provide 'calc-aent)