代码搜索:complex

找到约 10,000 项符合「complex」的源代码

代码结果 10,000
www.eeworm.com/read/136812/5858372

c c_exp.c

#ifndef lint static char sccsid[] = "@(#)c_exp.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" c_exp(r, z) complex *r, *z; { register double expx; double exp(), cos(), s
www.eeworm.com/read/136812/5858374

c z_abs.c

#ifndef lint static char sccsid[] = "@(#)z_abs.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" double z_abs(z) dcomplex *z; { double hypot(); return( hypot( z->dreal, z
www.eeworm.com/read/136812/5858379

c z_sin.c

#ifndef lint static char sccsid[] = "@(#)z_sin.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" z_sin(r, z) dcomplex *r, *z; { double sin(), cos(), sinh(), cosh(); r->dr
www.eeworm.com/read/136812/5858409

c c_cos.c

#ifndef lint static char sccsid[] = "@(#)c_cos.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" c_cos(r, z) complex *r, *z; { double sin(), cos(), sinh(), cosh(); r->rea
www.eeworm.com/read/136812/5858414

c r_cnjg.c

#ifndef lint static char sccsid[] = "@(#)r_cnjg.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" r_cnjg(r, z) complex *r, *z; { r->real = z->real; r->imag = - z->imag; }
www.eeworm.com/read/136812/5858420

c d_cnjg.c

#ifndef lint static char sccsid[] = "@(#)d_cnjg.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" d_cnjg(r, z) dcomplex *r, *z; { r->dreal = z->dreal; r->dimag = - z->dima
www.eeworm.com/read/136812/5858421

c d_imag.c

#ifndef lint static char sccsid[] = "@(#)d_imag.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" double d_imag(z) dcomplex *z; { return(z->dimag); }
www.eeworm.com/read/136812/5858431

c z_cos.c

#ifndef lint static char sccsid[] = "@(#)z_cos.c 1.1 92/07/30 SMI"; /* from UCB 1.1" */ #endif /* */ #include "complex.h" z_cos(r, z) dcomplex *r, *z; { double sin(), cos(), sinh(), cosh(); r->dr
www.eeworm.com/read/136812/5858435

c c_compare.c

#ifndef lint static char sccsid[] = "@(#)c_compare.c 1.1 92/07/30 SMI"; #endif /* * Copyright (c) 1987 by Sun Microsystems, Inc. */ /* complex*8 comparison */ #include "complex.h" int _Fc_e
www.eeworm.com/read/136812/5858441

c r_imag.c

#ifndef lint static char sccsid[] = "@(#)r_imag.c 1.1 92/07/30 SMI"; #endif /* * Copyright (c) 1987 by Sun Microsystems, Inc. */ #include "complex.h" FLOATFUNCTIONTYPE r_imag(z) complex *z; { RE