Matemática :: Zap :: Triângulo Math :: Zap :: Triângulo Módulo pode construir triângulos no espaço 3D.
Baixe Agora

Matemática :: Zap :: Triângulo Classificação e resumo

Matemática :: Zap :: Triângulo Tag

Módulo Perl. 3D espaço Espaço 3D. Triângulo 3D.

Matemática :: Zap :: Triângulo Descrição

Math :: Zap :: Triangle Module pode construir triângulos no espaço 3D. módulo Math :: Zap :: Triângulo pode construir triângulos em 3D space.SynopsisExample t / triangle.t #_ Triângulo ___________________________________________________________ # Teste 3d triângulos # philiprbrenan@yahoo.com de 2004, Perl Licença #______________________________________________________________________ uso Math :: Zap :: Vector ; uso Math :: Zap :: Vector2; uso Math :: Zap :: Triângulo; uso Test :: Simples testes => 25; $ T = triângulo (vector de (0, 0, 0), vector (0, 0, 4), vector (4, 0, 0),); $ U = triângulo (vector de (0, 0, 0), vector (0, 1, 4), vector (4, 1, 0),); $ T = triângulo (vector de (0, 1, 0), vector (0, 1, 1), vector (1, 1, 0),); $ C = vector de (1, 1, 1); #_ Triângulo ___________________________________________________________ # Distância ao plano #______________________________________________________________________ ok ($ t-> distância ($ c) == 1, 'Distância ao plano'); ok ($ T-> distância ($ c) == 0, 'Distância ao plano'); ok ($ t-> distância (2 * $ c) == 2, 'Distância ao plano'); ok ($ t-> distanceToPlaneAlongLine (vector (0, -1,0), vector (0,1,0)) == 1, 'Distância ao plano para um ponto'); ok ($ T-> distanceToPlaneAlongLine (vector (0, -1,0), vector (0,1,0)) == 2, 'Distância ao plano para um ponto'); #_ Triângulo ___________________________________________________________ # permutar os pontos de um triângulo ok #______________________________________________________________________ ($ t-> permute == $ t, 'Permuta 1'); ok ($ t-> permute-> permute == $ t, 'Permuta 2'); ok ($ t-> permute-> permute-> permute == $ t, 'Permuta 3'); #_ Triângulo ___________________________________________________________ # intersecção de uma linha com um plano definido por um triângulo #______________________________________________________________________ #ok ($ t-> intersecção ($ C, vector (1, -1, 1)) == vector de (1, 0, 1) , 'intersecção da linha com o plano'); #ok ($ t-> intersecção ($ C, vector (-1, -1, -1)) == vector de (0, 0, 0), 'intersecção da linha com o plano'); #_ Triângulo ___________________________________________________________ # testar se um ponto está na frente ou atrás de um plano em relação a outro # ponto ok #______________________________________________________________________ ($ t-> frontInBehind ($ c, vetor (1, 0,5, 1)) == 1, 'Frente '); ok ($ t-> frontInBehind ($ c, vetor (1, 0, 1)) == 0, 'In'); ok ($ t-> frontInBehind ($ C, vector (1, -0,5, 1)) == -1, 'atrás'); #_ Triângulo ___________________________________________________________ # Paralelo #______________________________________________________________________ ok ($ t-> paralelo ($ T) == 1, 'Parallel'); ok ($ t-> paralelos ($ u) == 0, 'Não Paralelo'); #_ Triângulo ___________________________________________________________ # Coplanar #______________________________________________________________________ #ok ($ t-> coplanar ($ t) == 1, 'Coplanar'); #ok ($ t-> coplanar ($ u) == 0, 'Não coplanar'); #ok ($ t-> coplanar ($ T) == 0, 'Não coplanar'); #_ Triângulo ___________________________________________________________ # Projecto um triângulo para outro #______________________________________________________________________ $ p = vector (0, 2, 0); $ S = $ t-> projeto ($ T, $ p); ok ($ s == triângulo (vector de (0, 0, 2), vector (0,5, 0, 2), vector (0, 0,5, 2),), 'Projecção de canto 3'); #_ Triângulo ___________________________________________________________ # espaço Converter em coordenadas planas e vice-versa #______________________________________________________________________ ok ($ t-> convertSpaceToPlane (vector (2, 2, 2)) == vetor (0.5,0.5,2), 'Space a Plane'); ok ($ t-> convertPlaneToSpace (vector2 (0,5, 0,5)) == vetor (2, 0, 2), 'Plane para Space'); #_ Triângulo ___________________________________________________________ # Divide #______________________________________________________________________ $ it = triângulo # Intersects t (vector (0, -1, 2), vector (0, 2, 2), vector (3, 2, 2),); @d = $ t-> divide ($-lo); ok ($ d == triângulo (vector (0, -1, 2), vector (0, 0, 2), vector (1, 0, 2))); ok ($ d == triângulo (vector (0, 2, 2), vector (0, 0, 2), vector (1, 0, 2))); ok ($ d == triângulo (vector (0, 2, 2), vector (1, 0, 2), vector (3, 2, 2))); $ It = triângulo # Intersects t (vector de (3, 2, 2), vector (0, 2, 2), vector (0, -1, 2),); @d = $ t-> divide ($-lo); ok ($ d == triângulo (vector (0, -1, 2), vector (0, 0, 2), vector (1, 0, 2))); ok ($ d == triângulo (vector de (3, 2, 2), vector (1, 0, 2), vector (0, 0, 2))); ok ($ d == triângulo (vector de (3, 2, 2), vector (0, 0, 2), vector (0, 2, 2))); $ It = triângulo # Intersects t (vector de (3, 2, 2), vector (0, -1, 2), vector (0, 2, 2),); @d = $ t-> divide ($-lo); ok ($ d == triângulo (vector (0, -1, 2), vector (1, 0, 2), vector (0, 0, 2))); ok ($ d == triângulo (vector de (3, 2, 2), vector (1, 0, 2), vector (0, 0, 2))); ok ($ d == triângulo (vector de (3, 2, 2), vector (0, 0, 2), vector (0, 2, 2))); Requisitos: · Requisitos Perl: · Perl.

Matemática :: Zap :: Triângulo Software Relacionado