/ 
Math-3Space-0.007
River stage zero No dependents
/ Math::3Space::Vector

NAME

Math::3Space::Vector - Object wrapping a buffer of three doubles

SYNOPSIS

use Math::3Space::Vector 'vec3';

$vec= vec3(1,2,3);

say $vec->x;
$vec->x(12);

($x, $y, $z)= $vec->xyz;
$vec->set(4,3,2);

$dot_product= vec3(0,1,0)->dot(1,0,0);
$cross_product= vec3(1,0,0)->cross(0,0,1);

DESCRIPTION

This object is a blessed scalar-ref of a buffer of floating point numbers (Perl's float type, either double or long double). The vector is always 3 elements long. For more general vector classes, see many other modules on CPAN. This is simply an efficient way for the 3Space object to pass vectors around without fully allocating Perl structures for them.

CONSTRUCTOR

vec3

$vec= vec3($x, $y, $z);
$vec= vec3([ $x, $y, $z ]);
$vec= vec3({ x => $x, y => $y, z => $z });
$vec= pdl([ $x, $y, $z ]);
$vec2= vec3($vec);

new

$vec= Math::3Space::Vector->new(); # 0,0,0
$vec= Math::3Space::Vector->new([ $x, $y, $z ]);
$vec= Math::3Space::Vector->new(x => $x, y => $y, z => $z);
$vec= Math::3Space::Vector->new({ x => $x, y => $y, z => $z });
$vec= Math::3Space::Vector->new(pdl([ $x, $y, $z ]));

ATTRIBUTES

x

Read/write 'x' field.

y

Read/write 'y' field.

z

Read/write 'z' field.

xyz

Read list of (x,y,z).

magnitude

$mag= $vector->magnitude;
$vector->magnitude($new_length);

Read/write length of vector. Attempting to write to a vector with length 0 emits a warning and does nothing.

METHODS

set

$vector->set($vec2);
$vector->set($x,$y,$z);
$vector->set([$x,$y,$z]);

add

$vector->add($vec2);
$vector->add($x,$y);
$vector->add($x,$y,$z);
$vector->add([$x,$y,$z]);

sub

$vector->sub($vec2);
$vector->sub($x,$y);
$vector->sub($x,$y,$z);
$vector->sub([$x,$y,$z]);

scale

$vector->scale($scale); # x= y= z= $scale
$vector->scale($x, $y); # z= 1
$vector->scale($x, $y, $z);
$vector->scale([$x, $y, $z]);
$vector->scale($vec2);

Multiply each component of the vector by a scalar.

dot

$prod= $vector->dot($vector2);
$prod= $vector->dot($x,$y,$z);
$prod= $vector->dot([$x,$y,$z]);

Dot product with another vector.

cos

$cos= $vector->cos($vector2);
$cos= $vector->cos($x,$y,$z);
$cos= $vector->cos([$x,$y,$z]);

Return the vector-cosine to the other vector. This is the same as the dot product divided by the magnitudes of the vectors, or identical to the dot product when the vectors are unit-length. This dies if either vector is zero length (or too close to zero for available floating precision).

cross

$c= $a->cross($b);
$c= $a->cross($bx, $by, $bz);
$c= $a->cross([$bx, $by, $bz]);
$c->cross($a, $b);

Return a new vector which is the cross product A x B, or if called with 2 parameters assign the cross product to the object itself.

SEE ALSO

PDL

Perl Data Language ndarray are a good alternative, allowing for operations on many vectors in parallel.

AUTHOR

Michael Conrad <mike@nrdvana.net>

VERSION

version 0.007

COPYRIGHT AND LICENSE

This software is copyright (c) 2024 by Michael Conrad.

This is free software; you can redistribute it and/or modify it under the same terms as the Perl 5 programming language system itself.