;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\207" [require calc-ext calc-macs] 2)
#@12 

(fn ARG)
(defalias 'calc-fdiv #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301\302\303\300\304$\207" [V0 calc-binary-op ":" calcFunc-fdiv 1] 5]] 5 (#$ . 156) "P"])
#@12 

(fn ARG)
(defalias 'calc-fraction #[257 "\300\301\302\"`\"\207" [calc-do make-closure #[0 "\301 \203	\302\202\n\303\300\304=\203\305\306\307\310\306!\310\311!E#\207\305\311\307\310\311!\312\300\206*\304!E#\207" [V0 calc-is-hyperbolic calcFunc-frac calcFunc-pfrac 0 calc-enter-result 2 "frac" calc-top-n 1 prefix-numeric-value] 8]] 5 (#$ . 342) "P"])
#@12 

(fn FMT)
(defalias 'calc-over-notation #[257 "\211C\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\242\"\2036\303\304\225\305\225U\204#\306\300\242\305\225\303O!\262
\300\307\300\242\305\"\240\210\211\304=\203-\310\311!\210\312\313\300\242D\314#\207\310\315!\207" [V0 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"] 5]] 6 (#$ . 708) "sFraction separator: "])
#@10 

(fn N)
(defalias 'calc-slash-notation #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\301\302\300\203\n\303\202\304\305#\207" [V0 calc-change-mode calc-frac-format ("//" nil) ("/" nil) t] 4]] 5 (#$ . 1233) "P"])
#@10 

(fn N)
(defalias 'calc-frac-mode #[257 "\300\301\302\"!\207" [calc-do make-closure #[0 "\302\301\300\303\304$\210\305	\203\306\202\307!\207" [V0 calc-prefer-frac calc-change-mode nil t message "Integer division will now generate fractions" "Integer division will now generate floating-point results"] 5]] 5 (#$ . 1465) "P"])
#@16 

(fn NUM DEN)
(defalias 'math-make-frac #[514 "\211\211\250\205	\211\300W\262
\203\301!\262\301
!\262
\302\"\211\303=\203/
\303=\203*\207\304E\207\211\232\203:\305\"\207\304\305\"\305\"E\207" [0 math-neg math-gcd 1 frac math-quotient] 8 (#$ . 1803)])
#@12 

(fn A B)
(defalias 'calc-add-fractions #[514 "
\242\300=\203>\211\242\300=\203,\301\302\303A@\3048\"\303\3048A@\"\"\303\3048\3048\"\"\207\301\302A@\303\3048\"\"\3048\"\207\301\302\303\3048\"A@\"\3048\"\207" [frac math-make-frac math-add math-mul 2] 8 (#$ . 2081)])
#@12 

(fn A B)
(defalias 'calc-mul-fractions #[514 "
\242\300=\203-\211\242\300=\203!\301\302A@A@\"\302\3038\3038\"\"\207\301\302A@\"\3038\"\207\301\302A@\"\3038\"\207" [frac math-make-frac math-mul 2] 8 (#$ . 2372)])
#@12 

(fn A B)
(defalias 'calc-div-fractions #[514 "
\242\300=\203-\211\242\300=\203!\301\302A@\3038\"\302\3038A@\"\"\207\301A@\302\3038\"\"\207\301\302\3038\"A@\"\207" [frac math-make-frac math-mul 2] 7 (#$ . 2604)])
#@24 

(fn A &optional TOL)
(defalias 'calcFunc-frac #[513 "\211C\211\242\204\211\302\240\210\211:?\206\211@\303=\262
\203\207@\304>\2030@\305\306\307\"A\"B\207\211:\205B\211@\310=\205B\311
8\302Y\262
\203K\312!\207\211:\203p\211@\313>\203h\211A@\211\250\205c\211\302W\266\202\202u\314
!\262
\202u\211\302W\262
\203\202\315\316\315!\242\"!\207@\310=\204\236\317!\203\221\207\320!\203\231\207\321\322\"\207\211\242\250\203\310\211\242\302X\203\262\211
\242\\\240\210\316\310\323\324A@!\3118\\\242TZE\"\207\211\242@\310=\204\357\211\242\211:?\206\334\211@\325>\262
\203\351\316\326\242!\"\207\321
\242\327\"\207\211\242\211:\203
\211@\313>\203

\211A@\211\250\205
\211\302W\266\202\202
\314
!\262
\202
\211\302W\262
\203%
\316\315\242!\"\207\211\242\211:\203E
\211@\310=\203=
\211A@\302=\262
\202J
\330
!\262
\202J
\211\302=\262
\203R
\316\302\"\207\331
\242\332\"\204^
\312!\207\211:\203}
\211@\310=\203u
\211A@\302=\262
\202\202
\330
!\262
\202\202
\211\302=\262
\203\207
\302\207\333\242\"\334\335
!)\207" [calc-internal-prec calc-prefer-frac 0 frac (cplx polar vec hms date sdev intv mod) mapcar make-closure #[257 "\301
\300\242\"\207" [V0 calcFunc-frac] 4 "\n\n(fn X)"] float 2 math-trunc (frac float) math-negp math-neg calcFunc-frac math-infinitep math-provably-integerp math-reject-arg numberp 5 math-numdigs (frac float) math-float realp math-zerop math-lessp-float (float 1 0) math-continued-fraction t math-eval-continued-fraction] 10 (#$ . 2836)])
#@14 

(fn A TOL)
(defalias 'math-continued-fraction #[514 "\303\\\304\304\211
\203T\211:\203-\211@\305=\203%\211A@\306=\262
\2022\307
!\262
\2022\211\306=\262
\204\224\310\311\312\313!\n\314=\203I\315\316\"\210\211\262
\"!\"\204\224\317!\262
\312\"\262\211B\262\211:\203\203\211@\305=\203{\211A@\306=\262
\202\210\307
!\262
\202\210\211\306=\262
\204\n\320\321\"\262\202\n)\266\204)\207" [calc-internal-prec calc-prefer-frac calc-display-working-message 2 nil 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] 14 (#$ . 4358)])
#@11 

(fn CF)
(defalias 'math-eval-continued-fraction #[257 "\211@\300\301A\211\262\203\302\303@\"\"\262
\262\211\262\202\304\"\207" [1 nil math-add math-mul math-div] 8 (#$ . 5017)])
#@12 

(fn A B)
(defalias 'calcFunc-fdiv #[514 "
\211\250\206\211:\205\211@\300=\205\301
8\302Y\262
\203\265\211\211\250\2063\211:\2053\211@\300=\2053\301
8\302Y\262
\203m\211\211:\203W\211@\300=\203O\211A@\302=\262
\202\\\303
!\262
\202\\\211\302=\262
\203d\304\305\"\207\306\307!\307!\"\207\211\242\310=\203\260\211A@\211:\203\225\211@\300=\203\215\211A@\302=\262
\202\232\303
!\262
\202\232\211\302=\262
\203\242\304\305\"\207\306\311\307!\3018\"A@\"\207\304
\312\"\207
\242\310=\203_
\211\211\250\206\323\211:\205\323\211@\300=\205\323\301
8\302Y\262
\203
\211\211:\203\367\211@\300=\203\357\211A@\302=\262
\202\374\303
!\262
\202\374\211\302=\262
\203
\304\305\"\207\306A@\311\3018\307!\"\"\207\211\242\310=\203Z
\211A@\211:\203:
\211@\300=\2032
\211A@\302=\262
\202?
\303
!\262
\202?
\211\302=\262
\203G
\304\305\"\207\306\311A@\3018\"\311\3018A@\"\"\207\304
\312\"\207\304\312\"\207" [float 2 0 math-zerop math-reject-arg "*Division by zero" math-make-frac math-trunc frac math-mul integerp] 8 (#$ . 5217)])
(provide 'calc-frac)