2 frac - return the fractional part of a number or of numbers in a value
8 If x is an object of type xx, frac(x) requires xx_frac to have been
9 defined; other conditions on x and the value returned depend on
10 the definition of xx_frac.
14 x number (real or complex), matrix
16 return number or matrix
19 If x is an integer, frac(x) returns zero. For other real values of x,
20 frac(x) returns the real number f for which x = i + f, where i is an
21 integer, sgn(f) = sgn(x), and abs(f) < 1.
23 If x is complex, frac(x) returns frac(re(x)) + frac(im(x))*1i.
25 If x is a matrix, frac(x) returns the matrix m with the same structure
26 as x in which m[[i]] = frac(x[[i]]).
29 ; c = config("mode", "frac")
30 ; print frac(3), frac(22/7), frac(27/7), frac(-3.125), frac(2.15 - 3.25i)
31 0 1/7 6/7 -1/8 3/20-1i/4
37 NUMBER *qfrac(NUMBER *x)
38 COMPLEX *c_frac(COMPLEX *x)
39 MATRIX *matfrac(MATRIX *x)
44 ## Copyright (C) 1999 Landon Curt Noll
46 ## Calc is open software; you can redistribute it and/or modify it under
47 ## the terms of the version 2.1 of the GNU Lesser General Public License
48 ## as published by the Free Software Foundation.
50 ## Calc is distributed in the hope that it will be useful, but WITHOUT
51 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
52 ## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
53 ## Public License for more details.
55 ## A copy of version 2.1 of the GNU Lesser General Public License is
56 ## distributed with calc under the filename COPYING-LGPL. You should have
57 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
58 ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
60 ## @(#) $Revision: 30.1 $
61 ## @(#) $Id: frac,v 30.1 2007/03/16 11:10:42 chongo Exp $
62 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/frac,v $
64 ## Under source code control: 1995/12/18 03:30:59
65 ## File existed as early as: 1995
67 ## chongo <was here> /\oo/\ http://www.isthe.com/chongo/
68 ## Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/