;ELC
;;; Compiled by mockbuild@buildfarm06-new.corp.cloudlinux.com on Fri Oct 11 10:10:43 2024
;;; from file /builddir/build/BUILD/emacs-24.3/lisp/calc/calc-frac.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-fdiv #[(arg) "\300\301`\"\207" [calc-do #[nil "\301\302\303\304$\207" [arg calc-binary-op ":" calcFunc-fdiv 1] 5]] 3 nil "P"])
(defalias 'calc-fraction #[(arg) "\300\301`\"\207" [calc-do #[nil "\302 \203	\303\202\n\304	\305=\203 \306\307\310\311\307!\311\312!E#\2020\306\312\310\311\312!\313	\206-\305!E#)\207" [func arg calc-is-hyperbolic calcFunc-frac calcFunc-pfrac 0 calc-enter-result 2 "frac" calc-top-n 1 prefix-numeric-value] 7]] 3 nil "P"])
(defalias 'calc-over-notation #[(fmt) "\300\301!\207" [calc-do #[nil "\302\303\"\2031\304\305\225\306\225U\204\307\306\225\304O!\310\306\"	\305=\203(\311\312!\210\313\314	D\315#)\207\311\316!\207" [fmt n string-match "\\`\\([^ 0-9][^ 0-9]?\\)[0-9]*\\'" nil 0 1 string-to-number math-match-substring error "Bad denominator" calc-change-mode calc-frac-format t "Bad fraction separator format"] 4]] 2 nil "sFraction separator: "])
(defalias 'calc-slash-notation #[(n) "\300\301!\207" [calc-do #[nil "\301\302\203\n\303\202\304\305#\207" [n calc-change-mode calc-frac-format ("//" nil) ("/" nil) t] 4]] 2 nil "P"])
(defalias 'calc-frac-mode #[(n) "\300\301!\207" [calc-do #[nil "\302\301\303\304$\210\305	\203\306\202\307!\207" [n calc-prefer-frac calc-change-mode nil t message "Integer division will now generate fractions" "Integer division will now generate floating-point results"] 5]] 2 nil "P"])
(defalias 'math-make-frac #[(num den) "\211:\203	@\304=\202	\305W)\203\306\n!\306!\307\n\"\211\310=\2039\310=\2032\n\202P\311\nE\202P\232\203F\312\n\"\202P\311\312\n\"\312\"E)\207" [den a num gcd bigneg 0 math-neg math-gcd 1 frac math-quotient] 6])
(defalias 'calc-add-fractions #[(a b) "\242\302=\203<	\242\302=\203+\303\304\305A@\306	8\"\305\3068	A@\"\"\305\3068\306	8\"\"\207\303\304A@\305\3068	\"\"\3068\"\207\303\304\305\306	8\"	A@\"\306	8\"\207" [a b frac math-make-frac math-add math-mul 2] 6])
(defalias 'calc-mul-fractions #[(a b) "\242\302=\203-	\242\302=\203!\303\304A@	A@\"\304\3058\305	8\"\"\207\303\304A@	\"\3058\"\207\303\304	A@\"\305	8\"\207" [a b frac math-make-frac math-mul 2] 6])
(defalias 'calc-div-fractions #[(a b) "\242\302=\203-	\242\302=\203!\303\304A@\305	8\"\304\3058	A@\"\"\207\303A@\304\3058	\"\"\207\303\304\305	8\"	A@\"\207" [a b frac math-make-frac math-mul 2] 5])
(defalias 'calcFunc-frac #[(a &optional tol) "\204\305	\211:?\206	@\306>)\203	\207	@\307>\203(	@\310\311	A\"B\207	\211:\205;	@\312=\205;\313	8\305Y)\203C\314	!\207	\211:\203}	@\315=\206\200	@\316=?\205\200	@\317>\203w	A@\211:\203p	@\315=\202s	\305W)\202\200\320	!\202\200	\305W)\203\215\321\322\321	!\"!\207	@\312=\204\251\323	!\203\234	\207\324	!\203\244	\207\325	\326\"\207\250\203\313\305X\203\270\n\\\322	\312\327\330	A@!\313	8\\TZE\"\207@\312=\204\356\211:?\206\336	@\331>)\203\351\322	\332!\"\207\325\333\"\207\211:\203(
	@\315=\206+
	@\316=?\205+
	@\317>\203\"
	A@\211:\203
	@\315=\202
	\305W)\202+
\320	!\202+
	\305W)\2036
\322	\321!\"\207\211:\203Z
	@\334>?\205]
	@\312=\203T
	A@\305=\202]
\335	!\202]
	\305=)\203f
\322	\305\"\207\336\337\"\204q
\314	!\207	\211:\203\225
	@\334>?\205\230
	@\312=\203\217
	A@\305=\202\230
\335	!\202\230
	\305=)\203\236
\305\207\340	\"\341\342\f!*\207" [tol a calc-internal-prec calc-prefer-frac cfrac 0 (bigpos bigneg frac) (cplx polar vec hms date sdev intv mod) mapcar #[(x) "\302	\"\207" [x tol calcFunc-frac] 3] float 2 math-trunc bigneg bigpos (frac float) math-negp math-neg calcFunc-frac math-infinitep math-provably-integerp math-reject-arg numberp 5 math-numdigs (bigpos bigneg frac float) math-float realp (bigpos bigneg) math-zerop math-lessp-float (float 1 0) math-continued-fraction t math-eval-continued-fraction] 8])
(defalias 'math-continued-fraction #[(a tol) "\306\\\307	\307\211
\203\\\f\211:\2034	@\310>?\2057	@\311=\203.	A@\312=\2027\313	!\2027	\312=)\204\234\314\315\316	\317
!\320=\203Q\321\322\"\210)\"!\"\204\234\323\f!\316\f\n\"\n
B\f\211:\203\215	@\310>?\205\220	@\311=\203\207	A@\312=\202\220\313	!\202\220	\312=)\204\f\324\325\f\"\202\f
-\207" [calc-internal-prec a int calc-prefer-frac aa cfrac 2 nil (bigpos bigneg) float 0 math-zerop math-lessp-float math-abs math-sub math-eval-continued-fraction lots math-do-working "Fractionalize" math-trunc math-div 1 f calc-display-working-message tol] 8])
(defalias 'math-eval-continued-fraction #[(cf) "@\304\305A\211\203\306\307@\"\n\"	\202\310\n\"+\207" [cf temp d n 1 nil math-add math-mul math-div] 4])
(defalias 'calcFunc-fdiv #[(a b) "\211:?\206@\303>\206@\304=\205\3058\306Y)\203\303	\211:?\206:@\303>\206:@\304=\205:\3058\306Y)\203w	\211:\203b@\307>?\205e@\304=\203\\A@\306=\202e\310!\202e\306=)\203n\311\312\"\207\313\314!\314	!\"\207	\242\315=\203\276	A@\211:\203\244@\307>?\205\247@\304=\203\236A@\306=\202\247\310!\202\247\306=)\203\260\311\312\"\207\313\316\314!\305	8\"	A@\"\207\311	\317\"\207\242\315=\203{
	\211:?\206\345@\303>\206\345@\304=\205\345\3058\306Y)\203*
	\211:\203

@\307>?\205
@\304=\203
A@\306=\202
\310!\202
\306=)\203
\311\312\"\207\313\211A@)\316\3058\314	!\"\"\207	\242\315=\203v
	A@\211:\203W
@\307>?\205Z
@\304=\203Q
A@\306=\202Z
\310!\202Z
\306=)\203c
\311\312\"\207\313\316A@\305	8\"\316\3058	A@\"\"\207\311	\317\"\207\311\317\"\207" [a b x (bigpos bigneg) float 2 0 (bigpos bigneg) math-zerop math-reject-arg "*Division by zero" math-make-frac math-trunc frac math-mul integerp] 7])
(provide 'calc-frac)