الرياضيات :: Zap :: مثلث الرياضيات :: ZAP :: وحدة مثلث يمكن أن تبني مثلثات في الفضاء ثلاثي الأبعاد.
التحميل الان

الرياضيات :: Zap :: مثلث الترتيب والملخص

الرياضيات :: Zap :: مثلث العلامات

الوحدة النمطية بيرل 3D. الفراغ الفضاء ثلاثي الأبعاد مثلث 3D

الرياضيات :: Zap :: مثلث وصف

الرياضيات :: ZAP :: وحدة مثلث يمكن أن تبني مثلثات في الفضاء ثلاثي الأبعاد. الرياضيات :: ZAP :: ZAP: يمكن أن تقوم "Zap: وحدة مثلثات" بناء مثلثات ثلاثية الأبعاد .sysosexample t / triangle.t #_ مثلث _________________________________________________________________________________________________________________________________________________________________________________ استخدم الرياضيات :: Zap :: Vector ؛ استخدم Math :: Zap :: Vector2؛ استخدم Math :: 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، "المسافة إلى الطائرة")؛ موافق ($ T-> المسافة ($ c) == 0، المسافة إلى الطائرة ")؛ موافق ($ T-> المسافة (2 * $ c) == 2، المسافة إلى الطائرة ")؛ طيب ($ t-> distancetoplanealonbline (ناقلات (0، -1،0)، ناقلات (0،1،0)) == 1، المسافة إلى الطائرة نحو نقطة ")؛ طيب ($ t-> distancetoplanealonbline (ناقلات (0، -1،0)، ناقل (0،1،0)) == 2، المسافة إلى الطائرة نحو نقطة ")؛ #_ مثلث ___________________________________________________________ الرمز اللائي شغل من نقاط مثلث #_____________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________ طيب ($ T-> التصاريح-> التصاريح == $ T، "Permut 2")؛ طيب ($ T-> التصاريح-> التصاريح-> التصاريح == $ T، "Permut 3")؛ #_ مثلث ___________________________________________________________ تقاطع خط مع طائرة محددة بواسطة مثلث #___________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________ "تقاطع الخط بالطائرة")؛ #ok ($ T-> تقاطع ($ C، ناقلات (-1، -1، -1)) == ناقل (0، 0، 0)، "تقاطع الخط مع الطائرة")؛ #_ مثلث _____________________________________________________________ اختبار # # ما إذا كانت هناك نقطة موجودة في المقدمة أو خلف طائرة نسبة إلى حد ما #________________________________________________________________________________________ موافق ($ T-> Frontinbehind ($ C، ناقلات (1، 0.5، 1)) == +1، "الجبهة ') طيب ($ t-> frontinbehind ($ c، vector (1، 0، 1)) == 0، 'في')؛ طيب ($ t-> frontinbehind ($ c، vector (1، -0.5، 1)) == -1، "وراء")؛ #_ مثلث ___________________________________________________________ # موازية # ______________________________________________________________________ موافق ($ T-> موازية ($ T) == 1، "متوازي")؛ موافق ($ T-> موازية ($ U) == 0، "ليس متوازيا")؛ #_ مثلث ___________________________________________________________ # Coplanar # ______________________________________________________________________ #OK ($ t-> coplanar ($ t) == 1، 'coplanar')؛ #ok ($ t-> coplanar ($ u) == 0، "غير coplanar")؛ #ok ($ t-> coplanar ($ t) == 0، "غير coplanar")؛ #_ مثلث ___________________________________________________________ # مشروع مثلث واحد على آخر #__________________________________________________________________ $ P = ناقلات (0، 2، 0)؛ $ S = $ T-> المشروع ($ T، $ P)؛ طيب ($ S == مثلث (ناقلات (0، 0، 2)، ناقل (0.5، 0، 2)، ناقل (0، 0.5، 2)،)، "الإسقاط الزاوية 3 ')؛ #_ مثلث ___________________________________________________________ # تحويل المساحة إلى إحداثيات الطائرة والعكس صحيح #__________________________________________________________________ موافق ($ T-> ConvertSpacetoplane (ناقلات (2، 2، 2)) == ناقل (0.5،0.5،2)، "الفضاء إلى الطائرة")؛ موافق ($ T-> ConvertPlanetospace (Vector2 (0.5، 0.5)) == ناقل (2، 0، 2)، "الطائرة إلى الفضاء")؛ #_ مثلث _____________________________________________________________ # ________________________________________________________________________________________________ $ it = مثلث # يتقاطع T (ناقلات (0، -1، 2)، ناقلات (0، 2، 2)، ناقلات (3، 2، 2)،)؛ @ d = $ t-> divide ($ IT)؛ موافق ($ D == مثلث (ناقلات (0، -1، 2)، ناقلات (0، 0، 2)، ناقلات (1، 0، 2)))؛ طيب ($ D == مثلث (ناقلات (0، 2، 2)، ناقلات (0، 0، 2)، ناقلات (1، 0، 2)))؛ موافق ($ D == مثلث (ناقلات (0، 2، 2)، ناقلات (1، 0، 2)، ناقلات (3، 2، 2)))؛ $ it = مثلث # يتقاطع T (ناقلات (3، 2، 2)، ناقلات (0، 2، 2)، ناقلات (0، -1، 2)،)؛ @ d = $ t-> divide ($ IT)؛ موافق ($ D == مثلث (ناقلات (0، -1، 2)، ناقلات (0، 0، 2)، ناقلات (1، 0، 2)))؛ طيب ($ D == مثلث (ناقلات (3، 2، 2)، ناقلات (1، 0، 2)، ناقل (0، 0، 2)))؛ طيب ($ D == مثلث (ناقلات (3، 2، 2)، ناقلات (0، 0، 2)، ناقل (0، 2، 2)))؛ $ it = مثلث # يتقاطع T (ناقلات (3، 2، 2)، المتجهات (0، -1، 2)، ناقل (0، 2، 2)،)؛ @ d = $ t-> divide ($ IT)؛ طيب ($ D == مثلث (ناقلات (0، -1، 2)، ناقل (1، 0، 2)، ناقلات (0، 0، 2)))؛ طيب ($ D == مثلث (ناقلات (3، 2، 2)، ناقلات (1، 0، 2)، ناقل (0، 0، 2)))؛ طيب ($ D == مثلث (ناقلات (3، 2، 2)، ناقلات (0، 0، 2)، ناقلات (0، 2، 2)))؛ المتطلبات: متطلبات بيرل: perl.

الرياضيات :: Zap :: مثلث برامج ذات صلة