Skip to content

Commit aea78b8

Browse files
colomoncolomon
committed
Class AngleAndResult gone completely now.
1 parent cd6aeac commit aea78b8

File tree

16 files changed

+293
-305
lines changed

16 files changed

+293
-305
lines changed

‎S32-trig/atan2.t

Lines changed: 88 additions & 88 deletions
Large diffs are not rendered by default.

‎S32-trig/cos.t

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -14,18 +14,18 @@ my $iter_count = 0;
1414
for TrigTest::cosines() -> $angle
1515
{
1616

17-
my $desired-result = $angle.result;
17+
my $desired-result = $angle.value;
1818

1919
# Num.cos tests -- very thorough
20-
is_approx($angle.num().cos, $desired-result,
21-
"Num.cos - {$angle.num()}");
20+
is_approx($angle.key().cos, $desired-result,
21+
"Num.cos - {$angle.key()}");
2222

2323
# Complex.cos tests -- also very thorough
24-
my Complex $zp0 = $angle.num + 0.0i;
24+
my Complex $zp0 = $angle.key + 0.0i;
2525
my Complex $sz0 = $desired-result + 0i;
26-
my Complex $zp1 = $angle.num + 1.0i;
26+
my Complex $zp1 = $angle.key + 1.0i;
2727
my Complex $sz1 = { (exp($_ * 1i) + exp(-$_ * 1i)) / 2 }($zp1);
28-
my Complex $zp2 = $angle.num + 2.0i;
28+
my Complex $zp2 = $angle.key + 2.0i;
2929
my Complex $sz2 = { (exp($_ * 1i) + exp(-$_ * 1i)) / 2 }($zp2);
3030

3131
is_approx($zp0.cos, $sz0, "Complex.cos - $zp0");
@@ -100,18 +100,18 @@ is_approx(cos(:x((2.3561944902142).Str)), -0.707106781186548, "cos(:x(Str)) - 2.
100100
for TrigTest::cosines() -> $angle
101101
{
102102

103-
my $desired-result = $angle.result;
103+
my $desired-result = $angle.value;
104104

105105
# Num.acos tests -- thorough
106106
is_approx($desired-result.Num.acos.cos, $desired-result,
107-
"Num.acos - {$angle.num()}");
107+
"Num.acos - {$angle.key()}");
108108

109109
# Num.acos(Complex) tests -- thorough
110110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
111111
is_approx(cos(acos($z)), $z,
112-
"acos(Complex) - {$angle.num()}");
112+
"acos(Complex) - {$angle.key()}");
113113
is_approx($z.acos.cos, $z,
114-
"Complex.acos - {$angle.num()}");
114+
"Complex.acos - {$angle.key()}");
115115
}
116116
}
117117

