MATH :: ZAP :: Driehoek MATH :: ZAP :: Triangle-module kan driehoeken in 3D-ruimte bouwen.
Download nu

MATH :: ZAP :: Driehoek Rangschikking & Samenvatting

MATH :: ZAP :: Driehoek Tags

Perl-module 3d ruimte Speelruimte 3D-driehoek

MATH :: ZAP :: Driehoek Beschrijving

Math :: ZAP :: Triangle-module kan driehoeken in 3D-ruimte bouwen. Math :: Zap :: Triangle module kan driehoeken te bouwen in 3D space.SynopsisExample t / triangle.t #_ Triangle ___________________________________________________________ # Test 3d driehoeken # philiprbrenan@yahoo.com 2004, Perl License #______________________________________________________________________ gebruik Math :: Zap :: Vector ; gebruik Math :: Zap :: Vector2; gebruik Math :: Zap :: Driehoek; gebruik Test :: eenvoudige tests => 25; $ T = driehoek (vector (0, 0, 0), vector (0, 0, 4), vector (4, 0, 0)); $ U = driehoek (vector (0, 0, 0), vector (0, 1, 4), vector (4, 1, 0)); $ T = driehoek (vector (0, 1, 0), vector (0, 1, 1), vector (1, 1, 0)); $ C = vector (1, 1, 1); #_ Triangle ___________________________________________________________ # Afstand tot vlak #______________________________________________________________________ ok ($ t-> afstand ($ c) == 1, 'Afstand tot plane'); ok ($ T-> afstand ($ c) == 0, 'Afstand tot plane'); ok ($ t-> afstand (2 * $ c) == 2, 'Afstand tot plane'); ok ($ t-> distanceToPlaneAlongLine (vector (0, -1,0), vector (0,1,0)) == 1, 'Afstand tot het vliegtuig op weg naar een punt'); ok ($ T-> distanceToPlaneAlongLine (vector (0, -1,0), vector (0,1,0)) == 2, 'Afstand tot het vliegtuig op weg naar een punt'); #_ Triangle ___________________________________________________________ # permuteren de punten van een driehoek #______________________________________________________________________ ok ($ t-> permute == $ t, 'PERMUTE 1'); ok ($ t-> permute-> permute == $ t, 'PERMUTE 2'); ok ($ t-> permute-> permute-> permute == $ t, 'PERMUTE 3'); #_ Triangle ___________________________________________________________ # snijpunt van een lijn met een vlak gedefinieerd door een driehoek #______________________________________________________________________ #ok ($ t-> knooppunt ($ c, vector (1, -1, 1)) == vector (1, 0, 1) , "snijpunt van lijn met vlak); #ok ($ t-> knooppunt ($ c, vector (-1, -1, -1)) == vector (0, 0, 0) "snijpunt van lijn met vlak); #_ Triangle ___________________________________________________________ # Test of een punt voor of achter een vlak ten opzichte van een ander punt # #______________________________________________________________________ ok ($ t-> frontInBehind ($ c, vector (1, 0,5, 1)) == 1, Front '); ok ($ t-> frontInBehind ($ c, vector (1, 0, 1)) == 0, 'In'); ok ($ t-> frontInBehind ($ c, vector (1, -0,5, 1)) == -1, 'Behind'); #_ Triangle ___________________________________________________________ # Parallel #______________________________________________________________________ ok ($ t-> parallel ($ T) == 1, 'Parallel'); ok ($ t-> parallel ($ u) == 0, 'niet parallel'); #_ Triangle ___________________________________________________________ # Coplanar #______________________________________________________________________ #ok ($ t-> coplanaire ($ t) == 1, 'Coplanar'); #ok ($ t-> coplanaire ($ u) == 0, 'Not coplanaire'); #ok ($ t-> coplanaire ($ T) == 0, 'Not coplanaire'); #_ Triangle ___________________________________________________________ # Project ene driehoek naar elkaar #______________________________________________________________________ $ p = vector (0, 2, 0); $ S = $ t-> project ($ T, $ p); ok ($ s == driehoek (vector (0, 0, 2), vector (0,5, 0, 2), vector (0, 0,5, 2),), 'Projectie van bovenhoek 3); #_ Triangle ___________________________________________________________ # Convert ruimte om het vliegtuig coördinaten en vice versa #______________________________________________________________________ ok ($ t-> convertSpaceToPlane (vector (2, 2, 2)) == vector (0.5,0.5,2), 'Ruimte om Plane'); ok ($ t-> convertPlaneToSpace (vector2 (0,5, 0,5)) == vector (2, 0, 2), 'Plane naar Space'); #_ Triangle ___________________________________________________________ # Verdeel #______________________________________________________________________ $ it = driehoek # Doorsnijdt t (vector (0, -1, 2), vector (0, 2, 2), vector (3, 2, 2)); @d = $ t-> divide ($ it); ok ($ d == driehoek (vector (0, -1, 2), vector (0, 0, 2), vector (1, 0, 2))); ok ($ d == driehoek (vector (0, 2, 2), vector (0, 0, 2), vector (1, 0, 2))); ok ($ d == driehoek (vector (0, 2, 2), vector (1, 0, 2), vector (3, 2, 2))); $ It = driehoek # Doorsnijdt t (vector (3, 2, 2), vector (0, 2, 2), vector (0, -1, 2)); @d = $ t-> divide ($ it); ok ($ d == driehoek (vector (0, -1, 2), vector (0, 0, 2), vector (1, 0, 2))); ok ($ d == driehoek (vector (3, 2, 2), vector (1, 0, 2), vector (0, 0, 2))); ok ($ d == driehoek (vector (3, 2, 2), vector (0, 0, 2), vector (0, 2, 2))); $ It = driehoek # Doorsnijdt t (vector (3, 2, 2), vector (0, -1, 2), vector (0, 2, 2)); @d = $ t-> divide ($ it); ok ($ d == driehoek (vector (0, -1, 2), vector (1, 0, 2), vector (0, 0, 2))); ok ($ d == driehoek (vector (3, 2, 2), vector (1, 0, 2), vector (0, 0, 2))); ok ($ d == driehoek (vector (3, 2, 2), vector (0, 0, 2), vector (0, 2, 2))); Eisen: · Perl Eisen: · Perl

MATH :: ZAP :: Driehoek Gerelateerde software