Re: Complex square root of -1 : zsqrt(-1)

Another definition for |z|
: |z| ( z: a+ib -- m) ( f: a b--m)
fover fabs fover fabs ( f: a b |a| |b|)
fmax                  ( f: a b mx)
frot frot             ( f: mx a b)
fover fabs fover fabs fmax ( f: mx a b mx)
ftuck                      ( f: mx a mx b mx)
f/                         ( f: mx a mx b/mx)
fdup f* frot frot          ( f: mx [b/mx]^2 a mx)
f/ fdup f* f+ fsqrt f* ;
Ahmed