Matemática :: Zap :: Triangle2

matemática :: zap :: triangle2 - triângulos no espaço 2D.
Baixe Agora

Matemática :: Zap :: Triangle2 Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • Nome do editor:
  • Philip R. Brenan
  • Site do editor:
  • http://search.cpan.org/~prbrenan/Math-Zap-1.07/lib/Math/Zap/Triangle2.pm

Matemática :: Zap :: Triangle2 Tag


Matemática :: Zap :: Triangle2 Descrição

Math :: Zap :: triangle2 - triângulos no espaço 2D. Math :: Zap :: triangle2 - triângulos em 2D space.SynopsisExample t / triangle2.t #_ Triângulo ___________________________________________________________ # Teste 2d triângulos # philiprbrenan@yahoo.com de 2004, Perl Licença #______________________________________________________________________ uso Math :: Zap :: triangle2; uso Math :: Zap :: Vector2; uso Test :: Simples testes => 27; $ = Um triangle2 (vetor2 (0, 0), vetor2 (2, 0), vetor2 (0, 2),); $ B = triangle2 (vetor2 (0, 0), vetor2 (4, 0), vetor2 (0, 4),); $ C = triangle2 (vetor2 (0, 0), vetor2 (-4, 0), vetor2 (0, -4),); $ D = b $ - vetor2 (1,1); $ E = $ c + vetor2 (1,1); #print "a = $ ANB = $ BNC = $ CND = $ dne = $ en"; ok ($ a-> containsPoint (vector2 (1, 1))); ok ($ a-> containsPoint (vector2 (1, 1))); ok ($ b-> containsPoint (vector2 (2, 0))); ok ($ b-> containsPoint (vector2 (1, 0))); ok ($ c-> containsPoint (vector2 (-1, 0))); ok ($ c-> containsPoint (vector2 (-2, 0))); ok ($ d-> containsPoint (vector2 (1, -1))); ok ($ a-> containsPoint (vector2 (9, 1))!); ok ($ a-> containsPoint (vector2 (1, 9))!); ok ($ b-> containsPoint (vector2 (2, 9))!); ok ($ b-> containsPoint (vector2 (9, 0))!); ok ($ c-> containsPoint (vector2 (-9, 0))!); ok ($ c-> containsPoint (vector2 (-2, 9))!); ok (! $ d-> containsPoint (vector2 (9, 1))); ok ($ a-> containsPoint (vector2 (0,5, 0,5))); ok (! $ a-> containsPoint (vector2 (-1, -1))); ok (vetor2 (1,2) -> RightAngle == vetor2 (-2, 1)); ok (vector2 (1,0) -> RightAngle == vector2 (0, 1)); ok ($ a-> Área == 2); ok ($ c-> Área == 8); Eval {triangle2 (vetor2 (0, 0), vetor2 (3, -6), vetor2 (-3, 6))}; ok ($ @ = ~ / ^ triangle2 Narrow /, 'triângulo Narrow'); $ T = triangle2 (vetor2 (0,0), vetor2 (0,10), vetor2 (10,0)); $ T = triangle2 (vetor2 (0,0), vetor2 (0,10), vetor2 (-10,10)) + vetor2 (5, -2); @p = $ t-> anel ($ T); #print "$ _n" para (@p); ok (p $ == vetor2 (0, 8), 'anel 0'); ok (p $ == vetor2 (2, 8), 'Anel 1'); ok (p $ == vetor2 (5, 5), '2' do anel); ok (p $ == vetor2 (5, 0), 'Ring 3'); ok (p $ == vetor2 (3, 0) 'anel 4'); ok ($ P == VecTor2 (0, 3), 'Ring 5'); Requisitos: · Perl


Matemática :: Zap :: Triangle2 Software Relacionado

Sobre nós