arg.c

来自「cfront是最开始c++语言到C语言的转换工具」· C语言 代码 · 共 25 行

/*ident	"@(#)cls4:lib/complex/complex/arg.c	1.1" */
/*******************************************************************************
 
C++ source for the C++ Language System, Release 3.0.  This product
is a new release of the original cfront developed in the computer
science research center of AT&T Bell Laboratories.

Copyright (c) 1991 AT&T and UNIX System Laboratories, Inc.
Copyright (c) 1984, 1989, 1990 AT&T.  All Rights Reserved.

THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE of AT&T and UNIX System
Laboratories, Inc.  The copyright notice above does not evidence
any actual or intended publication of such source code.

*******************************************************************************/
#include <complex.h>

double
arg(complex z)
{
	if ( z.re == 0 && z.im == 0 ) return 0;

	return atan2(z.im,z.re);
}