2.3-1/src/c/elementaryFunctions/Trigonometry/csc/zcscs.c


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

#include <math.h>
#include "sin.h"
#include "cos.h"
#include "sinh.h"
#include "cosh.h"
#include "csc.h"
#include "doubleComplex.h"
#include "division.h"

doubleComplex zcscs(doubleComplex z)
{
	doubleComplex out;
	//out = zrdivs(DoubleComplex(1,0),zsins(z));
	double real = zreals(z);
	double imag = zimags(z);
	return zrdivs(DoubleComplex(1,0),(DoubleComplex(dsins(real) * dcoshs(imag), dcoss(real) * dsinhs(imag))));
	//return out;
}