Math :: ZAP :: Dreieck Math :: ZAP :: Dreieckmodul kann Dreiecke im 3D-Raum bauen.
Jetzt downloaden

Math :: ZAP :: Dreieck Ranking & Zusammenfassung

Math :: ZAP :: Dreieck Stichworte

Perl-Modul Einlegen Platz 3D-Raum 3D-Dreieck.

Math :: ZAP :: Dreieck Beschreibung

Math :: ZAP :: Dreieck-Modul kann Dreiecke im 3D-Raum bauen. Math :: ZAP :: Dreieck-Modul kann Dreiecke im 3D-Raum bauen ; Verwenden Sie Mathe :: ZAP :: Vector2; Verwenden Sie Math :: ZAP :: Dreieck; Verwenden Sie den Test :: einfache Tests => 25; $ t = Dreieck (Vektor (0, 0, 0), Vektor (0, 0, 4), Vektor (4, 0, 0),); $ u = Dreieck (Vektor (0, 0, 0), Vektor (0, 1, 4), Vektor (4, 1, 0),); $ T = Dreieck (Vektor (0, 1, 0), Vektor (0, 1, 1), Vektor (1, 1, 0),); $ c = Vektor (1, 1, 1); #_ Dreieck ___________________________________________________________ # Entfernung zum Flugzeug #____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________ ____ OK ($ t-> Entfernung ($ C) == 0, 'Entfernung zum Flugzeug'); OK ($ t-> Abstand (2 * $ C) == 2, 'Entfernung zum Flugzeug'); ok ($ t-> destancetoplanealongline (Vektor (0, -1,0), Vektor (0,1,0)) == 1, 'Entfernung zum Flugzeug zu einem Punkt'); ok ($ t-> distancetoplanealongline (Vektor (0, -1,0), Vektor (0,1,0)) == 2, 'Entfernung zum Flugzeug zu einem Punkt'); #_ Triangle ___________________________________________________________ # Vertausche die Punkte eines Dreiecks #______________________________________________________________________ ok ($ t-> permute == $ t, 'Vertausche 1'); OK ($ T-> Permute-> Permute == $ t, 'Permut 2'); ok ($ t-> permute-> permut-> permute == $ t, 'permut 3'); #_ Triangle ___________________________________________________________ # Überschneidung einer Linie mit einer Ebene, die durch ein Dreieck definiert #______________________________________________________________________ #ok ($ t-> Kreuzung ($ C-Vektor (1, -1, 1)) == Vektor (1, 0, 1) 'Kreuzung der Linie mit Ebene'); #ok ($ t-> Kreuzung ($ c, Vektor (-1, -1, -1)) == Vektor (0, 0, 0), 'Kreuzung der Linie mit Ebene'); #_ Triangle ___________________________________________________________ # Test, ob ein Punkt vor oder hinter einer Ebene relativ zu einem anderen Punkt # #______________________________________________________________________ ok ($ t-> frontInBehind ($ c, Vektor (1, 0,5, 1)) == 1, Front '); ok ($ t-> frontinbehind ($ c, Vektor (1, 0, 1)) == 0, 'in'); ok ($ t-> frontinbehind ($ c, Vektor (1, -0,5, 1)) == -1, 'hinter'); #_ Dreieck ___________________________________________________________ # parallel #______________________________________________________________________________________________________________________ ($ t-> parallel ($ t) == 1, 'parallel'); ok ($ t-> parallel ($ u) == 0, 'nicht parallel'); #_ Dreieck ___________________________________________________________ # Coplanar #______________________________________________________________________________ ($ t-> coplanar ($ t) == 1, 'coplanar'); #ok ($ t-> coplanar ($ u) == 0, 'nicht coplanar'); #ok ($ t-> coplanar ($ t) == 0, 'nicht coplanar'); #_ Dreieck ___________________________________________________________ # Projekt ein Dreieck auf ein anderes # ______________________________________________________________________ $ p = Vektor (0, 2, 0); $ s = $ t-> projekt ($ t, $ p); OK ($ s == Dreieck (Vektor (0, 0, 2), Vektor (0,5, 0, 2), Vektor (0, 0,5, 2),), 'Projektion von Ecke 3'); #_ Dreieck _____________________________________________________________ # Umwandeln Sie den Raum in die Flugzeugkoordinaten und umgekehrt #____________________________________________________________________________________________________________________________________________________ (Vektor (2, 2, 2)) == Vektor (0,5,0,5,2), 'Raum zum Flugzeug'); ok ($ t-> konvertplanetospace (vector2 (0,5, 0,5)) == Vektor (2, 0, 2), 'Ebene zum Weltraum'); #_ Dreieck ___________________________________________________________ # teilen #__________________________________________________________________________ $ It = Dreieck # schneiden T (Vektor (0, -1, 2), Vektor (0, 2, 2), Vektor (3, 2, 2),); @d = $ t-> teilen ($ it); OK ($ D == Dreieck (Vektor (0, -1, 2), Vektor (0, 0, 2), Vektor (1, 0, 2)); OK ($ D == Dreieck (Vektor (0, 2, 2), Vektor (0, 0, 2), Vektor (1, 0, 2)); OK ($ D == Dreieck (Vektor (0, 2, 2), Vektor (1, 0, 2), Vektor (3, 2, 2)); $ it = Dreieck # schneidet t (Vektor (3, 2, 2), Vektor (0, 2, 2), Vektor (0, -1, 2),); @d = $ t-> teilen ($ it); OK ($ D == Dreieck (Vektor (0, -1, 2), Vektor (0, 0, 2), Vektor (1, 0, 2)); Ok ($ D == Dreieck (Vektor (3, 2, 2), Vektor (1, 0, 2), Vektor (0, 0, 2)); OK ($ D == Dreieck (Vektor (3, 2, 2), Vektor (0, 0, 2), Vektor (0, 2, 2)); $ IT = Dreieck # schneiden T (Vektor (3, 2, 2), Vektor (0, -1, 2), Vektor (0, 2, 2),); @d = $ t-> teilen ($ it); OK ($ D == Dreieck (Vektor (0, -1, 2), Vektor (1, 0, 2), Vektor (0, 0, 2));); Ok ($ D == Dreieck (Vektor (3, 2, 2), Vektor (1, 0, 2), Vektor (0, 0, 2)); OK ($ D == Dreieck (Vektor (3, 2, 2), Vektor (0, 0, 2), Vektor (0, 2, 2))); Anforderungen: · Perl Anforderungen: · Perl.

Math :: ZAP :: Dreieck Zugehörige Software