//## 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); }
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);