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

another defintion of |z|
: |z| ( z: a+ib -- m) ( f: a b--m)
    fabs fswap fabs fswap ( f: |a| |b|)
    fover fover  fmax     ( f: |a| |b| mx)
    frot frot             ( f: mx |a| |b|)
    2 fpick               ( f: mx |a| |b| mx)
    ftuck                 ( f: mx |a| mx |b| mx)
    f/ fdup f*            ( f: mx |a| mx [|b|/mx]^2)
    frot frot             ( f: mx [|b|/mx]^2 |a| mx)
    f/ fdup f*            ( f: mx [|b|/mx]^2 [|a|/mx]^2)
    f+ fsqrt f*           ( f: mx*[[|b|/mx]^2+[|a|/mx]^2]^0.5)
;
Ahmed