
(require (quote calc-ext))

(defun calc-Need-calc-fin nil (byte-code "А‡" [nil] 1))

(defun calc-fin-pv nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "А ѓ БВГДЕВ!B#‚+ Ж ѓ\" БВЗИЕВ!B#‚+ БВЙКЕВ!B#‡" [calc-is-hyperbolic calc-enter-result 3 "pvl" calcFunc-pvl calc-top-list-n calc-is-inverse "pvb" calcFunc-pvb "pv" calcFunc-pv] 12)) 115] 3))

(defun calc-fin-npv (arg) (interactive "p") (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "Б ѓ ВГДT#‚ ВЕЖT#‡" [arg calc-is-inverse calc-vector-op "npvb" calcFunc-npvb "npv" calcFunc-npv] 6)) 401] 3))

(defun calc-fin-fv nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "А ѓ БВГДЕВ!B#‚+ Ж ѓ\" БВЗИЕВ!B#‚+ БВЙКЕВ!B#‡" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-inverse "fvb" calcFunc-fvb "fv" calcFunc-fv] 12)) 618] 3))

(defun calc-fin-pmt nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "А ѓ БВГДЕВ!B#‚+ Ж ѓ\" БВЗИЕВ!B#‚+ БВЙКЕВ!B#‡" [calc-is-hyperbolic calc-enter-result 3 "fvl" calcFunc-fvl calc-top-list-n calc-is-inverse "pmtb" calcFunc-pmtb "pmt" calcFunc-pmt] 12)) 904] 3))

(defun calc-fin-nper nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "А ѓ БВГДЕВ!B#‚+ Ж ѓ\" БВЗИЕВ!B#‚+ БВЙКЕВ!B#‡" [calc-is-hyperbolic calc-enter-result 3 "nprl" calcFunc-nperl calc-top-list-n calc-is-inverse "nprb" calcFunc-nperb "nper" calcFunc-nper] 12)) 1195] 3))

(defun calc-fin-rate nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "АБВ ѓ Г‚ Д ѓ Е‚ ЖЗИВ ѓ  Й‚* В ѓ) К‚* ЛМБ!B!!#‡" [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] 12)) 1494] 3))

(defun calc-fin-irr (arg) (interactive "P") (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "Б ѓ ВГД#‚ ВЕЖ#‡" [arg calc-is-inverse calc-vector-op "irrb" calcFunc-irrb "irr" calcFunc-irr] 6)) 1835] 3))

(defun calc-fin-sln nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "АБВГДБ!B#‡" [calc-enter-result 3 "sln" calcFunc-sln calc-top-list-n] 6)) 2051] 3))

(defun calc-fin-syd nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "АБВГДБ!B#‡" [calc-enter-result 4 "syd" calcFunc-syd calc-top-list-n] 6)) 2232] 3))

(defun calc-fin-ddb nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "АБВГДБ!B#‡" [calc-enter-result 4 "ddb" calcFunc-ddb calc-top-list-n] 6)) 2413] 3))

(defun calc-to-percentage (x) (byte-code ":?†
 @В>ѓ< ГД\"‰€:?†- @Е>†- @Ж=…- З8ИY…5 Й!‰€КD‚S :…E @Л=ѓR ЛМНA\"B‚S ‡" [x t (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] 6))

(defun calc-convert-percent nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "АБВГДБ!!#‡" [calc-pop-push-record 1 "c%" calc-to-percentage calc-top-n] 6)) 2893] 3))

(defun calc-percent-change nil (interactive) (byte-code "А€БВГ\"‡" [nil calc-do (lambda nil (byte-code "БВГД!B!ЕДЖЗ!#)‡" [res calc-normalize calcFunc-relch calc-top-list 2 calc-pop-push-record "%ch" calc-to-percentage] 7)) 3085] 3))

(defun calcFunc-pv (rate num amount &optional lump) (byte-code "Ж	\"€З
И\\ЙКЛ\"	\"КМНОЛНЛ\"\"\"\"Н†& П\"\"))!‡" [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] 13))

(put (quote calcFunc-pv) (quote math-expandable) t)

