수학 :: zap :: Triangle2.

수학 :: ZAP :: TRIANGLE2 - 2D 공간의 삼각형.
지금 다운로드

수학 :: zap :: Triangle2. 순위 및 요약

광고

  • Rating:
  • 특허:
  • Perl Artistic License
  • 가격:
  • FREE
  • 게시자 이름:
  • Philip R. Brenan
  • 게시자 웹사이트:
  • http://search.cpan.org/~prbrenan/Math-Zap-1.07/lib/Math/Zap/Triangle2.pm

수학 :: zap :: Triangle2. 태그


수학 :: zap :: Triangle2. 설명

수학 :: 써 :: Triangle2 - 2D 공간에서 삼각형. 수학 :: 써 :: Triangle2 - 2D space.SynopsisExample에서 삼각형 t / triangle2.t #_ 삼각형 ___________________________________________________________ # 테스트 2D 삼각형 # philiprbrenan@yahoo.com 2004, 펄 라이센스 #______________________________________________________________________ 사용 수학 :: 써 :: Triangle2; 사용 수학 :: 써 :: Vector2; 사용 테스트 :: 간단한 테스트 => 27; A = $ triangle2 (vector2 (0, 0), vector2 (2, 0), vector2 (0, 2)); triangle2 = $ B (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 = $ 엉"; 확인 ($ A-> containsPoint (vector2 (1, 1))); 확인 ($ A-> containsPoint (vector2 (1, 1))); 확인 ($ B-> containsPoint (vector2 (2, 0))); 확인 ($ B-> containsPoint (vector2 (1, 0))); OK ($ C-> containsPoint (vector2 (-1, 0))); 확인 ($ C -> containsPoint (vector2 (-2, 0))); OK ($ D-> containsPoint (vector2 (1, -1))); 확인 ($ A-> containsPoint (vector2 (9, 1))!); 확인 ($ A-> containsPoint (vector2 (1, 9))!); 확인 ($ B-> containsPoint (vector2 (2, 9))!); 확인 ($ B-> containsPoint (vector2 (9, 0))!); 확인 ($ C -> containsPoint (vector2 (-9, 0))!); 확인 ($ C -> containsPoint (vector2 (-2, 9))!); 확인 (! $ D-> containsPoint (vector2 (9, -1))); 확인 ($ A-> containsPoint (vector2 (0.5, 0.5))); 확인 (! $ A-> containsPoint (vector2 (-1, -1))); 확인 (vector2 (1,2) -> rightAngle == vector2 (-2, 1)); 확인 (vector2 (1,0) -> rightAngle vector2 == (0, 1)); OK ($ A-> 영역 == 2); OK ($ C-> 영역 == 8); 평가 {triangle2 (vector2 (0, 0), vector2 (3, -3), vector2 (-3, 6))}; 확인 ($ @ = ~ / ^ 좁은 triangle2 /, '좁은 삼각형'); 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-> 고리 ($ T); #print (@p)에 대한 "$ _n"; OK의 ($ P == vector2 (0, 8), "링 0"); OK의 ($ P == vector2 (2, 8), '반지 1'); OK의 ($ P == vector2 (5, 5) ', 링 (2')); OK의 ($ P == vector2 (5, 0), "링 3 '); OK의 ($ P == vector2 (3, 0) "링 (4 ')); OK ($ 피 == vector2 (0, 3), '링 (5)') 요구 · 펄


수학 :: zap :: Triangle2. 관련 소프트웨어

회사 소개