2
//Eelemt wize Sine-inverse of x
3
//Entries of vector x must be in [-1,+1]
4
//Entries of t are in ]-pi/2,pi/2[ x ]-inf,+inf[
5
// -pi/2 x [0,+inf] and pi/2 x ]-inf,0] (real x imag)
9
if type(x)<>1 then error(53),end
10
if x==[] then t=[],return,end
11
t=-%i*log(%i*x+sqrt(ones(x)-x.*x))
12
if norm(imag(x))==0&maxi(abs(x))<=1 then t=real(t);end