Gecko [ 122.154.134.11 ]

Name	Size	Permission
README	7.89 KB	-rw-r--r--
README.prev	31.02 KB	-rw-r--r--
calc-aent.elc	26.85 KB	-rw-r--r--
calc-alg.elc	46.35 KB	-rw-r--r--
calc-arith.elc	81.62 KB	-rw-r--r--
calc-bin.elc	21.53 KB	-rw-r--r--
calc-comb.elc	30.12 KB	-rw-r--r--
calc-cplx.elc	8.5 KB	-rw-r--r--
calc-embed.elc	29.83 KB	-rw-r--r--
calc-ext.elc	108.83 KB	-rw-r--r--
calc-fin.elc	11.84 KB	-rw-r--r--
calc-forms.elc	48.05 KB	-rw-r--r--
calc-frac.elc	5.58 KB	-rw-r--r--
calc-funcs.elc	25.78 KB	-rw-r--r--
calc-graph.elc	35.09 KB	-rw-r--r--
calc-help.elc	19.55 KB	-rw-r--r--
calc-incom.elc	5.29 KB	-rw-r--r--
calc-keypd.elc	15.83 KB	-rw-r--r--
calc-lang.elc	57.72 KB	-rw-r--r--
calc-loaddefs.el	10.61 KB	-rw-r--r--
calc-macs.elc	6.09 KB	-rw-r--r--
calc-map.elc	29.56 KB	-rw-r--r--
calc-math.elc	60.12 KB	-rw-r--r--
calc-menu.elc	32.85 KB	-rw-r--r--
calc-misc.elc	20.54 KB	-rw-r--r--
calc-mode.elc	19.45 KB	-rw-r--r--
calc-mtx.elc	6.77 KB	-rw-r--r--
calc-nlfit.elc	13.59 KB	-rw-r--r--
calc-poly.elc	24.53 KB	-rw-r--r--
calc-prog.elc	51.27 KB	-rw-r--r--
calc-rewr.elc	40.01 KB	-rw-r--r--
calc-rules.elc	17.6 KB	-rw-r--r--
calc-sel.elc	19.83 KB	-rw-r--r--
calc-stat.elc	13.97 KB	-rw-r--r--
calc-store.elc	17.31 KB	-rw-r--r--
calc-stuff.elc	8.07 KB	-rw-r--r--
calc-trail.elc	4.67 KB	-rw-r--r--
calc-undo.elc	3.35 KB	-rw-r--r--
calc-units.elc	37.86 KB	-rw-r--r--
calc-vec.elc	37.25 KB	-rw-r--r--
calc-yank.elc	16.66 KB	-rw-r--r--
calc.elc	101.08 KB	-rw-r--r--
calcalg2.elc	80.01 KB	-rw-r--r--
calcalg3.elc	42.38 KB	-rw-r--r--
calccomp.elc	32.86 KB	-rw-r--r--
calcsel2.elc	6.04 KB	-rw-r--r--

Code Editor : calc-frac.elc

;ELC���
;;; Compiled by mockbuild@c6b8.bsys.dev.centos.org on Thu Feb 19 13:02:36 2015
;;; from file /builddir/build/BUILD/emacs-23.1/lisp/calc/calc-frac.el
;;; in Emacs version 23.1.1
;;; with all optimizations.

;;; This file uses dynamic docstrings, first added in Emacs 19.29.
(if (and (boundp 'emacs-version)
	 (< (aref emacs-version (1- (length emacs-version))) ?A)
	 (or (and (boundp 'epoch::version) epoch::version)
	     (string-lessp emacs-version "19.29")))
    (error "`calc-frac.el' was compiled for Emacs 19.29 or later"))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(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|�	\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\310	\314\"\207\310\314\"\207" [a b (bigpos bigneg) float 2 0 (bigpos bigneg) math-zerop math-reject-arg "*Division by zero" math-make-frac math-trunc integerp] 5])
(provide 'calc-frac)

${this.title}

Code Editor : calc-frac.elc