Matemáticas :: Zap :: Triangle2 MATEMÁTICOS :: ZAP :: Triangle2 - Triángulos en el espacio 2D.
Descargar ahora

Matemáticas :: Zap :: Triangle2 Clasificación y resumen

Matemáticas :: Zap :: Triangle2 Etiquetas

Módulo perl 2d espacio triangulos Espacio 2D Triángulos 2D

Matemáticas :: Zap :: Triangle2 Descripción

Matemáticas :: Zap :: Triangle2 - Triángulos en el espacio 2D. Matemáticas :: :: Zap Triangle2 - triángulos en 2D space.SynopsisExample t / triangle2.t #_ Triángulo ___________________________________________________________ # Prueba 2d triángulos # philiprbrenan@yahoo.com de 2004, Licencia Perl #______________________________________________________________________ uso Matemáticas :: :: Zap Triangle2; Usa Matemáticas :: Zap :: Vector2; Prueba de uso :: Pruebas simples => 27; $ a = triangle2 (vector2 (0, 0), vector2 (2, 0), vector2 (0, 2),); $ b = triangle2 (Vector2 (0, 0), vector2 (4, 0), vector2 (0, 4),); $ c = triangle2 (vector2 (0, 0), vector2 (-4, 0), vector2 (0, -4),); $ d = $ b - vector2 (1,1); $ e = $ C + vector2 (1,1); #Print "A = $ anb = $ bnc = $ cnd = $ dne = $ en"; OK ($ A-> contiene punto de contacto (Vector2 (1, 1))); OK ($ A-> contiene punto de contacto (Vector2 (1, 1))); ok ($ b-> contiene punto de contacto (Vector2 (2, 0))); OK ($ b-> contiene punto de contacto (Vector2 (1, 0))); ok ($ c-> contiene punto de contacto (Vector2 (-1, 0))); ok ($ c-> contiene punto de contacto (Vector2 (-2, 0))); ok ($ d-> contiene punto de contacto (Vector2 (1, -1))); OK (! $ A-> contienepoint (Vector2 (9, 1))); OK (! $ A-> contiene punto de contacto (Vector2 (1, 9))); OK (! $ b-> contiene punto de contacto (Vector2 (2, 9))); Ok (! $ b-> contienepoint (vector2 (9, 0))); OK (! $ c-> contienepoint (vector 2 (-9, 0))); Ok (! $ c-> contienepoint (vector 2 (-2, 9))); Ok (! $ d-> contiene punto de contacto (Vector2 (9, -1))); ok ($ A-> contiene punto de contacto (Vector2 (0.5, 0.5))); OK (! $ A-> contiene Punto (Vector2 (-1, -1))); OK (Vector2 (1,2) -> Rectángulo == Vector2 (-2, 1)); OK (Vector2 (1,0) -> Rectanangle == Vector2 (0, 1)); OK ($ A-> Área == 2); ok ($ c-> área == 8); eval {triangle2 (Vector2 (0, 0), vector2 (3, -6), vector2 (-3, 6))}; ok ($ @ = ~ / ^ estrecho triangle2 /, 'triángulo estrecho'); $ t = triangle2 (vector2 (0,0), vector2 (0,10), vector2 (10,0)); $ T = triangle2 (vector2 (0,0), vector2 (0,10), vector2 (-10,10)) + vector2 (5, -2); @p = $ t-> anillo ($ t); #Print "$ _n" para (@p); OK ($ P == Vector2 (0, 8), 'Anillo 0'); OK ($ P == Vector2 (2, 8), 'Anillo 1'); OK ($ P == Vector2 (5, 5), 'Anillo 2'); OK ($ P == Vector2 (5, 0), 'Anillo 3'); OK ($ P == Vector2 (3, 0), 'Anillo 4'); OK ($ P == Vector2 (0, 3), 'Anillo 5'); Requisitos: · Perl

Matemáticas :: Zap :: Triangle2 Software relacionado