‎S32-trig/cosec.t

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -13,19 +13,19 @@ use TrigTestSupport;
1313
my $iter_count = 0;
1414
for TrigTest::sines() -> $angle
1515
{
16-
next if abs(sin($angle.num())) < 1e-6;
17-
my $desired-result = 1.0 / sin($angle.num());
16+
next if abs(sin($angle.key())) < 1e-6;
17+
my $desired-result = 1.0 / sin($angle.key());
1818

1919
# Num.cosec tests -- very thorough
20-
is_approx($angle.num().cosec, $desired-result,
21-
"Num.cosec - {$angle.num()}");
20+
is_approx($angle.key().cosec, $desired-result,
21+
"Num.cosec - {$angle.key()}");
2222

2323
# Complex.cosec tests -- also very thorough
24-
my Complex $zp0 = $angle.num + 0.0i;
24+
my Complex $zp0 = $angle.key + 0.0i;
2525
my Complex $sz0 = $desired-result + 0i;
26-
my Complex $zp1 = $angle.num + 1.0i;
26+
my Complex $zp1 = $angle.key + 1.0i;
2727
my Complex $sz1 = { 1.0 / sin($_) }($zp1);
28-
my Complex $zp2 = $angle.num + 2.0i;
28+
my Complex $zp2 = $angle.key + 2.0i;
2929
my Complex $sz2 = { 1.0 / sin($_) }($zp2);
3030

3131
is_approx($zp0.cosec, $sz0, "Complex.cosec - $zp0");
@@ -99,19 +99,19 @@ is_approx(cosec(:x((6.80678408284103).Str)), 1.99999999978126, "cosec(:x(Str)) -
9999

100100
for TrigTest::sines() -> $angle
101101
{
102-
next if abs(sin($angle.num())) < 1e-6;
103-
my $desired-result = 1.0 / sin($angle.num());
102+
next if abs(sin($angle.key())) < 1e-6;
103+
my $desired-result = 1.0 / sin($angle.key());
104104

105105
# Num.acosec tests -- thorough
106106
is_approx($desired-result.Num.acosec.cosec, $desired-result,
107-
"Num.acosec - {$angle.num()}");
107+
"Num.acosec - {$angle.key()}");
108108

109109
# Num.acosec(Complex) tests -- thorough
110110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
111111
is_approx(cosec(acosec($z)), $z,
112-
"acosec(Complex) - {$angle.num()}");
112+
"acosec(Complex) - {$angle.key()}");
113113
is_approx($z.acosec.cosec, $z,
114-
"Complex.acosec - {$angle.num()}");
114+
"Complex.acosec - {$angle.key()}");
115115
}
116116
}
117117

‎S32-trig/cosech.t

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -13,19 +13,19 @@ use TrigTestSupport;
1313
my $iter_count = 0;
1414
for TrigTest::sines() -> $angle
1515
{
16-
next if abs(sinh($angle.num())) < 1e-6;
17-
my $desired-result = 1.0 / sinh($angle.num());
16+
next if abs(sinh($angle.key())) < 1e-6;
17+
my $desired-result = 1.0 / sinh($angle.key());
1818

1919
# Num.cosech tests -- very thorough
20-
is_approx($angle.num().cosech, $desired-result,
21-
"Num.cosech - {$angle.num()}");
20+
is_approx($angle.key().cosech, $desired-result,
21+
"Num.cosech - {$angle.key()}");
2222

2323
# Complex.cosech tests -- also very thorough
24-
my Complex $zp0 = $angle.num + 0.0i;
24+
my Complex $zp0 = $angle.key + 0.0i;
2525
my Complex $sz0 = $desired-result + 0i;
26-
my Complex $zp1 = $angle.num + 1.0i;
26+
my Complex $zp1 = $angle.key + 1.0i;
2727
my Complex $sz1 = { 1.0 / sinh($_) }($zp1);
28-
my Complex $zp2 = $angle.num + 2.0i;
28+
my Complex $zp2 = $angle.key + 2.0i;
2929
my Complex $sz2 = { 1.0 / sinh($_) }($zp2);
3030

3131
is_approx($zp0.cosech, $sz0, "Complex.cosech - $zp0");
@@ -99,19 +99,19 @@ is_approx(cosech(:x((4.7123889804284).Str)), 0.0179680320529917, "cosech(:x(Str)
9999

100100
for TrigTest::sines() -> $angle
101101
{
102-
next if abs(sinh($angle.num())) < 1e-6;
103-
my $desired-result = 1.0 / sinh($angle.num());
102+
next if abs(sinh($angle.key())) < 1e-6;
103+
my $desired-result = 1.0 / sinh($angle.key());
104104

105105
# Num.acosech tests -- thorough
106106
is_approx($desired-result.Num.acosech.cosech, $desired-result,
107-
"Num.acosech - {$angle.num()}");
107+
"Num.acosech - {$angle.key()}");
108108

109109
# Num.acosech(Complex) tests -- thorough
110110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
111111
is_approx(cosech(acosech($z)), $z,
112-
"acosech(Complex) - {$angle.num()}");
112+
"acosech(Complex) - {$angle.key()}");
113113
is_approx($z.acosech.cosech, $z,
114-
"Complex.acosech - {$angle.num()}");
114+
"Complex.acosech - {$angle.key()}");
115115
}
116116
}
117117

