scotpi - Half-Cycle Cotangent cot(πx)

#include <msca.h> 
 
double scotpi (double x); 
float  scotpif(float x);

Given a value $x$ this function computes the half-cycle cotangent $cot(πx)$ .