מתמטיקה :: zap :: triangle2 מתמטיקה :: ZAP :: Triangle2 - משולשים בחלל 2D.
הורד עכשיו

מתמטיקה :: zap :: triangle2 דירוג וסיכום

מתמטיקה :: zap :: triangle2 תגים

פרל מודול 2D. מֶרחָב משולשים שטח 2D. משולשים 2D.

מתמטיקה :: zap :: triangle2 תיאור

מתמטיקה :: זאפ :: Triangle2 - משולשים בחלל 2D. מתמטיקה :: זאפ :: Triangle2 - משולשים ב 2D space.SynopsisExample t / triangle2.t #_ המשולש ___________________________________________________________ # מבחן 2D משולשים # philiprbrenan@yahoo.com, 2004, Perl רישיון שימוש #______________________________________________________________________ מתמטיקה :: זאפ :: Triangle2; מתמטיקה שימוש :: זאפ :: Vector2; שימוש מבחן :: Simple בדיקות => 27; $ A = triangle2 (vector2 (0, 0), vector2 (2, 0), vector2 (0, 2),); $ B = triangle2 (vector2 (0, 0), vector2 (4, 0), vector2 (0, 4),); ג $ = triangle2 (vector2 (0, 0), vector2 (-4, 0), vector2 (0, -4),); ד $ = $ B - vector2 (1,1); $ E = C $ + vector2 (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 (vector2 (1,2) -> rightAngle == vector2 (-2, 1)); OK (vector2 (1,0) -> rightAngle == vector2 (0, 1)); OK ($ a-> אזור == 2); OK ($ c-> אזור == 8); eval {triangle2 (vector2 (0, 0), vector2 (3, -6), vector2 (-3, 6))}; OK ($ @ = \ / ^ צר 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); OK (עמ '$ == vector2 (0, 8), 'Ring 0'); OK (עמ '$ == vector2 (2, 8), 'טבעת 1'); OK (עמ '$ == vector2 (5, 5), 'טבעת 2'); OK (עמ '$ == vector2 (5, 0), 'טבעת 3'); OK (עמ '$ == vector2 (3, 0), 'טבעת 4'); OK (עמ '$ == vector2 (0, 3), 'טבעת 5'); דרישות: · Perl

מתמטיקה :: zap :: triangle2 תוכנה קשורה