schac - Complex Havercosine hac(x)

#include <msca.h> 
 
double complex schac (double complex x); 
float complex  schacf(float complex x);

Given a value $x$ this function computes the havercosine of $x$ , $hac(x)$ .