;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; 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 (#$ . 505) "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 (#$ . 2254) "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 (#$ . 3005)]) (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 (#$ . 3796)]) (put 'calcFunc-pv 'math-expandable t)#@24 (fn RATE NUM AMOUNT) (defalias 'calcFunc-pvl #[771 "\300\301$\207" [calcFunc-pv 0] 8 (#$ . 4151)]) (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 (#$ . 4299)]) (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 (#$ . 4674)]) (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 (#$ . 5029)]) (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 (#$ . 5386)]) (put 'calcFunc-fv 'math-expandable t)#@24 (fn RATE NUM AMOUNT) (defalias 'calcFunc-fvl #[771 "\300\301$\207" [calcFunc-fv 0] 8 (#$ . 5733)]) (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 (#$ . 5881)]) (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 (#$ . 6249)]) (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 (#$ . 6608)]) (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 (#$ . 6987)]) (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 (#$ . 7163)]) (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 (#$ . 7339)]) (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 (#$ . 7505)])#@38 (fn NUM PMT AMOUNT &optional LUMP) (defalias 'calcFunc-rate #[1027 "\300\301%\207" [math-compute-rate calcFunc-pv] 10 (#$ . 8509)])#@38 (fn NUM PMT AMOUNT &optional LUMP) (defalias 'calcFunc-rateb #[1027 "\300\301%\207" [math-compute-rate calcFunc-pvb] 10 (#$ . 8652)])#@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 (#$ . 8797)])#@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 (#$ . 9238)])#@19 (fn &rest VECS) (defalias 'calcFunc-irr #[128 "\300\301\"\207" [math-compute-irr calcFunc-npv] 4 (#$ . 9598)])#@19 (fn &rest VECS) (defalias 'calcFunc-irrb #[128 "\300\301\"\207" [math-compute-irr calcFunc-npvb] 4 (#$ . 9717)])#@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 (#$ . 9838)])#@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 (#$ . 10099)])#@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 (#$ . 10353)]) (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 (#$ . 10944)]) (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 (#$ . 11602)]) (provide 'calc-fin)