43 |
return(z); |
return(z); |
44 |
} |
} |
45 |
|
|
46 |
|
static object number_sin(object); |
47 |
|
static object number_cos(object); |
48 |
|
static object number_exp(object); |
49 |
|
static object number_nlog(object); |
50 |
|
static object number_atan2(object,object); |
51 |
|
|
52 |
|
|
53 |
static object |
static object |
54 |
number_exp(object x) |
number_exp(object x) |
55 |
{ |
{ |
71 |
case t_complex: |
case t_complex: |
72 |
{ |
{ |
73 |
object y, y1; |
object y, y1; |
|
static object number_sin(object x), number_cos(object x); |
|
74 |
vs_mark; |
vs_mark; |
75 |
|
|
76 |
y = x->cmp.cmp_imag; |
y = x->cmp.cmp_imag; |
99 |
{ |
{ |
100 |
enum type tx, ty; |
enum type tx, ty; |
101 |
object z; |
object z; |
|
static object number_nlog(object x); |
|
102 |
vs_mark; |
vs_mark; |
103 |
|
|
104 |
tx = type_of(x); |
tx = type_of(x); |
182 |
{ |
{ |
183 |
double log(double); |
double log(double); |
184 |
object r=Cnil, i=Cnil, a, p; |
object r=Cnil, i=Cnil, a, p; |
|
static object number_sqrt(object x), number_atan2(object y, object x); |
|
185 |
vs_mark; |
vs_mark; |
186 |
|
|
187 |
if (type_of(x) == t_complex) { |
if (type_of(x) == t_complex) { |