c_cpp/etc/calc/help/issq

   1 NAME
   2     issq - whether a value is a square
   3
   4 SYNOPSIS
   5     issq(x)
   6
   7 TYPES
   8     x           real
   9
  10     return      int
  11
  12 DESCRIPTION
  13     Determine if x is a square.  If there exists integers a, b such that:
  14
  15         x == a^2 / b^2          (b != 0)
  16
  17     return 1, otherwise return 0.
  18
  19     Note that issq() works on rational values, so:
  20
  21         issq(25/16) == 1
  22
  23     If you want to test for prefect square integers, you need to exclude
  24     non-integer values before you test:
  25
  26         isint(curds) && issq(curds)
  27
  28 EXAMPLE
  29     ; print issq(25), issq(3), issq(0)
  30     1 0 1
  31
  32     ; print issq(4/25), issq(-4/25), issq(pi())
  33     1 0 0
  34
  35 LIMITS
  36     none
  37
  38 LINK LIBRARY
  39     BOOL qissquare(NUMBER *x)
  40     BOOL zissquare(ZVALUE x)
  41
  42 SEE ALSO
  43     isassoc, isatty, isblk, isconfig, isdefined, iserror, iseven, isfile,
  44     ishash, isident, isint, islist, ismat, ismult, isnull, isnum, isobj,
  45     isobjtype, isodd, isprime, isrand, israndom, isreal, isrel,
  46     issimple, isstr, istype
  47
  48 ## Copyright (C) 1999  Landon Curt Noll
  49 ##
  50 ## Calc is open software; you can redistribute it and/or modify it under
  51 ## the terms of the version 2.1 of the GNU Lesser General Public License
  52 ## as published by the Free Software Foundation.
  53 ##
  54 ## Calc is distributed in the hope that it will be useful, but WITHOUT
  55 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  56 ## or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
  57 ## Public License for more details.
  58 ##
  59 ## A copy of version 2.1 of the GNU Lesser General Public License is
  60 ## distributed with calc under the filename COPYING-LGPL.  You should have
  61 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
  62 ## 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
  63 ##
  64 ## @(#) $Revision: 30.1 $
  65 ## @(#) $Id: issq,v 30.1 2007/03/16 11:10:42 chongo Exp $
  66 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/issq,v $
  67 ##
  68 ## Under source code control:   1994/10/21 02:21:31
  69 ## File existed as early as:    1994
  70 ##
  71 ## chongo <was here> /\oo/\     http://www.isthe.com/chongo/
  72 ## Share and enjoy!  :-)        http://www.isthe.com/chongo/tech/comp/calc/