Linux server.edchosting.com 4.18.0-553.79.1.lve.el7h.x86_64 #1 SMP Wed Oct 15 16:34:46 UTC 2025 x86_64
LiteSpeed
Server IP : 75.98.162.185 & Your IP : 216.73.216.163
Domains :
Cant Read [ /etc/named.conf ]
User : goons4good
Terminal
Auto Root
Create File
Create Folder
Localroot Suggester
Backdoor Destroyer
Readme
/
usr /
share /
emacs /
24.3 /
lisp /
calc /
Delete
Unzip
Name
Size
Permission
Date
Action
README
8.41
KB
-rw-r--r--
2013-01-02 20:45
README.prev
30.98
KB
-rw-r--r--
2013-01-01 15:37
calc-aent.elc
26.25
KB
-rw-r--r--
2023-06-07 04:11
calc-alg.elc
47.46
KB
-rw-r--r--
2023-06-07 04:11
calc-arith.elc
80.63
KB
-rw-r--r--
2023-06-07 04:11
calc-bin.elc
21.67
KB
-rw-r--r--
2023-06-07 04:11
calc-comb.elc
28.98
KB
-rw-r--r--
2023-06-07 04:11
calc-cplx.elc
8.44
KB
-rw-r--r--
2023-06-07 04:11
calc-embed.elc
29.32
KB
-rw-r--r--
2023-06-07 04:11
calc-ext.elc
107.11
KB
-rw-r--r--
2023-06-07 04:11
calc-fin.elc
11.78
KB
-rw-r--r--
2023-06-07 04:11
calc-forms.elc
47.54
KB
-rw-r--r--
2023-06-07 04:11
calc-frac.elc
6.07
KB
-rw-r--r--
2023-06-07 04:11
calc-funcs.elc
25.39
KB
-rw-r--r--
2023-06-07 04:11
calc-graph.elc
35.03
KB
-rw-r--r--
2023-06-07 04:11
calc-help.elc
20.46
KB
-rw-r--r--
2023-06-07 04:11
calc-incom.elc
5.22
KB
-rw-r--r--
2023-06-07 04:11
calc-keypd.elc
15.92
KB
-rw-r--r--
2023-06-07 04:11
calc-lang.elc
58.46
KB
-rw-r--r--
2023-06-07 04:11
calc-loaddefs.el
10.05
KB
-rw-r--r--
2023-06-07 04:00
calc-macs.elc
6.03
KB
-rw-r--r--
2023-06-07 04:11
calc-map.elc
28.51
KB
-rw-r--r--
2023-06-07 04:11
calc-math.elc
59.89
KB
-rw-r--r--
2023-06-07 04:11
calc-menu.elc
38.83
KB
-rw-r--r--
2023-06-07 04:11
calc-misc.elc
21.87
KB
-rw-r--r--
2023-06-07 04:11
calc-mode.elc
19.64
KB
-rw-r--r--
2023-06-07 04:11
calc-mtx.elc
6.91
KB
-rw-r--r--
2023-06-07 04:11
calc-nlfit.elc
13.37
KB
-rw-r--r--
2023-06-07 04:12
calc-poly.elc
24.29
KB
-rw-r--r--
2023-06-07 04:12
calc-prog.elc
50.68
KB
-rw-r--r--
2023-06-07 04:12
calc-rewr.elc
39.51
KB
-rw-r--r--
2023-06-07 04:12
calc-rules.elc
17.54
KB
-rw-r--r--
2023-06-07 04:12
calc-sel.elc
19.82
KB
-rw-r--r--
2023-06-07 04:12
calc-stat.elc
13.92
KB
-rw-r--r--
2023-06-07 04:12
calc-store.elc
16.85
KB
-rw-r--r--
2023-06-07 04:12
calc-stuff.elc
7.78
KB
-rw-r--r--
2023-06-07 04:12
calc-trail.elc
4.76
KB
-rw-r--r--
2023-06-07 04:12
calc-undo.elc
3.29
KB
-rw-r--r--
2023-06-07 04:12
calc-units.elc
52.73
KB
-rw-r--r--
2023-06-07 04:12
calc-vec.elc
37.74
KB
-rw-r--r--
2023-06-07 04:12
calc-yank.elc
16.59
KB
-rw-r--r--
2023-06-07 04:12
calc.elc
102.9
KB
-rw-r--r--
2023-06-07 04:12
calcalg2.elc
78.94
KB
-rw-r--r--
2023-06-07 04:12
calcalg3.elc
41.76
KB
-rw-r--r--
2023-06-07 04:12
calccomp.elc
33.11
KB
-rw-r--r--
2023-06-07 04:12
calcsel2.elc
5.98
KB
-rw-r--r--
2023-06-07 04:12
Save
Rename
;ELC ;;; Compiled by mockbuild@buildfarm06.corp.cloudlinux.com on Wed Jun 7 08:11:55 2023 ;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-fin.el ;;; in Emacs version 24.3.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-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 \314 A\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 \314 A\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 \320 S\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)