cleanup, rename rename cx_log --> cx_log10 (.control language)
This commit is contained in:
parent
bdf70bd2b0
commit
c926f46986
|
|
@ -149,8 +149,8 @@ struct func ft_funcs[] = {
|
|||
{ "imag", cx_imag },
|
||||
{ "im", cx_imag },
|
||||
{ "db", cx_db },
|
||||
{ "log", cx_log },
|
||||
{ "log10", cx_log },
|
||||
{ "log", cx_log10 },
|
||||
{ "log10", cx_log10 },
|
||||
{ "ln", cx_ln },
|
||||
{ "exp", cx_exp },
|
||||
{ "abs", cx_mag },
|
||||
|
|
|
|||
|
|
@ -61,7 +61,7 @@ extern void *cx_real(void *, short int , int , int *, short int *);
|
|||
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_log(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_exp(void *, short int , int , int *, short int *);
|
||||
extern void *cx_sqrt(void *, short int , int , int *, short int *);
|
||||
|
|
|
|||
|
|
@ -236,7 +236,7 @@ cx_db(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)
|
||||
cx_log10(void *data, short int type, int length, int *newlength, short int *newtype)
|
||||
{
|
||||
*newlength = length;
|
||||
if (type == VF_COMPLEX) {
|
||||
|
|
@ -253,7 +253,7 @@ cx_log(void *data, short int type, int length, int *newlength, short int *newtyp
|
|||
/* Perhaps we should trap when td = 0.0, but Ken wants
|
||||
* this to be possible...
|
||||
*/
|
||||
rcheck(td >= 0, "log");
|
||||
rcheck(td >= 0, "log10");
|
||||
if (td == 0.0) {
|
||||
realpart(c[i]) = - log10(HUGE);
|
||||
imagpart(c[i]) = 0.0;
|
||||
|
|
@ -272,7 +272,7 @@ cx_log(void *data, short int type, int length, int *newlength, short int *newtyp
|
|||
d = alloc_d(length);
|
||||
*newtype = VF_REAL;
|
||||
for (i = 0; i < length; i++) {
|
||||
rcheck(dd[i] >= 0, "log");
|
||||
rcheck(dd[i] >= 0, "log10");
|
||||
if (dd[i] == 0.0)
|
||||
d[i] = - log10(HUGE);
|
||||
else
|
||||
|
|
|
|||
|
|
@ -16,7 +16,7 @@ void * cx_real(void *data, short int type, int length, int *newlength, short int
|
|||
void * cx_imag(void *data, short int type, int length, int *newlength, short int *newtype);
|
||||
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_log(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_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);
|
||||
|
|
|
|||
Loading…
Reference in New Issue