2 polar - specify a complex number by modulus (radius) and argument (angle)
10 eps nonzero real, defaults to epsilon()
12 return number (real or complex)
15 Returns the real or complex number with real and imaginary parts
16 multiples of epps nearest or next to nearest to r * cos(t) and
17 r * sin(t) respectively. The error for each part will be less
18 than 0.75 * abs(eps), but usually less than 0.5 * abs(eps).
21 ; print polar(2, 0), polar(1, 2, 1e-5), polar(1, 2, 1e-10)
22 2 -.41615+.9093i -.4161468365+.9092974268i
24 ; pi = pi(1e-10); eps = 1e-5
25 ; print polar(2, pi/4, eps), polar(2, pi/2, eps), polar(2, 3*pi/4, eps)
26 1.41421+1.41421i 2i -1.414215+1.41421i
32 COMPLEX *c_polar(NUMBER *r, NUMBER *t, NUMBER *eps);
37 ## Copyright (C) 1999 Landon Curt Noll
39 ## Calc is open software; you can redistribute it and/or modify it under
40 ## the terms of the version 2.1 of the GNU Lesser General Public License
41 ## as published by the Free Software Foundation.
43 ## Calc is distributed in the hope that it will be useful, but WITHOUT
44 ## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
45 ## or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
46 ## Public License for more details.
48 ## A copy of version 2.1 of the GNU Lesser General Public License is
49 ## distributed with calc under the filename COPYING-LGPL. You should have
50 ## received a copy with calc; if not, write to Free Software Foundation, Inc.
51 ## 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
53 ## @(#) $Revision: 30.1 $
54 ## @(#) $Id: polar,v 30.1 2007/03/16 11:10:42 chongo Exp $
55 ## @(#) $Source: /usr/local/src/cmd/calc/help/RCS/polar,v $
57 ## Under source code control: 1995/10/25 04:03:46
58 ## File existed as early as: 1995
60 ## chongo <was here> /\oo/\ http://www.isthe.com/chongo/
61 ## Share and enjoy! :-) http://www.isthe.com/chongo/tech/comp/calc/