Thread 2d vektoren rotieren (8 answers)
Opened by lichtkind at 2011-05-09 21:44

MatthiasW
 2011-05-10 16:50
#148429 #148429
User since
2008-01-27
367 Artikel
BenutzerIn
[default_avatar]
Ein Modul speziell dazu kann ich dir nicht empfehlen, allerdings gibt es im CPAN einige Module, die sich danach anhören: CPAN:Math::Geometry, CPAN:PDL::Transform, CPAN:Math::GMatrix. Nur habe ich davon noch keines verwendet.

IMHO kann man da aber auch eine eigene kleine Funktion schreiben:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12

# rotate ($x, $y, $angle_in_radians) => ($new_x, $new_y)
sub rotate {
    my ($x, $y, $angle) = @_;
    
    my $len = sqrt($x*$x + $y*$y);
    
    $angle += atan2($y, $x);
    
    return
        $len * cos($angle),
        $len * sin($angle);
}

MfG
perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View full thread 2d vektoren rotieren