zig/lib/std/math/complex/atanh.zig

const std = @import("../../std.zig");
const testing = std.testing;
const math = std.math;
const cmath = math.complex;
const Complex = cmath.Complex;

/// Returns the hyperbolic arc-tangent of z.
pub fn atanh(z: anytype) Complex(@TypeOf(z.re, z.im)) {
    const T = @TypeOf(z.re, z.im);
    const q = Complex(T).init(-z.im, z.re);
    const r = cmath.atan(q);
    return Complex(T).init(r.im, -r.re);
}

const epsilon = 0.0001;

test "complex.catanh" {
    const a = Complex(f32).init(5, 3);
    const c = atanh(a);

    try testing.expect(math.approxEqAbs(f32, c.re, 0.146947, epsilon));
    try testing.expect(math.approxEqAbs(f32, c.im, 1.480870, epsilon));
}