version 1.2, 1999/12/21 02:47:33 |
version 1.4, 2003/04/20 08:01:28 |
|
|
@comment $OpenXM$ |
@comment $OpenXM: OpenXM/src/asir-doc/parts/builtin/function.texi,v 1.3 2002/09/03 01:50:59 noro Exp $ |
\BJP |
\BJP |
@node $BH!?t$KBP$9$kA`:n(B,,, $BAH$_9~$_H!?t(B |
@node $BH!?t$KBP$9$kA`:n(B,,, $BAH$_9~$_H!?t(B |
@section $BH!?t$KBP$9$kA`:n(B |
@section $BH!?t$KBP$9$kA`:n(B |
Line 52 x $B$r0z?t$H$9$kH!?t8F$S=P$7$^$?$OH!?t7A<0$,F~NO$G$-$ |
|
Line 52 x $B$r0z?t$H$9$kH!?t8F$S=P$7$^$?$OH!?t7A<0$,F~NO$G$-$ |
|
\E |
\E |
\BEG |
\BEG |
@item |
@item |
@xref{vtype} for function form. |
See @ref{vtype} for function form. |
@item |
@item |
Extract the functor and the arguments of function form @var{func}. |
Extract the functor and the arguments of function form @var{func}. |
@item |
@item |
|
|
[x] |
[x] |
[0] funargs(sin(3*cos(y))); |
[0] funargs(sin(3*cos(y))); |
[sin,3*cos(y)] |
[sin,3*cos(y)] |
[1] for (L=[sin,cos,tan];L!=[];L=cdr(L)) @{A=car(L); print(eval((*A)(@@pi/3)));@} |
[1] for (L=[sin,cos,tan];L!=[];L=cdr(L)) @{A=car(L); |
|
print(eval((*A)(@@pi/3)));@} |
0.86602540349122136831 |
0.86602540349122136831 |
0.5000000002 |
0.5000000002 |
1.7320508058 |
1.7320508058 |