sqrt(1+i)

[roadrunner]

(07-04-2021 03:50 PM)Albert Chan Wrote:  Code is wrong. Think polar form (cis(θ) = cos(θ) + i*sin(θ))

That works a lot better. Revision B of rootroot:

Code:

#pragma mode( separator(.,;) integer(h32) )

rootroot(a,n);

#cas

rootroot(a,n):=
BEGIN
 n:=trunc(n);
 if n<=0 then return undef; end;
 csqrt:=√((abs(a)+re(a))/2)+sign(im(a))*i*√((abs(a)-re(a))/2);
 if n==1 then return csqrt; end;
 return rootroot(csqrt,n-1);
END;

#end

Thank you sir!

-road