;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@12 

(fn ARG)
(defalias 'calc-argument #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op "arg" calcFunc-arg] 4]] 5 (#$ . 156) "P"])
#@12 

(fn ARG)
(defalias 'calc-re #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op "re" calcFunc-re] 4]] 5 (#$ . 340) "P"])
#@12 

(fn ARG)
(defalias 'calc-im #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300#\207" [V0 calc-unary-op "im" calcFunc-im] 4]] 5 (#$ . 516) "P"])
(defalias 'calc-polar #[0 "\300\301`\"\207" [calc-do #[0 "\300\301!\302 \204\211\242\303=\203\304\301\305\306D#\207\304\301\307\310D#\207" [calc-top-n 1 calc-is-inverse polar calc-enter-result "p-r" calcFunc-rect "r-p" calcFunc-polar] 6]] 3 nil nil])
(defalias 'calc-complex-notation #[0 "\300\301!\207" [calc-do #[0 "\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 #[0 "\300\301!\207" [calc-do #[0 "\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 #[0 "\300\301!\207" [calc-do #[0 "\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])
#@10 

(fn N)
(defalias 'calc-polar-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\300\203\f\302\300!\303V\202	\304=\203\305\301\306\"\210\307\310!\207\305\301\304\"\210\307\311!\207" [V0 calc-complex-mode prefix-numeric-value 0 cplx calc-change-mode polar message "Preferred complex form is polar" "Preferred complex form is rectangular"] 3]] 5 (#$ . 1582) "P"])
#@10 

(fn A)
(defalias 'math-normalize-polar #[257 "\301
A@!\301\3028!\303!\203\304\207\303
!\203
\207\305=\2040\211\306\232\204,\211\307=\2030\310!\207\311!\203?\310\312\310!E!\207\312E\207" [calc-angle-mode math-normalize 2 math-zerop (polar 0 0) rad (float 18 1) 180 math-neg math-negp polar] 7 (#$ . 1967)])
#@10 

(fn A)
(defalias 'math-complex #[257 "\211\242\300=\203\207\211\242\301=\2033\302
A@!\203\211A@\207\303\3048!\300\305A@A@\"\305A@\3048\"E\207\300
\306E\207" [cplx polar math-zerop calcFunc-sincos 2 math-mul 0] 8 (#$ . 2298)])
#@10 

(fn A)
(defalias 'math-polar #[257 "\211\242\300=\203\207\301
!\203\302\207\300\303!\304!E\207" [polar math-zerop (polar 0 0) math-abs calcFunc-arg] 5 (#$ . 2542)])
#@10 

(fn A)
(defalias 'math-imaginary #[257 "\211\211:?\206\211@\302>\262
\204\303
!\203<\204<\304
\211\242\305=\2040\242\306=\2049	\305=\2039\305\307\310\311!E\202:\312\"\207\304
\313\"\207" [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)] 7 (#$ . 2721)])
#@12 

(fn A B)
(defalias 'math-want-polar #[514 "
\242\301=\203\211\242\302=\203\301=\207\303\207
\242\302=\203&\211\242\301=\205;\301=\207\211\242\301=\203/\303\207\211\242\302=\2038\304\207\301=\207" [calc-complex-mode polar cplx t nil] 4 (#$ . 3120)])
#@24 

(fn A &optional DIR)
(defalias 'math-fix-circular #[513 "
\242\301=\203C\302A@\303\"\304U\266\202\203$\211\305=\204$\306\307\310\"\304\"\207\311A@\303\"\304U\266\202\2049\211\304=\203;
\207\306\307\312\"\305\"\207\313=\203\207\314 \303\"\304U\266\202\203f\211\305=\204f\306\315\316 \"\304\"\207\317\314 !\303\"\304U\266\202\204|\211\304=\203~
\207\306\307\316 \"\305\"\207\320\303\"\304U\266\202\203\242\211\305=\204\242\306\307\321\"\304\"\207\322\303\"\304U\266\202\204\265\211\304=\203\267
\207\306\307\323\"\305\"\207" [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)] 7 (#$ . 3388)])
#@10 

(fn A)
(defalias 'calcFunc-polar #[257 "\211\211\242\300=\262
\203\301\302\"\207\211\211:?\206\211@\303>\262
\203 \207\211\211:?\206+\211@\304>\262
\2036\305\306!!\207\302
D\207" [vec math-map-vec calcFunc-polar (frac float) (frac float cplx polar) math-normalize math-polar] 4 (#$ . 4173)])
#@10 

(fn A)
(defalias 'calcFunc-rect #[257 "\211\211\242\300=\262
\203\301\302\"\207\211\211:?\206\211@\303>\262
\203 \207\211\211:?\206+\211@\304>\262
\2036\305\306!!\207\302
D\207" [vec math-map-vec calcFunc-rect (frac float) (frac float cplx polar) math-normalize math-complex] 4 (#$ . 4482)])
#@10 

(fn A)
(defalias 'calcFunc-conj #[257 "\300\211\211:?\206
\211@\301>\262
\203\207@\302=\203'\302A@\303\3048!E\207@\305=\203:\305A@\303\3048!E\207@\306=\203F\307\310\"\207@\310=\203QA@\207\311!\203Y\207\312\232\203h\313 \203h\303!\207@\314>\203\264\310A@!\262\310\3048!\262

\242\310=\203\213\211\242\310=\204\264@\315=\203\227\316\"\207@\317=\203\243\320\"\207@\321=\203\257\322\"\207\323\"\207@\324=\203\303\303\310A@!!\207\325!\211\205\324\322\310\326\"!\"\262
\206\341\327\330\"\210\310D\207" [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] 9 (#$ . 4791)])
#@10 

(fn A)
(defalias 'calcFunc-arg #[257 "\211\211:?\206\211@\300>\262
\203\301
!\203\302\303!\207\304\207\211\242\305=\203,\306\3078A@\"\207\211\242\310=\2037\307
8\207\211@\311=\203C\312\313\"\207\211\314\232\203R\315 \203R\316\317!\207\211\320\232\203c\315 \203c\321\316\317!!\207\322
!\211\323>\203p\304\202y\211\324=\205y\302\303!\262
\206\240\325
!\203\230\211\326\232\204\220\211\327\232\203\222\330\207\313\331!!\207\332\333\"\210\313
D\207" [(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 (#$ . 5605)])
(defalias 'math-imaginary-i #[0 "\300\301!\211\242\302=\206-\211\303\232\206-\211\242\304=\205-\211A@\305=\205-\306
8\307\310!\311\"\312U\266\202\207" [calc-var-value var-i special-const (cplx 0 1) polar 1 2 math-quarter-circle nil math-compare 0] 6])
#@10 

(fn A)
(defalias 'calcFunc-re #[257 "\300\211\211:?\206
\211@\301>\262
\203\207@\302>\203A@\207@\303=\2032\304A@\305\3068!\"\207@\307=\203>\310\311\"\207\312!\203F\207@\313=\203S\311A@!\207\314\232\203`\315 \203`\316\207@\317>\203\260\311A@!\262\311\3068!\262

\242\311=\203\203\211\242\311=\204\260@\320=\203\217\321\"\207@\322=\203\233\323\"\207\323\304\"\304\324A@!\324\3068!\"\"\207@\325=\203\312\312\3068!\203\312\326\311A@!\3068\"\207@\327=\203\331\330\311A@!!\207\331\332\"\210\311D\207" [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] 10 (#$ . 6695)])
#@10 

(fn A)
(defalias 'calcFunc-im #[257 "\300\211\211:?\206
\211@\301>\262
\203\302!\203\303\207\304\207@\305=\203'\3068\207@\307=\203:\310A@\311\3068!\"\207@\312=\203F\313\314\"\207\315!\203N\304\207@\316=\203]\317\314A@!!\207\320\232\203j\321 \203j\322\207@\323>\203\271\314A@!\262\314\3068!\262

\242\314=\203\215\211\242\314=\204\271@\324=\203\231\325\"\207@\326=\203\245\327\"\207\325\310\330A@!\"\310\330\3068!\"\"\207@\331=\203\323\315\3068!\203\323\332\314A@!\3068\"\207@\333=\203\342\317\314A@!!\207\334\335\"\210\314D\207" [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] 10 (#$ . 7516)])
(provide 'calc-cplx)