Exemplo n.º 1
0
//## Complex Complex.cpowl();
static KMETHOD Complex_cpowl(KonohaContext *kctx, KonohaStack *sfp)
{
	kComplex *kx = (kComplex *) sfp[0].asObject;
	long double _Complex x = (long double _Complex)kx->z;
	long double real = (long double)sfp[1].floatValue;
	long double imaginary = (long double)sfp[2].floatValue;
	long double _Complex y = real + I * imaginary;
	long double ret = cpowl(x, y);
	KReturnFloatValue(ret);
}
Exemplo n.º 2
0
 TEST_TRACE(C99 7.3.7.1)
 d = cexp(d);
 f = cexpf(f);
 ld = cexpl(ld);
 TEST_TRACE(C99 7.3.7.2)
 d = clog(d);
 f = clogf(f);
 ld = clogl(ld);
 TEST_TRACE(C99 7.3.8.1)
 d = cabs(d);
 f = cabsf(f);
 ld = cabsl(ld);
 TEST_TRACE(C99 7.3.8.2)
 d = cpow(d, d);
 f = cpowf(f, f);
 ld = cpowl(ld, ld);
 TEST_TRACE(C99 7.3.8.3)
 d = csqrt(d);
 f = csqrtf(f);
 ld = csqrtl(ld);
 TEST_TRACE(C99 7.3.9.1)
 d = carg(d);
 f = cargf(f);
 ld = cargl(ld);
 TEST_TRACE(C99 7.3.9.2)
 d = cimag(d);
 f = cimagf(f);
 ld = cimagl(ld);
 TEST_TRACE(C99 7.3.9.3)
 d = conj(d);
 f = conjf(f);