1*47940Sbostic /*- 2*47940Sbostic * Copyright (c) 1980 The Regents of the University of California. 3*47940Sbostic * All rights reserved. 422825Skre * 5*47940Sbostic * %sccs.include.proprietary.c% 610442Sdlw */ 710442Sdlw 8*47940Sbostic #ifndef lint 9*47940Sbostic static char sccsid[] = "@(#)c_cos.c 5.2 (Berkeley) 04/12/91"; 10*47940Sbostic #endif /* not lint */ 11*47940Sbostic 1210442Sdlw #include "complex" 1310442Sdlw c_cos(r,z)1410442Sdlwc_cos(r, z) 1510442Sdlw complex *r, *z; 1610442Sdlw { 1710442Sdlw double sin(), cos(), sinh(), cosh(); 1810442Sdlw 1910442Sdlw r->real = cos(z->real) * cosh(z->imag); 2010442Sdlw r->imag = - sin(z->real) * sinh(z->imag); 2110442Sdlw } 22