cleanup, rename cx_ln --> cx_log (.control language)
This commit is contained in:
parent
c926f46986
commit
99eade8ec9
|
|
@ -151,7 +151,7 @@ struct func ft_funcs[] = {
|
|||
{ "db", cx_db },
|
||||
{ "log", cx_log10 },
|
||||
{ "log10", cx_log10 },
|
||||
{ "ln", cx_ln },
|
||||
{ "ln", cx_log },
|
||||
{ "exp", cx_exp },
|
||||
{ "abs", cx_mag },
|
||||
{ "sqrt", cx_sqrt },
|
||||
|
|
|
|||
|
|
@ -62,7 +62,7 @@ extern void *cx_imag(void *, short int , int , int *, short int *);
|
|||
extern void *cx_pos(void *, short int , int , int *, short int *);
|
||||
extern void *cx_db(void *, short int , int , int *, short int *);
|
||||
extern void *cx_log10(void *, short int , int , int *, short int *);
|
||||
extern void *cx_ln(void *, short int , int , int *, short int *);
|
||||
extern void *cx_log(void *, short int , int , int *, short int *);
|
||||
extern void *cx_exp(void *, short int , int , int *, short int *);
|
||||
extern void *cx_sqrt(void *, short int , int , int *, short int *);
|
||||
extern void *cx_sin(void *, short int , int , int *, short int *);
|
||||
|
|
|
|||
|
|
@ -283,7 +283,7 @@ cx_log10(void *data, short int type, int length, int *newlength, short int *newt
|
|||
}
|
||||
|
||||
void *
|
||||
cx_ln(void *data, short int type, int length, int *newlength, short int *newtype)
|
||||
cx_log(void *data, short int type, int length, int *newlength, short int *newtype)
|
||||
{
|
||||
*newlength = length;
|
||||
if (type == VF_COMPLEX) {
|
||||
|
|
@ -297,7 +297,7 @@ cx_ln(void *data, short int type, int length, int *newlength, short int *newtype
|
|||
double td;
|
||||
|
||||
td = cmag(cc[i]);
|
||||
rcheck(td >= 0, "ln");
|
||||
rcheck(td >= 0, "log");
|
||||
if (td == 0.0) {
|
||||
realpart(c[i]) = - log(HUGE);
|
||||
imagpart(c[i]) = 0.0;
|
||||
|
|
@ -316,7 +316,7 @@ cx_ln(void *data, short int type, int length, int *newlength, short int *newtype
|
|||
d = alloc_d(length);
|
||||
*newtype = VF_REAL;
|
||||
for (i = 0; i < length; i++) {
|
||||
rcheck(dd[i] >= 0, "ln");
|
||||
rcheck(dd[i] >= 0, "log");
|
||||
if (dd[i] == 0.0)
|
||||
d[i] = - log(HUGE);
|
||||
else
|
||||
|
|
|
|||
|
|
@ -17,7 +17,7 @@ void * cx_imag(void *data, short int type, int length, int *newlength, short int
|
|||
void * cx_pos(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
void * cx_db(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
void * cx_log10(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
void * cx_ln(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
void * cx_log(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
void * cx_exp(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
void * cx_sqrt(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
void * cx_sin(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
|
|
|
|||
Loading…
Reference in New Issue