42 double *dd = (
double *) data;
49 for (i = 0; i < length; i++)
52 for (i = 0; i < length; i++)
74 for (i = 0; i < length; i++) {
94 double *dd = (
double *) data;
100 for (i = 0; i < length; i++) {
105 for (i = 0; i < length; i++) {
123 double *dd = (
double *) data;
130 for (i = 0; i < length; i++)
133 for (i = 0; i < length; i++)
149 double *dd = (
double *) data;
156 for (i = 0; i < length; i++)
159 for (i = 0; i < length; i++)
176 double *dd = (
double *) data;
183 for (i = 0; i < length; i++)
184 d[i] = ((
realpart(&cc[i]) > 0.0) ? 1.0 : 0.0);
186 for (i = 0; i < length; i++)
187 d[i] = ((dd[i] > 0.0) ? 1.0 : 0.0);
202 double *dd = (
double *) data;
210 for (i = 0; i < length; i++) {
214 d[i] = 20.0 * - log(
HUGE);
216 d[i] = 20.0 * log10(tt);
219 for (i = 0; i < length; i++) {
222 d[i] = 20.0 * - log(
HUGE);
224 d[i] = 20.0 * log10(dd[i]);
241 double *dd = (
double *) data;
255 for (i = 0; i < length; i++) {
274 for (i = 0; i < length; i++) {
275 rcheck(dd[i] >= 0,
"log");
277 d[i] = - log10(
HUGE);
297 double *dd = (
double *) data;
311 for (i = 0; i < length; i++) {
327 for (i = 0; i < length; i++) {
350 double *dd = (
double *) data;
364 for (i = 0; i < length; i++) {
372 for (i = 0; i < length; i++)
390 double *dd = (
double *) data;
392 int i, cres = (type ==
VF_REAL) ? 0 : 1;
395 for (i = 0; i < length; i++)
408 for (i = 0; i < length; i++) {
465 for (i = 0; i < length; i++)
473 for (i = 0; i < length; i++)
491 double *dd = (
double *) data;
505 for (i = 0; i < length; i++) {
514 for (i = 0; i < length; i++)
532 double *dd = (
double *) data;
546 for (i = 0; i < length; i++) {
555 for (i = 0; i < length; i++)
char * cx_ln(char *data, short type, int length, int *newlength, short *newtype)
char * cx_db(char *data, short type, int length, int *newlength, short *newtype)
char * cx_log(char *data, short type, int length, int *newlength, short *newtype)
char * cx_pos(char *data, short type, int length, int *newlength, short *newtype)
char * cx_exp(char *data, short type, int length, int *newlength, short *newtype)
#define rcheck(cond, name)
char * cx_ph(char *data, short type, int length, int *newlength, short *newtype)
char * cx_real(char *data, short type, int length, int *newlength, short *newtype)
char * cx_sin(char *data, short type, int length, int *newlength, short *newtype)
char * cx_cos(char *data, short type, int length, int *newlength, short *newtype)
char * cx_sqrt(char *data, short type, int length, int *newlength, short *newtype)
char * cx_mag(char *data, short type, int length, int *newlength, short *newtype)
char * cx_j(char *data, short type, int length, int *newlength, short *newtype)
char * cx_imag(char *data, short type, int length, int *newlength, short *newtype)