(defun calcFunc-pvl (rate num amount) (byte-code "Г	Д
$‡" [rate num amount calcFunc-pv 0] 5))

(put (quote calcFunc-pvl) (quote math-expandable) t)

(defun calcFunc-pvb (rate num amount &optional lump) (byte-code "Ж	\"€З
И\\ЙКЛ\"	\"КМНМОЛНЛ\"\"КЛ\"\"\"\"Н†, П\"\"))!‡" [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] 15))

(put (quote calcFunc-pvb) (quote math-expandable) t)

(defun calcFunc-npv (rate &rest flows) (byte-code "ЗИ\"€Й	К\\Л!МИ\"Н
A‰…4 МО
@\"\"П\"‰€‚ €,)!‡" [rate calc-internal-prec flat flows pp p accum math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul] 10))

(put (quote calcFunc-npv) (quote math-expandable) t)

(defun calcFunc-npvb (rate &rest flows) (byte-code "ЗИ\"€Й	К\\Л!МИ\"ИН
A‰…4 МО
@\"\"П\"‰€‚ €,)!‡" [rate calc-internal-prec flat flows pp p accum math-check-financial 1 math-normalize 2 math-flatten-many-vecs math-add 0 math-div math-mul] 10))

(put (quote calcFunc-npvb) (quote math-expandable) t)

(defun calcFunc-fv (rate num amount &optional initial) (byte-code "Ж	\"€З
И\\ЙКЛ\"	\"КМНОЛ\"\"\"М†# П\"\"))!‡" [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] 12))

(put (quote calcFunc-fv) (quote math-expandable) t)

(defun calcFunc-fvl (rate num amount) (byte-code "Г	Д
$‡" [rate num amount calcFunc-fv 0] 5))

(put (quote calcFunc-fvl) (quote math-expandable) t)

(defun calcFunc-fvb (rate num amount &optional initial) (byte-code "Ж	\"€З
И\\ЙКЛ\"	\"КМНМОЛ\"КЛ\"\"\"\"М†) П\"\"))!‡" [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] 14))

(put (quote calcFunc-fvb) (quote math-expandable) t)

(defun calcFunc-pmt (rate num amount &optional lump) (byte-code "Ж	\"€З
И\\ЙКЛ\"	\"МНОМ† П\"\"\"ОЛМЛ\"\"\"))!‡" [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] 14))

(put (quote calcFunc-pmt) (quote math-expandable) t)

(defun calcFunc-pmtb (rate num amount &optional lump) (byte-code "Ж	\"€З
И\\ЙКЛ\"	\"МНОМ† П\"\"\"НОЛМЛ\"\"КЛ\"\"\"))!‡" [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] 16))

(put (quote calcFunc-pmtb) (quote math-expandable) t)

(defun calcFunc-nper (rate pmt amount &optional lump) (byte-code "Е	
Д%‡" [rate pmt amount lump nil math-compute-nper] 6))

(put (quote calcFunc-nper) (quote math-expandable) t)

(defun calcFunc-nperb (rate pmt amount &optional lump) (byte-code "Д	
Е%‡" [rate pmt amount lump math-compute-nper b] 6))

(put (quote calcFunc-nperb) (quote math-expandable) t)

(defun calcFunc-nperl (rate pmt amount) (byte-code "Д	
ГЕ%‡" [rate pmt amount nil math-compute-nper l] 6))

(put (quote calcFunc-nperl) (quote math-expandable) t)

(defun math-compute-nper (rate pmt amount lump bflag) (byte-code "… Л!… Б‰€… Л
!… БМ‰€Н!†4 …- ?†4 ОП\"€Л!…? ОР\"€Н
!†T …M ?†T О
П\"€Н!†i …b ?†i ОП\"€ѓ¦ Н!†x ОП\"€СТУѓ„ Ф‚… ХЦ
%EЧШИ$Щ!ѓ  Ъ8‚ў )‚ф Ы	Ь\\	М=ѓє Э
\"‚Т ЮЪЭЯ\"ѓП Я
аЪ\"\"‚Р 
\"\"
б
!†Э ѓн вг
аЪ\"\"!‚с О
д\"))!‡" [lump nil pmt amount bflag rate math-expand-formulas root t calc-internal-prec temp math-zerop l math-objectp math-reject-arg numberp nonzerop math-find-root calcFunc-eq list calcFunc-pvb calcFunc-pv (var DUMMY var-DUMMY) (var DUMMY var-DUMMY) (intv 3 0 100) math-vectorp 1 math-normalize 2 math-div math-sub math-mul math-add math-posp math-neg calcFunc-log "*Payment too small to cover interest rate"] 29))

(defun calcFunc-rate (num pmt amount &optional lump) (byte-code "Д	
Е%‡" [num pmt amount lump math-compute-rate calcFunc-pv] 6))

(defun calcFunc-rateb (num pmt amount &optional lump) (byte-code "Д	
Е%‡" [num pmt amount lump math-compute-rate calcFunc-pvb] 6))

(defun math-compute-rate (num pmt amount lump func) (byte-code "З!†
 ИЙ\"€З	!† И	Й\"€З
!†  И
Й\"€?†0 З!†0 ИЙ\"€КЛМН	†= О%
EПРЖ$С!ѓQ Т8‚R )‡" [num pmt amount lump root func t math-objectp math-reject-arg numberp math-find-root calcFunc-eq list (var DUMMY var-DUMMY) 0 (var DUMMY var-DUMMY) (intv 3 (float 1 -4) 1) math-vectorp 1] 16))

(defun calcFunc-ratel (num pmt amount) (byte-code "Е!† 	† ЖЗ\"€Е
!† 	† Ж
З\"€Е!†, 	†, ЖЗ\"€ИЙ\\КЛМ
\"МН\"\"Н\")!‡" [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] 14))

(defun calcFunc-irr (&rest vecs) (byte-code "БВ\"‡" [vecs math-compute-irr calcFunc-npv] 3))

(defun calcFunc-irrb (&rest vecs) (byte-code "БВ\"‡" [vecs math-compute-irr calcFunc-npvb] 3))

(defun math-compute-irr (vecs func) (byte-code "Е	!ЖЗEИЙД$К
!ѓ Л
8‚ 
*‡" [flat vecs root func t math-flatten-many-vecs math-find-root (var DUMMY var-DUMMY) (var DUMMY var-DUMMY) (intv 3 (float 1 -4) 1) math-vectorp 1] 6))

(defun math-check-financial (rate num) (byte-code "Г!† 	† ДЕ\"€Ж!… ДЗ\"€Г
!†( 	†( Д
Е\"‡" [rate math-expand-formulas num math-objectp math-reject-arg numberp math-zerop nonzerop] 8))

(defun calcFunc-sln (cost salvage life &optional period) (byte-code "Е!† 	† ЖЗ\"€Е
!† 	† Ж
З\"€Е!†, 	†, ЖЗ\"€И!…7 ЖЙ\"€…V К!ѓR Л\"МU†O Н!?‚V ЖО\"ѓ] П‚d РС
\"\"‡" [cost math-expand-formulas salvage life period math-realp math-reject-arg realp math-zerop nonzerop math-num-integerp math-compare -1 math-posp integerp 0 math-div math-sub] 16))

(put (quote calcFunc-sln) (quote math-expandable) t)

(defun calcFunc-syd (cost salvage life period) (byte-code "Е!† 	† ЖЗ\"€Е
!† 	† Ж
З\"€Е!†, 	†, ЖЗ\"€И!…7 ЖЙ\"€Е!†F 	†F ЖЗ\"€К\"ЛU†T М!?ѓ[ Н‚t ОПР
\"СР\"Т\"\"ОПСТ\"\"У\"\"‡" [cost math-expand-formulas salvage life period 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] 24))

(put (quote calcFunc-syd) (quote math-expandable) t)

(defun calcFunc-ddb (cost salvage life period) (byte-code "Ж!… З!‰€И!† ЙК\"€Л	!†! Й	М\"€Л
!†, Й
М\"€Л!†7 ЙМ\"€Н!…B ЙО\"€П\"РU†O СXѓV С‚Ќ 	СS‰СY…Љ ТУФ\"\"Х\"‰€П
\"РU…† ЦХ
\"\"
‰€‚Z €*‡" [period cost salvage life book res math-messy-integerp math-trunc integerp math-reject-arg fixnump math-realp realp math-zerop nonzerop math-compare -1 0 math-div math-mul 2 math-sub math-add] 23))