| Current Path : /usr/share/emacs/24.3/lisp/calc/ |
Linux gator3171.hostgator.com 4.19.286-203.ELK.el7.x86_64 #1 SMP Wed Jun 14 04:33:55 CDT 2023 x86_64 |
| Current File : //usr/share/emacs/24.3/lisp/calc/calc-cplx.elc |
;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:42 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-cplx.el
;;; in Emacs version 24.3.1
;;; 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\f @\303>)\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 (bigpos bigneg 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])
(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\304=\203E \305A@\306 \"\307U*\203% \n\310=\204% \311\312\313\"\307\"\207\314A@\306 \"\307U*\204; \n\307=\203= \207\311\312\315\"\310\"\207 \316=\203\213 \317 \306 \"\307U*\203i \n\310=\204i \311\320\321 \"\307\"\207\322\317 !\306 \"\307U*\204\200 \n\307=\203\202 \207\311\312\321 \"\310\"\207\323\306 \"\307U*\203\247 \n\310=\204\247 \311\312\324\"\307\"\207\325\306 \"\307U*\204\273 \n\307=\203\275 \207\311\312\326\"\310\"\207" [a b 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)] 4])
(defalias 'calcFunc-polar #[(a) "\211:\205 @\301=)\203 \302\303\"\207\211:?\206 @\304>)\203& \207\211:?\2062 @\305>)\203< \306\307!!\207\303D\207" [a vec math-map-vec calcFunc-polar (bigpos bigneg frac float) (bigpos bigneg frac float cplx polar) math-normalize math-polar] 4])
(defalias 'calcFunc-rect #[(a) "\211:\205 @\301=)\203 \302\303\"\207\211:?\206 @\304>)\203& \207\211:?\2062 @\305>)\203< \306\307!!\207\303D\207" [a vec math-map-vec calcFunc-rect (bigpos bigneg frac float) (bigpos bigneg frac float cplx polar) math-normalize math-complex] 4])
(defalias 'calcFunc-conj #[(a) "\304\211\n\211:?\206 \n@\305>)\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 (bigpos bigneg 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\f @\302>)\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 (bigpos bigneg 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 "\303\304!\211\242\305=\206/ \306\232\206/ \242\307=\205/ A@\310=\205/ A@\311\312!\313\n \"\310U*)\207" [val b a calc-var-value var-i special-const (cplx 0 1) polar 0 math-quarter-circle nil math-compare] 4])
(defalias 'calcFunc-re #[(a) "\303\211\n\211:?\206 \n@\304>)\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 (bigpos bigneg 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] 8])
(defalias 'calcFunc-im #[(a) "\303\211\n\211:?\206 \n@\304>)\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 (bigpos bigneg 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] 8])
(provide 'calc-cplx)