수학 :: zap :: triangle. 수학 :: ZAP :: Triangle Module은 3D 공간에서 삼각형을 빌드 할 수 있습니다.
지금 다운로드

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

수학 :: zap :: triangle. 태그

Perl 모듈 3D. 공간 3D 공간 3D 삼각형

수학 :: zap :: triangle. 설명

수학 :: ZAP :: Triangle 모듈은 3D 공간에서 삼각형을 빌드 할 수 있습니다. 수학 :: 써 :: 삼각형 모듈은 3D space.SynopsisExample t / triangle.t #_ 삼각형 ___________________________________________________________ # 테스트 차원 삼각형 # philiprbrenan@yahoo.com 2004, 펄 라이센스 #______________________________________________________________________ 사용 수학 :: 써 :: 벡터의 삼각형을 구축 할 수 있습니다 ...에 수학 :: zap :: Vector2; 수학 :: zap :: triangle; 테스트를 사용하십시오 :: 단순 테스트 => 25; $ t = 삼각형 (벡터 (0, 0, 0), 벡터 (0, 0, 4), 벡터 (4, 0, 0); $ u = 삼각형 (벡터 (0, 0, 0), 벡터 (0, 1, 4), 벡터 (4, 1, 0); $ t = 삼각형 (벡터 (0, 1, 0), 벡터 (0, 1, 1), 벡터 (1, 1, 0); $ C = 벡터 (1, 1, 1); #_ 삼각형 ___________________________________________________________ # 거리 평면 #______________________________________________________________________ OK ($ T-> 거리 ($ c) == 1 '평면까지의 거리'); OK ($ t-> 거리 ($ c) == 0, '평면까지의 거리'); OK ($ t-> 거리 (2 * $ c) == 2, '평면까지의 거리'); OK ($ t-> distancetoplanealongline (벡터 (0, -1,0), 벡터 (0,1,0)) == 1, '비행기쪽으로 비행기'); OK ($ t-> distancetoplanealongline (벡터 (0, -1,0), 벡터 (0,1,0)) == 2, '비행기쪽으로 평면' '); #_ 삼각형 ___________________________________________________________ # 이것은 Permute 삼각형 #______________________________________________________________________의 확인 포인트 ($ T-> 교환하다 == $ t '이것은 Permute 1'); OK ($ t-> permute-> permute == $ t, 'permute 2'); OK ($ t-> permute-> permute-> permute == $ t, 'permute 3'); #_ 삼각형 ______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________ #OK ($ t-> 교차로 ($ c, 벡터 (1, -1, 1)) == 벡터 (1, 0, 1) , '비행기와의 교차'); #ok ($ t-> 교차로 ($ c, 벡터 (-1, -1, -1)) == 벡터 (0, 0, 0), '평면이있는 선의 교차'); #_ 삼각형 ___________________________________________________________ # 테스트 포인트가 앞 또는 다른 포인트 # #______________________________________________________________________ 확인 한 평면에 대하여 뒤에 여부 ($ T-> frontInBehind ($ C, 벡터 (1, 0.5, 1)) == +1 '전면 '); OK ($ t-> frontinbehind ($ c, 벡터 (1, 0, 1)) == 0, 'in'); OK ($ t-> frontinbehind ($ c, 벡터 (1, -0.5, 1)) == -1, '뒤에'); #_ 삼각형 ___________________________________________________________ # #______________________________________________________________________ 확인 패러렐 ($ T-> 병렬 (T $) == 1 '평행'); OK ($ T-> 병렬 ($ U) == 0, '평행하지 않음'); #_ 삼각형 ___________________________________________________________ # 동일 평면 #______________________________________________________________________ #OK ($ T-> 공면 ($ t) == 1 '동일 평면'); #ok ($ t-> coplanar ($ u) == 0, 'Coplanar not';); #ok ($ t-> Coplanar ($ t) == 0, 'Coplanar not'); #_ 삼각형 ______________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________ $ P = 벡터 (0, 2, 0); $ s = $ t-> 프로젝트 ($ t, $ p); OK ($ s == 삼각형 (벡터 (0, 0, 2), 벡터 (0.5, 0, 2), 벡터 (0, 0.5, 2), '코너 3의 투영'; #_ 삼각형 ___________________________________________________________ # #______________________________________________________________________ 확인을 반대 평면 좌표와 부사장으로 변환 공간 ($ T-> convertSpaceToPlane (벡터 (2, 2, 2)) == 벡터 (0.5,0.5,2), '평면에 공간'); OK ($ t-> convertPlanetospace (Vector2 (0.5, 0.5)) == 벡터 (2, 0, 2), '비행기 - 공간'); #_ 삼각형 ____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________H # @d = $ t-> 나누기 ($ it); OK ($ d = 삼각형 (벡터 (0, -1, 2), 벡터 (0, 0, 2), 벡터 (1, 0, 2)); OK ($ d == 삼각형 (벡터 (0, 2, 2), 벡터 (0, 0, 2), 벡터 (1, 0, 2)); OK ($ d == 삼각형 (벡터 (0, 2, 2), 벡터 (1, 0, 2), 벡터 (3, 2, 2)); $ IT = 삼각형 # t (벡터 (3, 2, 2), 벡터 (0, 2, 2), 벡터 (0, -1, 2),); @d = $ t-> 나누기 ($ it); OK ($ d = 삼각형 (벡터 (0, -1, 2), 벡터 (0, 0, 2), 벡터 (1, 0, 2)); OK ($ d == 삼각형 (벡터 (3, 2, 2), 벡터 (1, 0, 2), 벡터 (0, 0, 2)); OK ($ d = 삼각형 (벡터 (3, 2, 2), 벡터 (0, 0, 2), 벡터 (0, 2, 2)); $ = 삼각형 # t (벡터 (3, 2, 2), 벡터 (0, -1, 2), 벡터 (0, 2, 2), 벡터 (0, 2, 2); @d = $ t-> 나누기 ($ it); OK ($ d = 삼각형 (벡터 (0, -1, 2), 벡터 (1, 0, 2), 벡터 (0, 0, 2)); OK ($ d == 삼각형 (벡터 (3, 2, 2), 벡터 (1, 0, 2), 벡터 (0, 0, 2)); OK ($ d == 삼각형 (벡터 (3, 2, 2), 벡터 (0, 0, 2), 벡터 (0, 2, 2)); 요구 사항 : · Perl 요구 사항 : · Perl.

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