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-fin.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-fin.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-fin.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-fin-pv #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203�\301\302\303\304\305\302!B#\207\306 \203�\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "pvl" calcFunc-pvl calc-top-list-n calc-is-inverse "pvb" calcFunc-pvb "pv" calcFunc-pv] 6]] 3 nil nil])
(defalias 'calc-fin-npv #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203\f�\302\303\304T#\207\302\305\306T#\207" [arg calc-is-inverse calc-vector-op "npvb" calcFunc-npvb "npv" calcFunc-npv] 4]] 3 nil "p"])
(defalias 'calc-fin-fv #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203�\301\302\303\304\305\302!B#\207\306 \203�\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-inverse "fvb" calcFunc-fvb "fv" calcFunc-fv] 6]] 3 nil nil])
(defalias 'calc-fin-pmt #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203�\301\302\303\304\305\302!B#\207\306 \203�\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-inverse "pmtb" calcFunc-pmtb "pmt" calcFunc-pmt] 6]] 3 nil nil])
(defalias 'calc-fin-nper #[nil "\300\301`\"\207" [calc-do #[nil "\300 \203�\301\302\303\304\305\302!B#\207\306 \203�\301\302\307\310\305\302!B#\207\301\302\311\312\305\302!B#\207" [calc-is-hyperbolic calc-enter-result 3 "nprl" calcFunc-nperl calc-top-list-n calc-is-inverse "nprb" calcFunc-nperb "nper" calcFunc-nper] 6]] 3 nil nil])
(defalias 'calc-fin-rate #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302 \203�\303\202�\304 \203�\305\202�\306\307\310\302 \203 �\311\202*�\302 \203)�\312\202*�\313\314\301!B!!#\207" [calc-pop-push-record 3 calc-is-hyperbolic "ratl" calc-is-inverse "ratb" "rate" calc-to-percentage calc-normalize calcFunc-ratel calcFunc-rateb calcFunc-rate calc-top-list-n] 8]] 3 nil nil])
(defalias 'calc-fin-irr #[(arg) "\300\301`\"\207" [calc-do #[nil "\301 \203�\302\303\304#\207\302\305\306#\207" [arg calc-is-inverse calc-vector-op "irrb" calcFunc-irrb "irr" calcFunc-irr] 4]] 3 nil "P"])
(defalias 'calc-fin-sln #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 3 "sln" calcFunc-sln calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-fin-syd #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 4 "syd" calcFunc-syd calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-fin-ddb #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!B#\207" [calc-enter-result 4 "ddb" calcFunc-ddb calc-top-list-n] 6]] 3 nil nil])
(defalias 'calc-to-percentage #[(x) "\211:?\206\f�	@\302>)\203<�\303\304\"\211\211:?\2060�	@\305>\2060�	@\306=\2050�\307	8\310Y)\2038�\311!\312D\207\211:\205G�	@\313=)\203S�\313\314\315A\"B\207\207" [x a (bigpos bigneg frac float cplx polar hms date sdev intv mod) math-mul 100 (bigpos bigneg) float 2 0 math-trunc calcFunc-percent vec mapcar calc-to-percentage] 5])
(defalias 'calc-convert-percent #[nil "\300\301`\"\207" [calc-do #[nil "\300\301\302\303\304\301!!#\207" [calc-pop-push-record 1 "c%" calc-to-percentage calc-top-n] 6]] 3 nil nil])
(defalias 'calc-percent-change #[nil "\300\301`\"\207" [calc-do #[nil "\301\302\303\304!B!\305\304\306\307!#)\207" [res calc-normalize calcFunc-relch calc-top-list 2 calc-pop-push-record "%ch" calc-to-percentage] 5]] 3 nil nil])
(defalias 'calcFunc-pv #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\316\313\315\313\"\"\"\"\315
\206&�\317\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 10])
(put 'calcFunc-pv 'math-expandable t)
(defalias 'calcFunc-pvl #[(rate num amount) "\303	\304\n$\207" [rate num amount calcFunc-pv 0] 5])
(put 'calcFunc-pvl 'math-expandable t)
(defalias 'calcFunc-pvb #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\314\316\313\315\313\"\"\312\313\"\"\"\"\315
\206,�\317\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 11])
(put 'calcFunc-pvb 'math-expandable t)
(defalias 'calcFunc-npv #[(rate &rest flows) "\306\307\"\210\310	\311\\\312\n!\313\307\"\211\314A\211\2032�\313\315@
\"\"\316
\f\"\202�-!\207" [rate calc-internal-prec flows flat pp p math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul accum] 7])
(put 'calcFunc-npv 'math-expandable t)
(defalias 'calcFunc-npvb #[(rate &rest flows) "\306\307\"\210\310	\311\\\312\n!\313\307\"\307\314A\211\2032�\313\315@
\"\"\316
\f\"\202�-!\207" [rate calc-internal-prec flows flat pp p math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul accum] 6])
(put 'calcFunc-npvb 'math-expandable t)
(defalias 'calcFunc-fv #[(rate num amount &optional initial) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\316\313\"\"\"\314
\206#�\317\"\"*!\207" [rate num calc-internal-prec p amount initial math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 8])
(put 'calcFunc-fv 'math-expandable t)
(defalias 'calcFunc-fvl #[(rate num amount) "\303	\304\n$\207" [rate num amount calcFunc-fv 0] 5])
(put 'calcFunc-fvl 'math-expandable t)
(defalias 'calcFunc-fvb #[(rate num amount &optional initial) "\306	\"\210\307\n\310\\\311\312\313\"	\"\312\314\f\315\314\316\313\"\312\313\"\"\"\"\314
\206)�\317\"\"*!\207" [rate num calc-internal-prec p amount initial math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 10])
(put 'calcFunc-fvb 'math-expandable t)
(defalias 'calcFunc-pmt #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\314\315\316\f\314
\206�\317\"\"\"\316\313\314\313\"\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-div math-mul math-sub 0] 8])
(put 'calcFunc-pmt 'math-expandable t)
(defalias 'calcFunc-pmtb #[(rate num amount &optional lump) "\306	\"\210\307\n\310\\\311\312\313\"	\"\314\315\316\f\314
\206�\317\"\"\"\315\316\313\314\313\"\"\312\313\"\"\"*!\207" [rate num calc-internal-prec p amount lump math-check-financial math-normalize 2 math-pow math-add 1 math-div math-mul math-sub 0] 9])
(put 'calcFunc-pmtb 'math-expandable t)
(defalias 'calcFunc-nper #[(rate pmt amount &optional lump) "\304	\n\305%\207" [rate pmt amount lump math-compute-nper nil] 6])
(put 'calcFunc-nper 'math-expandable t)
(defalias 'calcFunc-nperb #[(rate pmt amount &optional lump) "\304	\n\305%\207" [rate pmt amount lump math-compute-nper b] 6])
(put 'calcFunc-nperb 'math-expandable t)
(defalias 'calcFunc-nperl #[(rate pmt amount) "\303	\n\304\305%\207" [rate pmt amount math-compute-nper nil l] 6])
(put 'calcFunc-nperl 'math-expandable t)
(defalias 'math-compute-nper #[(rate pmt amount lump bflag) "\203\f�\306!\203\f�\307\203�\306	!\203�\307\310\311\f!\204/�
\203*�\203/�\312\f\313\"\210\306\f!\203:�\312\f\314\"\210\311	!\204M�
\203H�\203M�\312	\313\"\210\311\n!\204`�
\203[�\203`�\312\n\313\"\210\203\232�\311!\204o�\312\313\"\210\315\316\203y�\317\202z�\320\f\321	\257\nE\322\323\324$!\325!!\203\226�!A@\202\230�!)\207\326\"\327\\\"\310=\203\256�\330\n	\"\202\306�\331\332\330\333\n\f\"\203\303�\333	\334\332\f\"\"\202\304�	\"\"#\335#!\204\323�
\203\340�\336\337#\334\332\f\"\"!\202\344�\312	\340\"*!\207" [lump pmt amount bflag rate math-expand-formulas math-zerop nil l math-objectp math-reject-arg numberp nonzerop math-find-root calcFunc-eq calcFunc-pvb calcFunc-pv (var DUMMY var-DUMMY) (var DUMMY var-DUMMY) (intv 3 0 100) t math-vectorp math-normalize 2 math-div math-sub 1 math-mul math-add math-posp math-neg calcFunc-log "*Payment too small to cover interest rate" root calc-internal-prec temp] 10])
(defalias 'calcFunc-rate #[(num pmt amount &optional lump) "\304	\n\305%\207" [num pmt amount lump math-compute-rate calcFunc-pv] 6])
(defalias 'calcFunc-rateb #[(num pmt amount &optional lump) "\304	\n\305%\207" [num pmt amount lump math-compute-rate calcFunc-pvb] 6])
(defalias 'math-compute-rate #[(num pmt amount lump func) "\306!\204�\307\310\"\210\306	!\204�\307	\310\"\210\306\n!\204!�\307\n\310\"\210\2030�\306!\2040�\307\310\"\210\311\312\f\313	\206;�\314\257\nE\315\316\317$\320
!\203P�
A@\202Q�
)\207" [num pmt amount lump func root math-objectp math-reject-arg numberp math-find-root calcFunc-eq (var DUMMY var-DUMMY) 0 (var DUMMY var-DUMMY) (intv 3 (float 1 -4) 1) t math-vectorp] 7])
(defalias 'calcFunc-ratel #[(num pmt amount) "\305!\204�	\204�\306\307\"\210\305\n!\204�	\204�\306\n\307\"\210\305!\204-�	\204-�\306\307\"\210\310\f\311\\\312\313\314\n\"\314\315\"\"\315\")!\207" [num math-expand-formulas pmt amount calc-internal-prec math-objectp math-reject-arg numberp math-normalize 2 math-sub math-pow math-div 1] 7])
(defalias 'calcFunc-irr #[(&rest vecs) "\301\302\"\207" [vecs math-compute-irr calcFunc-npv] 3])
(defalias 'calcFunc-irrb #[(&rest vecs) "\301\302\"\207" [vecs math-compute-irr calcFunc-npvb] 3])
(defalias 'math-compute-irr #[(vecs func) "\304!\305\n\306	E\307\310\311$\312!\203�A@\202�*\207" [vecs flat func root math-flatten-many-vecs math-find-root (var DUMMY var-DUMMY) (var DUMMY var-DUMMY) (intv 3 (float 1 -4) 1) t math-vectorp] 5])
(defalias 'math-check-financial #[(rate num) "\303!\204�	\204�\304\305\"\210\306!\203�\304\307\"\210\303\n!\206(�	\206(�\304\n\305\"\207" [rate math-expand-formulas num math-objectp math-reject-arg numberp math-zerop nonzerop] 3])
(defalias 'calcFunc-sln #[(cost salvage life &optional period) "\306!\204�	\204�\307\310\"\210\306\n!\204�	\204�\307\n\310\"\210\306!\204-�	\204-�\307\310\"\210\311!\2038�\307\312\"\210\f\203b�\313\f!\203Y�\f\314
\"\315U*\204`�\316\f!?\202]�\307\f\317\"\203b�\320\207\321\322\n\"\"\207" [cost math-expand-formulas salvage life period b math-realp math-reject-arg realp math-zerop nonzerop math-num-integerp math-compare -1 math-posp integerp 0 math-div math-sub a] 4])
(put 'calcFunc-sln 'math-expandable t)
(defalias 'calcFunc-syd #[(cost salvage life period) "\306!\204�	\204�\307\310\"\210\306\n!\204�	\204�\307\n\310\"\210\306!\204-�	\204-�\307\310\"\210\311!\2038�\307\312\"\210\306\f!\204G�	\204G�\307\f\310\"\210\f\313
\"\314U*\204]�\315\f!\204_�\316\207\317\320\321\n\"\322\321\f\"\323\"\"\317\320\322\323\"\"\324\"\"\207" [cost math-expand-formulas salvage life period b math-realp math-reject-arg realp math-zerop nonzerop math-compare -1 math-posp 0 math-div math-mul math-sub math-add 1 2 a] 8])
(put 'calcFunc-syd 'math-expandable t)
(defalias 'calcFunc-ddb #[(cost salvage life period) "\306!\203\n�\307!\250\204�\310\311\"\210\312	!\204�\310	\313\"\210\312\n!\204*�\310\n\313\"\210\312!\2045�\310\313\"\210\314!\203@�\310\315\"\210\316
\f\"\317U*\204T�\320X\203V�\320\207	\320S\211\320Y\203\226�\321\322\323\"\"\324\"\211\n\316
\f\"\317U*\203\\�\325\324\n\"\"\n\202\\�*\207" [period cost salvage life b a math-messy-integerp math-trunc math-reject-arg fixnump math-realp realp math-zerop nonzerop math-compare -1 0 math-div math-mul 2 math-sub math-add res book] 6])
(provide 'calc-fin)

${this.title}

Code Editor : calc-fin.elc