31 |
{ |
{ |
32 |
int z; |
int z; |
33 |
|
|
34 |
z = 1; |
z = 1; |
35 |
while (y > 0) |
while (y > 0) |
36 |
if (y%2 == 0) { |
if (y%2 == 0) { |
37 |
x *= x; |
x *= x; |
43 |
return(z); |
return(z); |
44 |
} |
} |
45 |
|
|
46 |
object |
static object |
47 |
number_exp(object x) |
number_exp(object x) |
48 |
{ |
{ |
49 |
double exp(double); |
double exp(double); |
64 |
case t_complex: |
case t_complex: |
65 |
{ |
{ |
66 |
object y, y1; |
object y, y1; |
67 |
object number_sin(object x), number_cos(object x); |
static object number_sin(object x), number_cos(object x); |
68 |
vs_mark; |
vs_mark; |
69 |
|
|
70 |
y = x->cmp.cmp_imag; |
y = x->cmp.cmp_imag; |
92 |
number_expt(object x, object y) |
number_expt(object x, object y) |
93 |
{ |
{ |
94 |
enum type tx, ty; |
enum type tx, ty; |
95 |
object z, number_nlog(object x); |
object z; |
96 |
|
static object number_nlog(object x); |
97 |
vs_mark; |
vs_mark; |
98 |
|
|
99 |
tx = type_of(x); |
tx = type_of(x); |
172 |
return(z); |
return(z); |
173 |
} |
} |
174 |
|
|
175 |
object |
static object |
176 |
number_nlog(object x) |
number_nlog(object x) |
177 |
{ |
{ |
178 |
double log(double); |
double log(double); |
179 |
object r=Cnil, i=Cnil, a, p, number_sqrt(object x), number_atan2(object y, object x); |
object r=Cnil, i=Cnil, a, p; |
180 |
|
static object number_sqrt(object x), number_atan2(object y, object x); |
181 |
vs_mark; |
vs_mark; |
182 |
|
|
183 |
if (type_of(x) == t_complex) { |
if (type_of(x) == t_complex) { |
226 |
return(x); |
return(x); |
227 |
} |
} |
228 |
|
|
229 |
object |
static object |
230 |
number_log(object x, object y) |
number_log(object x, object y) |
231 |
{ |
{ |
232 |
object z; |
object z; |
245 |
return(z); |
return(z); |
246 |
} |
} |
247 |
|
|
248 |
object |
static object |
249 |
number_sqrt(object x) |
number_sqrt(object x) |
250 |
{ |
{ |
251 |
object z; |
object z; |
281 |
return(z); |
return(z); |
282 |
} |
} |
283 |
|
|
284 |
object |
static object |
285 |
number_atan2(object y, object x) |
number_atan2(object y, object x) |
286 |
{ |
{ |
287 |
object z; |
object z; |
317 |
return(z); |
return(z); |
318 |
} |
} |
319 |
|
|
320 |
object |
static object |
321 |
number_atan(object y) |
number_atan(object y) |
322 |
{ |
{ |
323 |
object z, z1; |
object z, z1; |
345 |
return(number_atan2(y, small_fixnum(1))); |
return(number_atan2(y, small_fixnum(1))); |
346 |
} |
} |
347 |
|
|
348 |
object |
static object |
349 |
number_sin(object x) |
number_sin(object x) |
350 |
{ |
{ |
351 |
double sin(double); |
double sin(double); |
392 |
} |
} |
393 |
} |
} |
394 |
|
|
395 |
object |
static object |
396 |
number_cos(object x) |
number_cos(object x) |
397 |
{ |
{ |
398 |
double cos(double); |
double cos(double); |
486 |
} |
} |
487 |
} |
} |
488 |
|
|
489 |
object |
static object |
490 |
number_tan(object x) |
number_tan(object x) |
491 |
{ |
{ |
492 |
object r, c; |
object r, c; |
591 |
too_many_arguments(); |
too_many_arguments(); |
592 |
} |
} |
593 |
|
|
594 |
void |
static void |
595 |
siLmodf(void) |
siLmodf(void) |
596 |
{ |
{ |
597 |
|
|