1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/usr/bin/perl
use Test::More tests => 29;
BEGIN {
if (-f 'dont_use_xs' or -f 't/dont_use_xs') {
$Math::Vector::Real::dont_use_XS = 1;
diag "XS backend dissabled";
}
}
use Math::Vector::Real;
my $PI = 3.14159_26535_89793_23846_26433_83279;
my $u = V(1, 0, 0);
my $v = V(0, 1, 0);
my $w = V(0, 0, 1);
my $r = V(1, 1, 1);
is (abs($_), 1) for ($u, $v, $w);
ok (abs(abs($u + $w) - sqrt(2)) < 0.0001);
ok (abs(cos(atan2($u, $v))) < 0.0001);
ok ($u + $v == [1, 1, 0]);
ok ($u + $w != [1, 1, 1]);
ok ($u - $v == [1, -1, 0]);
ok (-$v - $w * 2 == [0, -1, -2]);
ok (-2 * $v - $w == [0, -2, -1]);
is ($u * $v, 0);
is (($u + $v) * $v, 1);
ok ($u x $v == $w);
ok (abs($u->rotate_3d($PI/2, $v) - $w) < 0.0001);
ok (abs($v->rotate_3d($PI/2, $w) - $u) < 0.0001);
ok (abs($w->rotate_3d($PI/2, $v) - (-$u)) < 0.0001);
my ($b1, $b2, $b3) = $r->rotation_base_3d;
ok (abs($b1 * $r * $b1 - $r) < 0.0001);
ok (abs($b1 x $b2 - $b3) < 0.0001);
my $x = V(2,3,4);
ok ($x x $x == [ 0, 0, 0]);
ok ($x x [ 1, 0, 0] == [ 0, 4, -3]);
ok ($x x [ 1, 1, 0] == [ -4, 4, -1]);
ok ($x x [ -4, 4, -1] == [ -19, -14, 20]);
ok ($x x [-19, -14, 20] == [ 116, -116, 29]);
ok ([ 1, 0, 0] x $x == [ 0, -4, 3]);
ok ([ 1, 1, 0] x $x == [ 4, -4, 1]);
ok ([ -4, 4, -1] x $x == [ 19, 14, -20]);
ok ([-19, -14, 20] x $x == [-116, 116, -29]);
ok ($x / 2 == [1, 1.5, 2]);
my $y = V(@$x);
$y /= 2;
ok ($y == [1, 1.5, 2]);
|