‎S32-trig/cosh.t

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -14,18 +14,18 @@ my $iter_count = 0;
1414
for TrigTest::coshes() -> $angle
1515
{
1616

17-
my $desired-result = $angle.result;
17+
my $desired-result = $angle.value;
1818

1919
# Num.cosh tests -- very thorough
20-
is_approx($angle.num().cosh, $desired-result,
21-
"Num.cosh - {$angle.num()}");
20+
is_approx($angle.key().cosh, $desired-result,
21+
"Num.cosh - {$angle.key()}");
2222

2323
# Complex.cosh tests -- also very thorough
24-
my Complex $zp0 = $angle.num + 0.0i;
24+
my Complex $zp0 = $angle.key + 0.0i;
2525
my Complex $sz0 = $desired-result + 0i;
26-
my Complex $zp1 = $angle.num + 1.0i;
26+
my Complex $zp1 = $angle.key + 1.0i;
2727
my Complex $sz1 = { (exp($_) + exp(-$_)) / 2 }($zp1);
28-
my Complex $zp2 = $angle.num + 2.0i;
28+
my Complex $zp2 = $angle.key + 2.0i;
2929
my Complex $sz2 = { (exp($_) + exp(-$_)) / 2 }($zp2);
3030

3131
is_approx($zp0.cosh, $sz0, "Complex.cosh - $zp0");
@@ -100,18 +100,18 @@ is_approx(cosh(:x((3.92699081702367).Str)), 25.3868611932849, "cosh(:x(Str)) - 3
100100
for TrigTest::coshes() -> $angle
101101
{
102102

103-
my $desired-result = $angle.result;
103+
my $desired-result = $angle.value;
104104

105105
# Num.acosh tests -- thorough
106106
is_approx($desired-result.Num.acosh.cosh, $desired-result,
107-
"Num.acosh - {$angle.num()}");
107+
"Num.acosh - {$angle.key()}");
108108

109109
# Num.acosh(Complex) tests -- thorough
110110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
111111
is_approx(cosh(acosh($z)), $z,
112-
"acosh(Complex) - {$angle.num()}");
112+
"acosh(Complex) - {$angle.key()}");
113113
is_approx($z.acosh.cosh, $z,
114-
"Complex.acosh - {$angle.num()}");
114+
"Complex.acosh - {$angle.key()}");
115115
}
116116
}
117117

‎S32-trig/cotan.t

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -13,19 +13,19 @@ use TrigTestSupport;
1313
my $iter_count = 0;
1414
for TrigTest::sines() -> $angle
1515
{
16-
next if abs(sin($angle.num())) < 1e-6;
17-
my $desired-result = cos($angle.num()) / sin($angle.num());
16+
next if abs(sin($angle.key())) < 1e-6;
17+
my $desired-result = cos($angle.key()) / sin($angle.key());
1818

1919
# Num.cotan tests -- very thorough
20-
is_approx($angle.num().cotan, $desired-result,
21-
"Num.cotan - {$angle.num()}");
20+
is_approx($angle.key().cotan, $desired-result,
21+
"Num.cotan - {$angle.key()}");
2222

2323
# Complex.cotan tests -- also very thorough
24-
my Complex $zp0 = $angle.num + 0.0i;
24+
my Complex $zp0 = $angle.key + 0.0i;
2525
my Complex $sz0 = $desired-result + 0i;
26-
my Complex $zp1 = $angle.num + 1.0i;
26+
my Complex $zp1 = $angle.key + 1.0i;
2727
my Complex $sz1 = { cos($_) / sin($_) }($zp1);
28-
my Complex $zp2 = $angle.num + 2.0i;
28+
my Complex $zp2 = $angle.key + 2.0i;
2929
my Complex $sz2 = { cos($_) / sin($_) }($zp2);
3030

3131
is_approx($zp0.cotan, $sz0, "Complex.cotan - $zp0");
@@ -99,19 +99,19 @@ is_approx(cotan(:x((6.80678408284103).Str)), 1.7320508073163, "cotan(:x(Str)) -
9999

100100
for TrigTest::sines() -> $angle
101101
{
102-
next if abs(sin($angle.num())) < 1e-6;
103-
my $desired-result = cos($angle.num()) / sin($angle.num());
102+
next if abs(sin($angle.key())) < 1e-6;
103+
my $desired-result = cos($angle.key()) / sin($angle.key());
104104

105105
# Num.acotan tests -- thorough
106106
is_approx($desired-result.Num.acotan.cotan, $desired-result,
107-
"Num.acotan - {$angle.num()}");
107+
"Num.acotan - {$angle.key()}");
108108

109109
# Num.acotan(Complex) tests -- thorough
110110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
111111
is_approx(cotan(acotan($z)), $z,
112-
"acotan(Complex) - {$angle.num()}");
112+
"acotan(Complex) - {$angle.key()}");
113113
is_approx($z.acotan.cotan, $z,
114-
"Complex.acotan - {$angle.num()}");
114+
"Complex.acotan - {$angle.key()}");
115115
}
116116
}
117117

