2d vektoren rotieren (Allgemeines zu Perl)

[thread]16267[/thread]

2d vektoren rotieren

Tags: perl5 Ähnliche Threads

Leser: 22

Articles: hide open all | hide show old branches

+9 replies
lichtkind

2011-05-09 21:44

User since
2004-03-22
5730 Artikel
ModeratorIn + EditorIn

welches modul könnt ihr dazu empfehlen,

vielen dank
mein zeug:, Leute

Es beginnt immer mit einer Entscheidung.
- +8 replies
- MatthiasW
  
  2011-05-10 16:50
  User since
  2008-01-27
  367 Artikel
  BenutzerIn
  Ein Modul speziell dazu kann ich dir nicht empfehlen, allerdings gibt es im CPAN einige Module, die sich danach anhören: Math::Geometry, PDL::Transform, 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"'
  - +3 replies
  - lichtkind
    
    2011-05-10 20:16
    
    User since
    2004-03-22
    5730 Artikel
    ModeratorIn + EditorIn
    
    danke dir, heut abend wollt ich mich ransetzen und hatte sowas ähnliches überlegt, war aber nicht so bewusst das es atan2 gibt
    
    danke
    mein zeug:, Leute
    
    Es beginnt immer mit einer Entscheidung.
    - +2 replies
    - murphy
      
      2011-05-10 20:25
      
      User since
      2004-07-19
      1776 Artikel
      HausmeisterIn
      
      atan2 gibt es in so gut wie jeder Programmiersprache!
      When C++ is your hammer, every problem looks like your thumb.
      - lichtkind
        
        2011-05-10 20:37
        
        User since
        2004-03-22
        5730 Artikel
        ModeratorIn + EditorIn
        
        nur leider ist mein wissen nicht allumfassend. auch wenn ich auf vorträgen gerne den dicken mache
        mein zeug:, Leute
        
        Es beginnt immer mit einer Entscheidung.
  - +4 replies
  - murphy
    
    2011-05-10 20:39
    User since
    2004-07-19
    1776 Artikel
    HausmeisterIn
    
    2011-05-10T14:50:58 MatthiasW
    [...]
    IMHO kann man da aber auch eine eigene kleine Funktion schreiben:
    [...]
    
    Kann man, und es geht auch noch etwas weniger umständlich ;-)
    
    Code (perl): (dl )
    
    1 2 3 4 5
    
    sub rotate { my ($x, $y, $r) = @_; my ($s, $c) = (sin($r), cos($r)); return ($c*$x - $s*$y, $s*$x + $c*$y); }
    
    When C++ is your hammer, every problem looks like your thumb.
    - +2 replies
    - lichtkind
      
      2011-05-10 20:43
      
      User since
      2004-03-22
      5730 Artikel
      ModeratorIn + EditorIn
      
      wirklich sicher das das ergebnis in jedem fall das gleiche ist?
      mein zeug:, Leute
      
      Es beginnt immer mit einer Entscheidung.
      - topeg
        
        2011-05-10 21:53
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Das ist einfache Trigonometrie. Jeder mit Abitur sollte das lösen können. ;-)
        
        Bekannt:
        (siehe Formelsammlung_Trigonometrie#Additionstheoreme)
        
        Code: (dl )
        
        1 2 3 4 5
        
        sin(a+b)=sin(a)*cos(b)+cos(a)*sin(b) cos(a+b)=cos(a)*cos(b)-sin(a)*sin(b) x/h=sin(a) y/h=cos(a)
        
        daraus lässt sich herleiten:
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        x2=sin(a+b)*h y2=cos(a+b)*h => x2=(sin(a)*cos(b)+cos(a)*sin(b))*h y2=(cos(a)*cos(b)+sin(a)*sin(b))*h => x2=(x1/h*cos(b)+y1/h*sin(b))*h y2=(y1/h*cos(b)-x1/h*sin(b))*h => x2=x1*cos(b)+y1*sin(b) y2=y1*cos(b)-x1*sin(b)
        
        Und das ganze noch mit negativen Vorzeichen, wenn es dargestellt werden soll (wegen der Umkehrung der Koordinaten bei Bildschirmen)
    - MatthiasW
      
      2011-05-10 22:49
      
      User since
      2008-01-27
      367 Artikel
      BenutzerIn
      
      Ja, ja, ja ;)
      (Hatte gar nicht mehr an die Additionstheoreme gedacht.</Ausrede>)
      perl -E'*==*",s;;%ENV=~m,..$,,$&+42;e,$==f;$"++for+ab..an;@"=qw,u t,,print+chr;sub f{split}say"@{=} me"'

View all threads created 2011-05-09 21:44.