%PDF-
%PDF-
Mini Shell
Mini Shell
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-argument #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "arg" calcFunc-arg] 4]] 3 nil "P"])
(defalias 'calc-re #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "re" calcFunc-re] 4]] 3 nil "P"])
(defalias 'calc-im #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303#\207" [arg calc-unary-op "im" calcFunc-im] 4]] 3 nil "P"])
(defalias 'calc-polar #[nil "\300\301`\"\207" [calc-do #[nil "\301\302!\303 \204 \242\304=\203 \305\302\306\307D#\202! \305\302\310\311D#)\207" [arg calc-top-n 1 calc-is-inverse polar calc-enter-result "p-r" calcFunc-rect "r-p" calcFunc-polar] 5]] 3 nil nil])
(defalias 'calc-complex-notation #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-complex-format nil t message "Displaying complex numbers in (X,Y) format"] 4]] 2 nil nil])
(defalias 'calc-i-notation #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-complex-format i t message "Displaying complex numbers in X+Yi format"] 4]] 2 nil nil])
(defalias 'calc-j-notation #[nil "\300\301!\207" [calc-do #[nil "\300\301\302\303#\210\304\305!\207" [calc-change-mode calc-complex-format j t message "Displaying complex numbers in X+Yj format"] 4]] 2 nil nil])
(defalias 'calc-polar-mode #[(n) "\300\301!\207" [calc-do #[nil "\203\f \302!\303V\202 \304=\203 \305\301\306\"\210\307\310!\207\305\301\304\"\210\307\311!\207" [n calc-complex-mode prefix-numeric-value 0 cplx calc-change-mode polar message "Preferred complex form is polar" "Preferred complex form is rectangular"] 3]] 2 nil "P"])
(defalias 'math-normalize-polar #[(a) "\304A@!\304\3058!\306\n!\203 \307\202M \306 !\203 \n\202M \310=\2048 \311\232\2042 \312\232\2038 \313\n!\202M \314\n!\203I \313\315\313\n! E!\202M \315\n E*\207" [a th r calc-angle-mode math-normalize 2 math-zerop (polar 0 0) rad (float 18 1) 180 math-neg math-negp polar] 4])
(defalias 'math-complex #[(a) "\242\302=\203 \207\242\303=\2036 \304A@!\203 A@\207\305\3068!\302\307A@ A@\"\307A@\306 8\"E)\207\302\310E\207" [a sc cplx polar math-zerop calcFunc-sincos 2 math-mul 0] 6])
(defalias 'math-polar #[(a) "\242\301=\203 \207\302!\203 \303\207\301\304!\305!E\207" [a polar math-zerop (polar 0 0) math-abs calcFunc-arg] 4])
(defalias 'math-imaginary #[(a) "\211:?\206 \211@\303>\262\204 \304!\203< \204< \305\211\242\306=\2040 \242\307=\2049 \n\306=\2039 \306\310\311\312!E\202: \313\"\207\305\314\"\207" [a calc-symbolic-mode calc-complex-mode (frac float cplx polar hms date sdev intv mod vec) math-infinitep math-mul polar cplx 1 math-quarter-circle nil (cplx 0 1) (var i var-i)] 6])
(defalias 'math-want-polar #[(a b) "\242\303=\203 \242\304=\203 \n\303=\207\305\207\242\304=\203& \242\303=\205; \n\303=\207 \242\303=\203/ \305\207 \242\304=\2038 \306\207\n\303=\207" [a b calc-complex-mode polar cplx t nil] 2])
(defalias 'math-fix-circular #[(a &optional dir) "\242\303=\203C \304A@\305\"\306U\266\202\203$ \307=\204$ \310\311\312\"\306\"\207\313A@\305\"\306U\266\202\2049 \306=\203; \207\310\311\314\"\307\"\207\n\315=\203\207 \316 \305\"\306U\266\202\203f \307=\204f \310\317\320 \"\306\"\207\321\316 !\305\"\306U\266\202\204| \306=\203~ \207\310\311\320 \"\307\"\207\322\305\"\306U\266\202\203\242 \307=\204\242 \310\311\323\"\306\"\207\324\305\"\306U\266\202\204\265 \306=\203\267 \207\310\311\325\"\307\"\207" [a dir calc-angle-mode hms 180 math-compare -1 1 math-fix-circular math-add (float -36 1) -180 (float 36 1) rad math-pi math-sub math-two-pi math-neg (float 18 1) (float -36 1) (float -18 1) (float 36 1)] 5])
(defalias 'calcFunc-polar #[(a) "\211\242\301=\262\203 \302\303\"\207\211:?\206 \211@\304>\262\203! \207\211:?\206, \211@\305>\262\2037 \306\307!!\207\303D\207" [a vec math-map-vec calcFunc-polar (frac float) (frac float cplx polar) math-normalize math-polar] 3])
(defalias 'calcFunc-rect #[(a) "\211\242\301=\262\203 \302\303\"\207\211:?\206 \211@\304>\262\203! \207\211:?\206, \211@\305>\262\2037 \306\307!!\207\303D\207" [a vec math-map-vec calcFunc-rect (frac float) (frac float cplx polar) math-normalize math-complex] 3])
(defalias 'calcFunc-conj #[(a) "\304\211\n\211:?\206 \211@\305>\262\203 \n\202\366 \n@\306=\203, \306\nA@\307\310\n8!E\202\366 \n@\311=\203@ \311\nA@\307\310\n8!E\202\366 \n@\312=\203N \313\314\n\"\202\366 \n@\314=\203[ \nA@\202\366 \315\n!\203e \n\202\366 \n\316\232\203v \317 \203v \307\n!\202\366 \n@\320>\203\310 \314\nA@!\314\310\n8! \242\314=\203\227 \242\314=\204\310 \n@\321=\203\245 \322 \"\202\366 \n@\323=\203\263 \324 \"\202\366 \n@\325=\203\301 \326 \"\202\366 \327 \"\202\366 \n@\330=\203\331 \307\314\nA@!!\202\366 \331\n!\211\205\352 \326\314\332\n \"! \")\206\366 \333\334\n\"\210\314\nD*\207" [bb aa a inf nil (frac float) cplx math-neg 2 polar vec math-map-vec calcFunc-conj math-known-realp (var i var-i) math-imaginary-i (+ - * /) + math-add - math-sub * math-mul math-div neg math-infinitep math-infinite-dir calc-record-why numberp] 6])
(defalias 'calcFunc-arg #[(a) "\211:?\206 \211@\302>\262\203 \303!\203 \304\305!\207\306\207\242\307=\203, \310\3118A@\"\207\242\312=\2037 \3118\207@\313=\203C \314\315\"\207\316\232\203R \317 \203R \320\321!\207\322\232\203c \317 \203c \323\320\321!!\207\324!\211\325>\203q \306\202z \326=\205z \304\305!)\206\240 \327!\203\230 \330\232\204\220 \331\232\203\222 \332\207\315\333!!\207\334\335\"\210\315D\207" [a signs (frac float hms) math-negp math-half-circle nil 0 cplx calcFunc-arctan2 2 polar vec math-map-vec calcFunc-arg (var i var-i) math-imaginary-i math-quarter-circle t (neg (var i var-i)) math-neg math-possible-signs (2 4 6) 1 math-infinitep (var uinf var-uinf) (var nan var-nan) (var nan var-nan) math-infinite-dir calc-record-why numvecp] 4])
(defalias 'math-imaginary-i #[nil "\301\302!\211\242\303=\206. \304\232\206. \242\305=\205. A@\306=\205. \3078\310\311!\312\"\313U\266\202)\207" [val calc-var-value var-i special-const (cplx 0 1) polar 1 2 math-quarter-circle nil math-compare 0] 6])
(defalias 'calcFunc-re #[(a) "\303\211\n\211:?\206 \211@\304>\262\203 \n\202\366 \n@\305>\203% \nA@\202\366 \n@\306=\2039 \307\nA@\310\311\n8!\"\202\366 \n@\312=\203G \313\314\n\"\202\366 \315\n!\203Q \n\202\366 \n@\316=\203` \314\nA@!\202\366 \n\317\232\203o \320 \203o \321\202\366 \n@\322>\203\301 \314\nA@!\314\311\n8! \242\314=\203\220 \242\314=\204\301 \n@\323=\203\236 \324 \"\202\366 \n@\325=\203\254 \326 \"\202\366 \326\307 \"\307\327\nA@!\327\311\n8!\"\"\202\366 \n@\330=\203\335 \315\311\n8!\203\335 \331\314\nA@!\311\n8\"\202\366 \n@\332=\203\356 \333\314\nA@!!\202\366 \334\335\n\"\210\314\nD*\207" [bb aa a nil (frac float) (mod cplx) polar math-mul calcFunc-cos 2 vec math-map-vec calcFunc-re math-known-realp calcFunc-conj (var i var-i) math-imaginary-i 0 (+ - *) + math-add - math-sub calcFunc-im / math-div neg math-neg calc-record-why numberp] 7])
(defalias 'calcFunc-im #[(a) "\303\211\n\211:?\206 \211@\304>\262\203\" \305\n!\203 \306\202\307\202\n@\310=\203/ \311\n8\202\n@\312=\203C \313\nA@\314\311\n8!\"\202\n@\315=\203Q \316\317\n\"\202\320\n!\203[ \307\202\n@\321=\203l \322\317\nA@!!\202\n\323\232\203{ \324 \203{ \325\202\n@\326>\203\315 \317\nA@!\317\311\n8! \242\317=\203\234 \242\317=\204\315 \n@\327=\203\252 \330 \"\202\n@\331=\203\270 \332 \"\202\330\313\333\nA@!\"\313 \333\311\n8!\"\"\202\n@\334=\203\351 \320\311\n8!\203\351 \335\317\nA@!\311\n8\"\202\n@\336=\203\372 \322\317\nA@!!\202\337\340\n\"\210\317\nD*\207" [bb aa a nil (frac float) math-floatp (float 0 0) 0 cplx 2 polar math-mul calcFunc-sin vec math-map-vec calcFunc-im math-known-realp calcFunc-conj math-neg (var i var-i) math-imaginary-i 1 (+ - *) + math-add - math-sub calcFunc-re / math-div neg calc-record-why numberp] 7])
(provide 'calc-cplx)
Zerion Mini Shell 1.0