‎S32-trig/cotanh.t

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -13,19 +13,19 @@ use TrigTestSupport;
1313
my $iter_count = 0;
1414
for TrigTest::sines() -> $angle
1515
{
16-
next if abs(sinh($angle.num())) < 1e-6;
17-
my $desired-result = cosh($angle.num()) / sinh($angle.num());
16+
next if abs(sinh($angle.key())) < 1e-6;
17+
my $desired-result = cosh($angle.key()) / sinh($angle.key());
1818

1919
# Num.cotanh tests -- very thorough
20-
is_approx($angle.num().cotanh, $desired-result,
21-
"Num.cotanh - {$angle.num()}");
20+
is_approx($angle.key().cotanh, $desired-result,
21+
"Num.cotanh - {$angle.key()}");
2222

2323
# Complex.cotanh tests -- also very thorough
24-
my Complex $zp0 = $angle.num + 0.0i;
24+
my Complex $zp0 = $angle.key + 0.0i;
2525
my Complex $sz0 = $desired-result + 0i;
26-
my Complex $zp1 = $angle.num + 1.0i;
26+
my Complex $zp1 = $angle.key + 1.0i;
2727
my Complex $sz1 = { cosh($_) / sinh ($_) }($zp1);
28-
my Complex $zp2 = $angle.num + 2.0i;
28+
my Complex $zp2 = $angle.key + 2.0i;
2929
my Complex $sz2 = { cosh($_) / sinh ($_) }($zp2);
3030

3131
is_approx($zp0.cotanh, $sz0, "Complex.cotanh - $zp0");
@@ -99,19 +99,19 @@ is_approx(cotanh(:x((4.7123889804284).Str)), 1.000161412061, "cotanh(:x(Str)) -
9999

100100
for TrigTest::sines() -> $angle
101101
{
102-
next if abs(sinh($angle.num())) < 1e-6;
103-
my $desired-result = cosh($angle.num()) / sinh($angle.num());
102+
next if abs(sinh($angle.key())) < 1e-6;
103+
my $desired-result = cosh($angle.key()) / sinh($angle.key());
104104

105105
# Num.acotanh tests -- thorough
106106
is_approx($desired-result.Num.acotanh.cotanh, $desired-result,
107-
"Num.acotanh - {$angle.num()}");
107+
"Num.acotanh - {$angle.key()}");
108108

109109
# Num.acotanh(Complex) tests -- thorough
110110
for ($desired-result + 0i, $desired-result + .5i, $desired-result + 2i) -> $z {
111111
is_approx(cotanh(acotanh($z)), $z,
112-
"acotanh(Complex) - {$angle.num()}");
112+
"acotanh(Complex) - {$angle.key()}");
113113
is_approx($z.acotanh.cotanh, $z,
114-
"Complex.acotanh - {$angle.num()}");
114+
"Complex.acotanh - {$angle.key()}");
115115
}
116116
}
117117

0 commit comments

Comments
 (0)