Gecko [ fernandoquevedodop.com ]

Name	Size	Permission
calc-aent.elc	26.22 KB	-rw-r--r--
calc-alg.elc	50.83 KB	-rw-r--r--
calc-arith.elc	79.87 KB	-rw-r--r--
calc-bin.elc	17.6 KB	-rw-r--r--
calc-comb.elc	28.6 KB	-rw-r--r--
calc-cplx.elc	8.25 KB	-rw-r--r--
calc-embed.elc	29.39 KB	-rw-r--r--
calc-ext.elc	109.63 KB	-rw-r--r--
calc-fin.elc	12.05 KB	-rw-r--r--
calc-forms.elc	56.09 KB	-rw-r--r--
calc-frac.elc	5.87 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.06 KB	-rw-r--r--
calc-help.elc	20.06 KB	-rw-r--r--
calc-incom.elc	5.16 KB	-rw-r--r--
calc-keypd.elc	15.54 KB	-rw-r--r--
calc-lang.elc	58.62 KB	-rw-r--r--
calc-loaddefs.el	9.2 KB	-rw-r--r--
calc-macs.elc	6.13 KB	-rw-r--r--
calc-map.elc	28.65 KB	-rw-r--r--
calc-math.elc	58.13 KB	-rw-r--r--
calc-menu.elc	38.72 KB	-rw-r--r--
calc-misc.elc	20.67 KB	-rw-r--r--
calc-mode.elc	20.14 KB	-rw-r--r--
calc-mtx.elc	6.76 KB	-rw-r--r--
calc-nlfit.elc	13.45 KB	-rw-r--r--
calc-poly.elc	26.06 KB	-rw-r--r--
calc-prog.elc	51.18 KB	-rw-r--r--
calc-rewr.elc	39.08 KB	-rw-r--r--
calc-rules.elc	17.4 KB	-rw-r--r--
calc-sel.elc	19.6 KB	-rw-r--r--
calc-stat.elc	14.04 KB	-rw-r--r--
calc-store.elc	16.77 KB	-rw-r--r--
calc-stuff.elc	7.42 KB	-rw-r--r--
calc-trail.elc	4.69 KB	-rw-r--r--
calc-undo.elc	3.14 KB	-rw-r--r--
calc-units.elc	56.14 KB	-rw-r--r--
calc-vec.elc	37.91 KB	-rw-r--r--
calc-yank.elc	19.01 KB	-rw-r--r--
calc.elc	102.71 KB	-rw-r--r--
calcalg2.elc	78.71 KB	-rw-r--r--
calcalg3.elc	41.41 KB	-rw-r--r--
calccomp.elc	34.46 KB	-rw-r--r--
calcsel2.elc	5.84 KB	-rw-r--r--

Code Editor : calc-cplx.elc

;ELC���
;;; Compiled
;;; in Emacs version 27.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�\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)

${this.title}

Code Editor : calc-cplx.elc