| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/calc/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
(defalias 'calc-fin-pv #[0 "\300\301`\"\207" [calc-do #[0 "\300 \203 \301\302\303\304\305\302!B#\207\306 \203 \307\202 \302\310 \203( \301\311\312\305!B#\207\301\313\314\305!B#\207" [calc-is-hyperbolic calc-enter-result 3 "pvl" calcFunc-pvl calc-top-list-n calc-is-option 4 calc-is-inverse "pvb" calcFunc-pvb "pv" calcFunc-pv] 7]] 3 nil nil])
#@12
(fn ARG)
(defalias 'calc-fin-npv #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203\f \302\303\304\300T#\207\302\305\306\300T#\207" [V0 calc-is-inverse calc-vector-op "npvb" calcFunc-npvb "npv" calcFunc-npv] 4]] 5 (#$ . 506) "p"])
(defalias 'calc-fin-fv #[0 "\300\301`\"\207" [calc-do #[0 "\300 \203 \301\302\303\304\305\302!B#\207\306 \203 \307\202 \302\310 \203( \301\311\312\305!B#\207\301\313\314\305!B#\207" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-option 4 calc-is-inverse "fvb" calcFunc-fvb "fv" calcFunc-fv] 7]] 3 nil nil])
(defalias 'calc-fin-pmt #[0 "\300\301`\"\207" [calc-do #[0 "\300 \203 \301\302\303\304\305\302!B#\207\306 \203 \307\202 \302\310 \203( \301\311\312\305!B#\207\301\313\314\305!B#\207" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-option 4 calc-is-inverse "pmtb" calcFunc-pmtb "pmt" calcFunc-pmt] 7]] 3 nil nil])
(defalias 'calc-fin-nper #[0 "\300\301`\"\207" [calc-do #[0 "\300 \203 \301\302\303\304\305\302!B#\207\306 \203 \307\202 \302\310 \203( \301\311\312\305!B#\207\301\313\314\305!B#\207" [calc-is-hyperbolic calc-enter-result 3 "nprl" calcFunc-nperl calc-top-list-n calc-is-option 4 calc-is-inverse "nprb" calcFunc-nperb "nper" calcFunc-nper] 7]] 3 nil nil])
(defalias 'calc-fin-rate #[0 "\300\301`\"\207" [calc-do #[0 "\300 \204 \301 \203 \302\202 \303\304\300 \203 \305\202$ \306 \203# \307\202$ \310\311\312\300 \203/ \313\2029 \300 \2038 \314\2029 \315\316!B!!#\207" [calc-is-hyperbolic calc-is-option 4 3 calc-pop-push-record "ratl" calc-is-inverse "ratb" "rate" calc-to-percentage calc-normalize calcFunc-ratel calcFunc-rateb calcFunc-rate calc-top-list-n] 9]] 3 nil nil])
#@12
(fn ARG)
(defalias 'calc-fin-irr #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203 \302\303\304\300#\207\302\305\306\300#\207" [V0 calc-is-inverse calc-vector-op "irrb" calcFunc-irrb "irr" calcFunc-irr] 4]] 5 (#$ . 2256) "P"])
(defalias 'calc-fin-sln #[0 "\300\301`\"\207" [calc-do #[0 "\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 #[0 "\300\301`\"\207" [calc-do #[0 "\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 #[0 "\300\301`\"\207" [calc-do #[0 "\300\301\302\303\304\301!B#\207" [calc-enter-result 4 "ddb" calcFunc-ddb calc-top-list-n] 6]] 3 nil nil])
#@10
(fn X)
(defalias 'calc-to-percentage #[257 "\211\211:?\206 \211@\300>\262\203; \301\302\"\262\211\211\250\206- \211:\205- \211@\303=\205- \3048\305Y\262\2037 \306!\262\307D\207\211\211\242\310=\262\203M \310\311\312A\"B\207\207" [(frac float cplx polar hms date sdev intv mod) math-mul 100 float 2 0 math-trunc calcFunc-percent vec mapcar calc-to-percentage] 5 (#$ . 3008)])
(defalias 'calc-convert-percent #[0 "\300\301`\"\207" [calc-do #[0 "\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 #[0 "\300\301`\"\207" [calc-do #[0 "\300\301\302\303!B!\304\303\305\306!#\207" [calc-normalize calcFunc-relch calc-top-list 2 calc-pop-push-record "%ch" calc-to-percentage] 6]] 3 nil nil])
#@39
(fn RATE NUM AMOUNT &optional LUMP)
(defalias 'calcFunc-pv #[1027 "\301\"\210\302\303\\\304\305\306\"\"\305\307\310\311\306\310\306\"\"\n\"\"\310\206( \312\"\"\262)!\207" [calc-internal-prec math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 15 (#$ . 3800)])
(put 'calcFunc-pv 'math-expandable t)
#@24
(fn RATE NUM AMOUNT)
(defalias 'calcFunc-pvl #[771 "\300\301$\207" [calcFunc-pv 0] 8 (#$ . 4156)])
(put 'calcFunc-pvl 'math-expandable t)
#@39
(fn RATE NUM AMOUNT &optional LUMP)
(defalias 'calcFunc-pvb #[1027 "\301\"\210\302\303\\\304\305\306\"\"\305\307\310\307\311\306\310\306 \"\"\305\306
\"\"\n\"\"\310\206/ \312\"\"\262)!\207" [calc-internal-prec math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 16 (#$ . 4305)])
(put 'calcFunc-pvb 'math-expandable t)
#@25
(fn RATE &rest FLOWS)
(defalias 'calcFunc-npv #[385 "\301\302\"\210\303\304\\\305!\306\302\"\211\307A\211\262\203/ \306\310@\"\"\262\311\"\262\202 \266\203)!\207" [calc-internal-prec math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul] 12 (#$ . 4681)])
(put 'calcFunc-npv 'math-expandable t)
#@25
(fn RATE &rest FLOWS)
(defalias 'calcFunc-npvb #[385 "\301\302\"\210\303\304\\\305!\306\302\"\302\307A\211\262\203/ \306\310@\"\"\262\311\"\262\202 \266\203)!\207" [calc-internal-prec math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul] 12 (#$ . 5037)])
(put 'calcFunc-npvb 'math-expandable t)
#@42
(fn RATE NUM AMOUNT &optional INITIAL)
(defalias 'calcFunc-fv #[1027 "\301\"\210\302\303\\\304\305\306\"\"\305\307\310\311\306\"\n\"\"\307\206$ \312\"\"\262)!\207" [calc-internal-prec math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 13 (#$ . 5395)])
(put 'calcFunc-fv 'math-expandable t)
#@24
(fn RATE NUM AMOUNT)
(defalias 'calcFunc-fvl #[771 "\300\301$\207" [calcFunc-fv 0] 8 (#$ . 5743)])
(put 'calcFunc-fvl 'math-expandable t)
#@42
(fn RATE NUM AMOUNT &optional INITIAL)
(defalias 'calcFunc-fvb #[1027 "\301\"\210\302\303\\\304\305\306\"\"\305\307\310\307\311\306\"\305\306
\"\"\n\"\"\307\206, \312\"\"\262)!\207" [calc-internal-prec math-check-financial math-normalize 2 math-pow math-add 1 math-mul math-div math-sub 0] 15 (#$ . 5892)])
(put 'calcFunc-fvb 'math-expandable t)
#@39
(fn RATE NUM AMOUNT &optional LUMP)
(defalias 'calcFunc-pmt #[1027 "\301\"\210\302\303\\\304\305\306\"\"\307\310\311\307\206 \312\"\"\"\311\306\307\306\"\"\"\262)!\207" [calc-internal-prec math-check-financial math-normalize 2 math-pow math-add 1 math-div math-mul math-sub 0] 13 (#$ . 6261)])
(put 'calcFunc-pmt 'math-expandable t)
#@39
(fn RATE NUM AMOUNT &optional LUMP)
(defalias 'calcFunc-pmtb #[1027 "\301\"\210\302\303\\\304\305\306\"\"\307\310\311\307\206 \312\"\"\"\310\311\306\307\306\"\"\305\306 \"\"\"\262)!\207" [calc-internal-prec math-check-financial math-normalize 2 math-pow math-add 1 math-div math-mul math-sub 0] 14 (#$ . 6621)])
(put 'calcFunc-pmtb 'math-expandable t)
#@39
(fn RATE PMT AMOUNT &optional LUMP)
(defalias 'calcFunc-nper #[1027 "\300\301%\207" [math-compute-nper nil] 10 (#$ . 7001)])
(put 'calcFunc-nper 'math-expandable t)
#@39
(fn RATE PMT AMOUNT &optional LUMP)
(defalias 'calcFunc-nperb #[1027 "\300\301%\207" [math-compute-nper b] 10 (#$ . 7178)])
(put 'calcFunc-nperb 'math-expandable t)
#@24
(fn RATE PMT AMOUNT)
(defalias 'calcFunc-nperl #[771 "\300\301\302%\207" [math-compute-nper nil l] 9 (#$ . 7355)])
(put 'calcFunc-nperl 'math-expandable t)
#@35
(fn RATE PMT AMOUNT LUMP BFLAG)
(defalias 'math-compute-nper #[1285 "\203
\302!\203
\303\262\203 \302!\203 \262\303\262\304\262\305!\2043 \203. \2033 \306\307\"\210\302!\203> \306\310\"\210\305!\204Q \203L \203Q \306\307\"\210\305!\204d \203_ \203d \306\307\"\210\203\234 \305!\204s \306\307\"\210\311\312\203} \313\202~ \314\315\257E\316\317\320$\211\211\242\321=\262\203\233 \211A@\207\207\322 \323\\\304=\203\257 \324\"\202\314 \325\326\324\327\n\"\203\310 \327 \330\326
\"\"\202\312 \"\"\331!\204\326 \203\343 \332\333\330\326 \"\"!\202\350 \306\334\"\262)!\207" [math-expand-formulas calc-internal-prec 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 vec 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"] 15 (#$ . 7522)])
#@38
(fn NUM PMT AMOUNT &optional LUMP)
(defalias 'calcFunc-rate #[1027 "\300\301%\207" [math-compute-rate calcFunc-pv] 10 (#$ . 8527)])
#@38
(fn NUM PMT AMOUNT &optional LUMP)
(defalias 'calcFunc-rateb #[1027 "\300\301%\207" [math-compute-rate calcFunc-pvb] 10 (#$ . 8671)])
#@33
(fn NUM PMT AMOUNT LUMP FUNC)
(defalias 'math-compute-rate #[1285 "\300!\204 \301\302\"\210\300!\204 \301\302\"\210\300!\204! \301\302\"\210\2030 \300!\2040 \301\302\"\210\303\304\305\206> \306\257E\307\310\311$\211\211\242\312=\262\203T \211A@\207\207" [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 vec] 12 (#$ . 8817)])
#@23
(fn NUM PMT AMOUNT)
(defalias 'calcFunc-ratel #[771 "\302!\204 \204 \303\304\"\210\302!\204 \204 \303\304\"\210\302!\204- \204- \303\304\"\210\305 \306\\\307\310\311\"\311\312\"\"\312\")!\207" [math-expand-formulas calc-internal-prec math-objectp math-reject-arg numberp math-normalize 2 math-sub math-pow math-div 1] 10 (#$ . 9259)])
#@19
(fn &rest VECS)
(defalias 'calcFunc-irr #[128 "\300\301\"\207" [math-compute-irr calcFunc-npv] 4 (#$ . 9620)])
#@19
(fn &rest VECS)
(defalias 'calcFunc-irrb #[128 "\300\301\"\207" [math-compute-irr calcFunc-npvb] 4 (#$ . 9740)])
#@18
(fn VECS FUNC)
(defalias 'math-compute-irr #[514 "\300!\301\302E\303\304\305$\211\211\242\306=\262\203 \211A@\207\207" [math-flatten-many-vecs math-find-root (var DUMMY var-DUMMY) (var DUMMY var-DUMMY) (intv 3 (float 1 -4) 1) t vec] 8 (#$ . 9862)])
#@17
(fn RATE NUM)
(defalias 'math-check-financial #[514 "\301!\204 \204 \302\303\"\210\304!\203 \302\305\"\210\301!\206( \206( \302\303\"\207" [math-expand-formulas math-objectp math-reject-arg numberp math-zerop nonzerop] 5 (#$ . 10124)])
#@43
(fn COST SALVAGE LIFE &optional PERIOD)
(defalias 'calcFunc-sln #[1027 "\211:?\206 \211@\301>\262\204 \204 \302\303\"\210\211:?\206$ \211@\301>\262\2042 \2042 \302\303\"\210\211:?\206= \211@\301>\262\204K \204K \302\303\"\210\304!\203V \302\305\"\210\211\203} \306!\203t \307\"\310U\266\202\204{ \311!?\202x \302\312\"\203} \313\207\314\315\"\"\207" [math-expand-formulas (frac float) math-reject-arg realp math-zerop nonzerop math-num-integerp math-compare -1 math-posp integerp 0 math-div math-sub] 9 (#$ . 10379)])
(put 'calcFunc-sln 'math-expandable t)
#@33
(fn COST SALVAGE LIFE PERIOD)
(defalias 'calcFunc-syd #[1028 "\211:?\206 \211@\301>\262\204 \204 \302\303\"\210\211:?\206$ \211@\301>\262\2042 \2042 \302\303\"\210\211:?\206= \211@\301>\262\204K \204K \302\303\"\210\304!\203V \302\305\"\210\211\211:?\206a \211@\301>\262\204o \204o \302\303\"\210\306\"\307U\266\202\204\202 \310!\204\204 \311\207\312\313\314\"\315\314\"\316\"\"\312\313\315\316\"\"\317\"\"\207" [math-expand-formulas (frac float) math-reject-arg realp math-zerop nonzerop math-compare -1 math-posp 0 math-div math-mul math-sub math-add 1 2] 12 (#$ . 10971)])
(put 'calcFunc-syd 'math-expandable t)
#@33
(fn COST SALVAGE LIFE PERIOD)
(defalias 'calcFunc-ddb #[1028 "\300!\203 \301!\262\211\250\204 \302\303\"\210\211:?\206 \211@\304>\262\204* \302\305\"\210\211:?\2065 \211@\304>\262\204? \302\305\"\210\211:?\206J \211@\304>\262\204T \302\305\"\210\306!\203_ \302\307\"\210\310\"\311U\266\202\204r \211\312X\203t \312\207\312S\211\262\312Y\203\254 \313\314\315\"\"\262\316\"\262\310\"\311U\266\202\203v \317\316\"\"\262\262\202v \207" [math-messy-integerp math-trunc math-reject-arg fixnump (frac float) realp math-zerop nonzerop math-compare -1 0 math-div math-mul 2 math-sub math-add] 11 (#$ . 11630)])
(provide 'calc-fin)