scot - Cotangent cot(x)

#include <msca.h> 
 
double scot (double x); 
float  scotf(float x);

Given a value $x$ this function computes the cotangent $cot(x)$ .