Math :: ZAP :: Triangle2 Mathe :: ZAP :: Triangle2 - Dreiecke im 2D-Raum.
Jetzt downloaden

Math :: ZAP :: Triangle2 Ranking & Zusammenfassung

Math :: ZAP :: Triangle2 Stichworte

Perl-Modul 2d. Platz Dreiecke 2D-Raum. 2D-Dreiecke

Math :: ZAP :: Triangle2 Beschreibung

Math :: ZAP :: Triangle2 - Dreiecke im 2D-Raum. Math :: ZAP :: Triangle2 - Dreiecke in 2D-Raum Verwenden Sie Mathe :: ZAP :: Vector2; Verwenden Sie den Test :: einfache Tests => 27; $ a = Triangle2 (Vektor2 (0, 0), Vektor2 (2, 0), Vektor2 (0, 2),); $ B = Triangle2 (Vektor2 (0, 0), Vektor2 (4, 0), Vektor2 (0, 4),); $ c = Triangle2 (Vektor2 (0, 0), Vektor2 (-4, 0), Vektor2 (0, -4),); $ d = $ b - Vector2 (1,1); $ e = $ c + vector2 (1,1); #print "a = $ ANB = $ BNC = $ cnd = $ dne = $ de"; OK ($ A-> enthält den Punkt (Vektor2 (1, 1))); OK ($ A-> enthält den Punkt (Vektor2 (1, 1))); ok ($ b-> enthält den Punkt (Vektor2 (2, 0))); ok ($ b-> enthält den Punkt (Vektor2 (1, 0))); ok ($ c-> enthält den Punkt (Vektor2 (-1, 0))); ok ($ c-> enthält (vector2 (-2, 0))); ok ($ d-> enthält den Punkt (Vektor2 (1, -1))); OK (! $ A-> enthält den Punkt (Vektor2 (9, 1))); OK (! $ a-> enthält (vector2 (1, 9))); OK (! $ B-> Enthält (Vektor2 (2, 9))); OK (! $ b-> verfügbarer Punkt (Vektor2 (9, 0))); OK (! $ C-> enthält den Punkt (Vektor2 (-9, 0))); OK (! $ C-> Enthält den Punkt (Vektor2 (-2, 9))); OK (! $ d-> enthält den Punkt (Vektor2 (9, -1))); OK ($ A-> enthält den Punkt (Vektor2 (0,5, 0,5))); OK (! $ A-> enthält den Punkt (Vektor2 (-1, -1)); ok (vector2 (1,2) -> rechtachce == vector2 (-2, 1)); OK (Vector2 (1,0) -> Rightangment == Vector2 (0, 1)); OK ($ A-> area == 2); OK ($ c-> area == 8); EVAL {Triangle2 (Vector2 (0, 0), Vector2 (3, -6), Vector2 (-3, 6))}; ok ($ @ = ~ ~ ~ ^ Schmale Triangle2 /, 'schmale Dreieck'); $ t = Triangle2 (Vektor2 (0,0), Vektor2 (0,10), Vektor2 (10,0)); $ T = Triangle2 (Vector2 (0,0), Vektor2 (0,10), Vektor2 (-10,10)) + Vector2 (5, -2); @p = $ t-> ring ($ t); #print "$ _n" für (@p); ok ($ p == Vector2 (0, 8), 'Ring 0'); ok ($ p == Vector2 (2, 8), 'Ring 1'); OK ($ P == Vector2 (5, 5), 'Ring 2'); ok ($ p == Vector2 (5, 0), 'Ring 3'); OK ($ P == Vector2 (3, 0), 'Ring 4'); OK ($ P == Vector2 (0, 3), 'Ring 5'); Anforderungen: · Perl

Math :: ZAP :: Triangle2 Zugehörige Software