Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	7.89 KB	-rw-r--r--
README.prev	31.02 KB	-rw-r--r--
calc-aent.elc	26.85 KB	-rw-r--r--
calc-alg.elc	46.35 KB	-rw-r--r--
calc-arith.elc	81.62 KB	-rw-r--r--
calc-bin.elc	21.53 KB	-rw-r--r--
calc-comb.elc	30.12 KB	-rw-r--r--
calc-cplx.elc	8.5 KB	-rw-r--r--
calc-embed.elc	29.83 KB	-rw-r--r--
calc-ext.elc	108.83 KB	-rw-r--r--
calc-fin.elc	11.84 KB	-rw-r--r--
calc-forms.elc	48.05 KB	-rw-r--r--
calc-frac.elc	5.58 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.09 KB	-rw-r--r--
calc-help.elc	19.55 KB	-rw-r--r--
calc-incom.elc	5.29 KB	-rw-r--r--
calc-keypd.elc	15.83 KB	-rw-r--r--
calc-lang.elc	57.72 KB	-rw-r--r--
calc-loaddefs.el	10.61 KB	-rw-r--r--
calc-macs.elc	6.09 KB	-rw-r--r--
calc-map.elc	29.56 KB	-rw-r--r--
calc-math.elc	60.12 KB	-rw-r--r--
calc-menu.elc	32.85 KB	-rw-r--r--
calc-misc.elc	20.54 KB	-rw-r--r--
calc-mode.elc	19.45 KB	-rw-r--r--
calc-mtx.elc	6.77 KB	-rw-r--r--
calc-nlfit.elc	13.59 KB	-rw-r--r--
calc-poly.elc	24.53 KB	-rw-r--r--
calc-prog.elc	51.27 KB	-rw-r--r--
calc-rewr.elc	40.01 KB	-rw-r--r--
calc-rules.elc	17.6 KB	-rw-r--r--
calc-sel.elc	19.83 KB	-rw-r--r--
calc-stat.elc	13.97 KB	-rw-r--r--
calc-store.elc	17.31 KB	-rw-r--r--
calc-stuff.elc	8.07 KB	-rw-r--r--
calc-trail.elc	4.67 KB	-rw-r--r--
calc-undo.elc	3.35 KB	-rw-r--r--
calc-units.elc	37.86 KB	-rw-r--r--
calc-vec.elc	37.25 KB	-rw-r--r--
calc-yank.elc	16.66 KB	-rw-r--r--
calc.elc	101.08 KB	-rw-r--r--
calcalg2.elc	80.01 KB	-rw-r--r--
calcalg3.elc	42.38 KB	-rw-r--r--
calccomp.elc	32.86 KB	-rw-r--r--
calcsel2.elc	6.04 KB	-rw-r--r--

Code Editor : calc-cplx.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:35 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-cplx.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-cplx.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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)

${this.title}

Code Editor : calc-cplx.elc