950 Appendix C c.r=z.1/(2.0*c.1); return c; fcomplex RCmul(float x,fcomplex a) fcomplex c; c.r=x*a.r; c.1=x*a.1 return c; http://w.nr.com or call 1-800-872-7423(North America only),orsend email to directcustserv@cambridge.org (outside North America). Permission is granted for internet users to make one paper copy for their Copyright (C)1988-1992 by Cambridge University Press.Programs Copyright(C)1988-1992 by Numerical Recipes Software. Sample page from NUMERICAL RECIPES IN C:THE ART OF SCIENTIFIC COMPUTING (ISBN 0-521-43108-5)950 Appendix C Permission is granted for internet users to make one paper copy for their own personal use. Further reproduction, or any copyin Copyright (C) 1988-1992 by Cambridge University Press. Programs Copyright (C) 1988-1992 by Numerical Recipes Software. Sample page from NUMERICAL RECIPES IN C: THE ART OF SCIENTIFIC COMPUTING (ISBN 0-521-43108-5) g of machine￾readable files (including this one) to any server computer, is strictly prohibited. To order Numerical Recipes books or CDROMs, visit website http://www.nr.com or call 1-800-872-7423 (North America only), or send email to directcustserv@cambridge.org (outside North America). c.r=z.i/(2.0*c.i); } return c; } } fcomplex RCmul(float x, fcomplex a) { fcomplex c; c.r=x*a.r; c.i=x*a.i; return c; }