| ... | ... | @@ -4,6 +4,12 @@ |
| 4 | 4 | // https://git.musl-libc.org/cgit/musl/tree/src/math/atanf.c |
| 5 | 5 | // https://git.musl-libc.org/cgit/musl/tree/src/math/atan.c |
| 6 | 6 | // https://git.musl-libc.org/cgit/musl/tree/src/math/atanl.c |
| 7 | // |
| 8 | // Ported from ARM-software, which is licensed under the MIT license: |
| 9 | // https://github.com/ARM-software/optimized-routines/blob/master/LICENSE |
| 10 | // |
| 11 | // https://github.com/ARM-software/optimized-routines/blob/master/math/aarch64/advsimd/atanf.c |
| 12 | // https://github.com/ARM-software/optimized-routines/blob/master/math/aarch64/advsimd/atan.c |
| 7 | 13 | |
| 8 | 14 | const std = @import("../std.zig"); |
| 9 | 15 | const math = std.math; |
| ... | ... | @@ -17,14 +23,22 @@ const testing = std.testing; |
| 17 | 23 | /// - atan(+-inf) = +-pi/2 |
| 18 | 24 | pub fn atan(x: anytype) @TypeOf(x) { |
| 19 | 25 | const T = @TypeOf(x); |
| 20 | | return switch (T) { |
| 21 | | f16 => atanBinary16(x), |
| 22 | | f32 => atanBinary32(x), |
| 23 | | f64 => atanBinary64(x), |
| 24 | | f80 => atanExtended80(x), |
| 25 | | f128 => atanBinary128(x), |
| 26 | | else => @compileError("atan not implemented for " ++ @typeName(T)), |
| 27 | | }; |
| 26 | switch (@typeInfo(T)) { |
| 27 | .float => |info| switch (info.bits) { |
| 28 | 16 => return atanBinary16(x), |
| 29 | 32 => return atanBinary32(x), |
| 30 | 64 => return atanBinary64(x), |
| 31 | 80 => return atanExtended80(x), |
| 32 | 128 => return atanBinary128(x), |
| 33 | else => comptime unreachable, |
| 34 | }, |
| 35 | .vector => |info| switch (info.child) { |
| 36 | f32 => return atanBinary32Vec(info.len, x), |
| 37 | f64 => return atanBinary64Vec(info.len, x), |
| 38 | else => @compileError("unimplemented"), |
| 39 | }, |
| 40 | else => comptime unreachable, |
| 41 | } |
| 28 | 42 | } |
| 29 | 43 | |
| 30 | 44 | fn atanBinary16(x: f16) f16 { |
| ... | ... | @@ -579,3 +593,186 @@ test "atanBinary128" { |
| 579 | 593 | try testing.expectApproxEqAbs(atanBinary128(0x1.299d54ac7d6afc5154643b601519p1), 0x1.2a24e22d861debfd6f974500567fp0, math.floatEpsAt(f128, 0x1.2a24e22d861debfd6f974500567fp0)); |
| 580 | 594 | try testing.expectApproxEqAbs(atanBinary128(-0x1.0264fb9f3d50e4f0f966f0686064p1), -0x1.1c617825f97512b7f38656ab12cdp0, math.floatEpsAt(f128, -0x1.1c617825f97512b7f38656ab12cdp0)); |
| 581 | 595 | } |
| 596 | |
| 597 | fn atanBinary32Vec(comptime vec_len: comptime_int, x: @Vector(vec_len, f32)) @TypeOf(x) { |
| 598 | const sign_mask: @Vector(vec_len, u32) = @splat(0x80000000); |
| 599 | const neg_one: @Vector(vec_len, f32) = @splat(-1.0); |
| 600 | const pi_over_2: @Vector(vec_len, u32) = @splat(0x3fc90fdb); |
| 601 | const zero: @Vector(vec_len, u32) = @splat(0); |
| 602 | const c0: @Vector(vec_len, f32) = @splat(-0x1.5554dcp-2); |
| 603 | const c1: @Vector(vec_len, f32) = @splat(0x1.9978ecp-3); |
| 604 | const c2: @Vector(vec_len, f32) = @splat(-0x1.230a94p-3); |
| 605 | const c3: @Vector(vec_len, f32) = @splat(0x1.b4debp-4); |
| 606 | const c4: @Vector(vec_len, f32) = @splat(-0x1.3550dap-4); |
| 607 | const c5: @Vector(vec_len, f32) = @splat(0x1.61eebp-5); |
| 608 | const c6: @Vector(vec_len, f32) = @splat(-0x1.0c17d4p-6); |
| 609 | const c7: @Vector(vec_len, f32) = @splat(0x1.7ea694p-9); |
| 610 | |
| 611 | const ix: @Vector(vec_len, u32) = @bitCast(x); |
| 612 | const sign = ix & sign_mask; |
| 613 | const pred = @abs(x) > @abs(neg_one); |
| 614 | const z = @select(f32, pred, neg_one / x, x); |
| 615 | const shift: @Vector(vec_len, f32) = @bitCast(@select(u32, pred, pi_over_2 ^ sign, zero)); |
| 616 | const z2 = z * z; |
| 617 | const z3 = z * z2; |
| 618 | const z4 = z2 * z2; |
| 619 | const z8 = z4 * z4; |
| 620 | const p0_1 = @mulAdd(@Vector(vec_len, f32), z2, c1, c0); |
| 621 | const p2_3 = @mulAdd(@Vector(vec_len, f32), z2, c3, c2); |
| 622 | const p4_5 = @mulAdd(@Vector(vec_len, f32), z2, c5, c4); |
| 623 | const p6_7 = @mulAdd(@Vector(vec_len, f32), z2, c7, c6); |
| 624 | const p0_3 = @mulAdd(@Vector(vec_len, f32), z4, p2_3, p0_1); |
| 625 | const p4_7 = @mulAdd(@Vector(vec_len, f32), z4, p6_7, p4_5); |
| 626 | const p0_7 = @mulAdd(@Vector(vec_len, f32), z8, p4_7, p0_3); |
| 627 | return @mulAdd(@Vector(vec_len, f32), z3, p0_7, shift + z); |
| 628 | } |
| 629 | |
| 630 | fn atanBinary64Vec(comptime vec_len: comptime_int, x: @Vector(vec_len, f64)) @TypeOf(x) { |
| 631 | const sign_mask: @Vector(vec_len, u64) = @splat(0x8000000000000000); |
| 632 | const neg_one: @Vector(vec_len, f64) = @splat(-1.0); |
| 633 | const pi_over_2: @Vector(vec_len, u64) = @splat(0x3ff921fb54442d18); |
| 634 | const zero: @Vector(vec_len, u64) = @splat(0); |
| 635 | const c0: @Vector(vec_len, f64) = @splat(-0x1.555555555552ap-2); |
| 636 | const c1: @Vector(vec_len, f64) = @splat(0x1.9999999995aebp-3); |
| 637 | const c2: @Vector(vec_len, f64) = @splat(-0x1.24924923923f6p-3); |
| 638 | const c3: @Vector(vec_len, f64) = @splat(0x1.c71c7184288a2p-4); |
| 639 | const c4: @Vector(vec_len, f64) = @splat(-0x1.745d11fb3d32bp-4); |
| 640 | const c5: @Vector(vec_len, f64) = @splat(0x1.3b136a18051b9p-4); |
| 641 | const c6: @Vector(vec_len, f64) = @splat(-0x1.110e6d985f496p-4); |
| 642 | const c7: @Vector(vec_len, f64) = @splat(0x1.e1bcf7f08801dp-5); |
| 643 | const c8: @Vector(vec_len, f64) = @splat(-0x1.ae644e28058c3p-5); |
| 644 | const c9: @Vector(vec_len, f64) = @splat(0x1.82eeb1fed85c6p-5); |
| 645 | const c10: @Vector(vec_len, f64) = @splat(-0x1.59d7f901566cbp-5); |
| 646 | const c11: @Vector(vec_len, f64) = @splat(0x1.2c982855ab069p-5); |
| 647 | const c12: @Vector(vec_len, f64) = @splat(-0x1.eb49592998177p-6); |
| 648 | const c13: @Vector(vec_len, f64) = @splat(0x1.69d8b396e3d38p-6); |
| 649 | const c14: @Vector(vec_len, f64) = @splat(-0x1.ca980345c4204p-7); |
| 650 | const c15: @Vector(vec_len, f64) = @splat(0x1.dc050eafde0b3p-8); |
| 651 | const c16: @Vector(vec_len, f64) = @splat(-0x1.7ea70755b8eccp-9); |
| 652 | const c17: @Vector(vec_len, f64) = @splat(0x1.ba3da3de903e8p-11); |
| 653 | const c18: @Vector(vec_len, f64) = @splat(-0x1.44a4b059b6f67p-13); |
| 654 | const c19: @Vector(vec_len, f64) = @splat(0x1.c4a45029e5a91p-17); |
| 655 | |
| 656 | const ix: @Vector(vec_len, u64) = @bitCast(x); |
| 657 | const sign = ix & sign_mask; |
| 658 | const pred = @abs(x) > @abs(neg_one); |
| 659 | const shift: @Vector(vec_len, f64) = @bitCast(@select(u64, pred, pi_over_2 ^ sign, zero)); |
| 660 | const z = @select(f64, pred, neg_one / x, x); |
| 661 | const z2 = z * z; |
| 662 | const z3 = z * z2; |
| 663 | const z4 = z2 * z2; |
| 664 | const z8 = z4 * z4; |
| 665 | const z16 = z8 * z8; |
| 666 | const p0_1 = @mulAdd(@Vector(vec_len, f64), z2, c1, c0); |
| 667 | const p2_3 = @mulAdd(@Vector(vec_len, f64), z2, c3, c2); |
| 668 | const p0_3 = @mulAdd(@Vector(vec_len, f64), z4, p2_3, p0_1); |
| 669 | const p4_5 = @mulAdd(@Vector(vec_len, f64), z2, c5, c4); |
| 670 | const p6_7 = @mulAdd(@Vector(vec_len, f64), z2, c7, c6); |
| 671 | const p4_7 = @mulAdd(@Vector(vec_len, f64), z4, p6_7, p4_5); |
| 672 | const p0_7 = @mulAdd(@Vector(vec_len, f64), z8, p4_7, p0_3); |
| 673 | const p8_9 = @mulAdd(@Vector(vec_len, f64), z2, c9, c8); |
| 674 | const p10_11 = @mulAdd(@Vector(vec_len, f64), z2, c11, c10); |
| 675 | const p8_11 = @mulAdd(@Vector(vec_len, f64), z4, p10_11, p8_9); |
| 676 | const p12_13 = @mulAdd(@Vector(vec_len, f64), z2, c13, c12); |
| 677 | const p14_15 = @mulAdd(@Vector(vec_len, f64), z2, c15, c14); |
| 678 | const p12_15 = @mulAdd(@Vector(vec_len, f64), z4, p14_15, p12_13); |
| 679 | const p16_17 = @mulAdd(@Vector(vec_len, f64), z2, c17, c16); |
| 680 | const p18_19 = @mulAdd(@Vector(vec_len, f64), z2, c19, c18); |
| 681 | const p16_19 = @mulAdd(@Vector(vec_len, f64), z4, p18_19, p16_17); |
| 682 | const p8_15 = @mulAdd(@Vector(vec_len, f64), z8, p12_15, p8_11); |
| 683 | const p8_19 = @mulAdd(@Vector(vec_len, f64), z16, p16_19, p8_15); |
| 684 | const p0_19 = @mulAdd(@Vector(vec_len, f64), p8_19, z16, p0_7); |
| 685 | return @mulAdd(@Vector(vec_len, f64), z3, p0_19, shift + z); |
| 686 | } |
| 687 | |
| 688 | test "atanBinary32Vec.special" { |
| 689 | const input: @Vector(7, f32) = .{ |
| 690 | 0x0p+0, |
| 691 | -0x0p+0, |
| 692 | 0x1p+0, |
| 693 | -0x1p+0, |
| 694 | math.inf(f32), |
| 695 | -math.inf(f32), |
| 696 | math.nan(f32), |
| 697 | }; |
| 698 | const output = atanBinary32Vec(7, input); |
| 699 | try testing.expectEqual(output[0], 0x0p+0); |
| 700 | try testing.expectEqual(output[1], -0x0p+0); |
| 701 | try testing.expectApproxEqAbs(output[2], 0x1.921fb6p-1, math.floatEpsAt(f32, 0x1.921fb6p-1)); |
| 702 | try testing.expectApproxEqAbs(output[3], -0x1.921fb6p-1, math.floatEpsAt(f32, -0x1.921fb6p-1)); |
| 703 | try testing.expectApproxEqAbs(output[4], 0x1.921fb6p+0, math.floatEpsAt(f32, 0x1.921fb6p+0)); |
| 704 | try testing.expectApproxEqAbs(output[5], -0x1.921fb6p+0, math.floatEpsAt(f32, -0x1.921fb6p+0)); |
| 705 | try testing.expect(math.isNan(output[6])); |
| 706 | } |
| 707 | |
| 708 | test "atanBinary32Vec" { |
| 709 | const input: @Vector(10, f32) = .{ |
| 710 | -0x1.8629dp-2, |
| 711 | -0x1.59d42ep1, |
| 712 | -0x1.d2dbe2p0, |
| 713 | -0x1.5f314ep-1, |
| 714 | 0x1.5869bp1, |
| 715 | -0x1.b13a06p-2, |
| 716 | 0x1.3cb0f2p1, |
| 717 | -0x1.0ed746p-2, |
| 718 | 0x1.299d54p1, |
| 719 | -0x1.0264fcp1, |
| 720 | }; |
| 721 | const output = atanBinary32Vec(10, input); |
| 722 | try testing.expectApproxEqAbs(output[0], -0x1.74c62p-2, math.floatEpsAt(f32, -0x1.74c62p-2)); |
| 723 | try testing.expectApproxEqAbs(output[1], -0x1.375fd8p0, math.floatEpsAt(f32, -0x1.375fd8p0)); |
| 724 | try testing.expectApproxEqAbs(output[2], -0x1.11b8aep0, math.floatEpsAt(f32, -0x1.11b8aep0)); |
| 725 | try testing.expectApproxEqAbs(output[3], -0x1.33d28cp-1, math.floatEpsAt(f32, -0x1.33d28cp-1)); |
| 726 | try testing.expectApproxEqAbs(output[4], 0x1.37082ep0, math.floatEpsAt(f32, 0x1.37082ep0)); |
| 727 | try testing.expectApproxEqAbs(output[5], -0x1.99d7cap-2, math.floatEpsAt(f32, -0x1.99d7cap-2)); |
| 728 | try testing.expectApproxEqAbs(output[6], 0x1.2fcb12p0, math.floatEpsAt(f32, 0x1.2fcb12p0)); |
| 729 | try testing.expectApproxEqAbs(output[7], -0x1.08c71ap-2, math.floatEpsAt(f32, -0x1.08c71ap-2)); |
| 730 | try testing.expectApproxEqAbs(output[8], 0x1.2a24e2p0, math.floatEpsAt(f32, 0x1.2a24e2p0)); |
| 731 | try testing.expectApproxEqAbs(output[9], -0x1.1c6178p0, math.floatEpsAt(f32, -0x1.1c6178p0)); |
| 732 | } |
| 733 | |
| 734 | test "atanBinary64Vec.special" { |
| 735 | const input: @Vector(7, f64) = .{ |
| 736 | 0x0p+0, |
| 737 | -0x0p+0, |
| 738 | 0x1p+0, |
| 739 | -0x1p+0, |
| 740 | math.inf(f64), |
| 741 | -math.inf(f64), |
| 742 | math.nan(f64), |
| 743 | }; |
| 744 | const output = atanBinary64Vec(7, input); |
| 745 | try testing.expectEqual(output[0], 0x0p+0); |
| 746 | try testing.expectEqual(output[1], -0x0p+0); |
| 747 | try testing.expectApproxEqAbs(output[2], 0x1.921fb54442d18p-1, math.floatEpsAt(f64, 0x1.921fb54442d18p-1)); |
| 748 | try testing.expectApproxEqAbs(output[3], -0x1.921fb54442d18p-1, math.floatEpsAt(f64, -0x1.921fb54442d18p-1)); |
| 749 | try testing.expectApproxEqAbs(output[4], 0x1.921fb54442d18p+0, math.floatEpsAt(f64, 0x1.921fb54442d18p+0)); |
| 750 | try testing.expectApproxEqAbs(output[5], -0x1.921fb54442d18p+0, math.floatEpsAt(f64, -0x1.921fb54442d18p+0)); |
| 751 | try testing.expect(math.isNan(output[6])); |
| 752 | } |
| 753 | |
| 754 | test "atanBinary64Vec" { |
| 755 | const input: @Vector(10, f64) = .{ |
| 756 | -0x1.8629d0244cdccp-2, |
| 757 | -0x1.59d42d4659937p1, |
| 758 | -0x1.d2dbe23d04f06p0, |
| 759 | -0x1.5f314e72398e8p-1, |
| 760 | 0x1.5869af37b7d08p1, |
| 761 | -0x1.b13a05a662618p-2, |
| 762 | 0x1.3cb0f12f39d8ap1, |
| 763 | -0x1.0ed746b39cbb7p-2, |
| 764 | 0x1.299d54ac7d6bp1, |
| 765 | -0x1.0264fb9f3d50ep1, |
| 766 | }; |
| 767 | const output = atanBinary64Vec(10, input); |
| 768 | try testing.expectApproxEqAbs(output[0], -0x1.74c61f4377016p-2, math.floatEpsAt(f64, -0x1.74c61f4377016p-2)); |
| 769 | try testing.expectApproxEqAbs(output[1], -0x1.375fd7987cc2p0, math.floatEpsAt(f64, -0x1.375fd7987cc2p0)); |
| 770 | try testing.expectApproxEqAbs(output[2], -0x1.11b8adeba5616p0, math.floatEpsAt(f64, -0x1.11b8adeba5616p0)); |
| 771 | try testing.expectApproxEqAbs(output[3], -0x1.33d28ca762539p-1, math.floatEpsAt(f64, -0x1.33d28ca762539p-1)); |
| 772 | try testing.expectApproxEqAbs(output[4], 0x1.37082ce2dd03p0, math.floatEpsAt(f64, 0x1.37082ce2dd03p0)); |
| 773 | try testing.expectApproxEqAbs(output[5], -0x1.99d7cac66dd44p-2, math.floatEpsAt(f64, -0x1.99d7cac66dd44p-2)); |
| 774 | try testing.expectApproxEqAbs(output[6], 0x1.2fcb120468e8ep0, math.floatEpsAt(f64, 0x1.2fcb120468e8ep0)); |
| 775 | try testing.expectApproxEqAbs(output[7], -0x1.08c71aa0e509p-2, math.floatEpsAt(f64, -0x1.08c71aa0e509p-2)); |
| 776 | try testing.expectApproxEqAbs(output[8], 0x1.2a24e22d861dfp0, math.floatEpsAt(f64, 0x1.2a24e22d861dfp0)); |
| 777 | try testing.expectApproxEqAbs(output[9], -0x1.1c617825f9751p0, math.floatEpsAt(f64, -0x1.1c617825f9751p0)); |
| 778 | } |