ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/calc/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/calc/calc-frac.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.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 @\302>\206 @\303=\205 \3048\305Y)\203\303 \211:?\206: @\302>\206: @\303=\205: \3048\305Y)\203w \211:\203b @\306>?\205e @\303=\203\\ A@\305=\202e \307!\202e \305=)\203n \310\311\"\207\312\313!\313 !\"\207 \242\314=\203\276 A@\211:\203\244 @\306>?\205\247 @\303=\203\236 A@\305=\202\247 \307!\202\247 \305=)\203\260 \310\311\"\207\312\315\313!\304 8\" A@\"\207\310 \316\"\207\242\314=\203x \211:?\206\345 @\302>\206\345 @\303=\205\345 \3048\305Y)\203' \211:\203
@\306>?\205@\303=\203A@\305=\202\307!\202\305=)\203\310\311\"\207\312A@\315\3048\313 !\"\"\207 \242\314=\203s A@\211:\203T@\306>?\205W@\303=\203NA@\305=\202W\307!\202W\305=)\203`\310\311\"\207\312\315A@\304 8\"\315\3048 A@\"\"\207\310 \316\"\207\310\316\"\207" [a b (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)
Kontol Shell Bypass