Exemplo n.º 1
0
qcomplex __cqpow(long double aqreal, long double aqimag, long double bqreal, long double bqimag)
{
  long double logr, logi, x, y;
  qcomplex r, qc;

  logr = __qlog( __qhypot(aqreal, aqimag));
  logi = __qatan2( aqimag, aqreal);

  x = __qexp( logr*bqreal - logi*bqimag);
  y = logr*bqimag + logi*bqreal;

  qc = __qcis(y);
  r.qreal = x*qc.qreal;
  r.qimag = x*qc.qimag;
  return r;
}
Exemplo n.º 2
0
qcomplex q_cis(long double *arg)
{
  return(__qcis(*arg));
}