الفرجار الدوار

/* p[] في الشكل القياسي، أي بترتيب عكس عقارب الساعة،  رؤوس مميزة، لا توجد رؤوس على استقامة واحدة.  ANGLE(m, n) هي دالة تُرجع الزاوية التي  يمسحها شعاع باتجاه عقارب الساعة أثناء دورانه من موضع موازٍ  للقطعة المستقيمة الموجهة Pm,Pm+1 إلى موضع موازٍ لـ Pn,Pn+1.  نفترض أن جميع المؤشرات مُختزلة إلى modulo N (بحيث N+1 = 1). */ GetAllAntiPodalPairs ( p [ 1. . n ]) // إيجاد أول زوج متقابل بتحديد الرأس المقابل لـ P1 i = 1 j = 2 while angle ( i , j ) < pi j ++ yield i , j/* الآن، تابع السير حول المضلع مع مراعاة  الحواف المتوازية المحتملة. يمر الخط L بالنقطة  P1، P1+1، ويمر الخط M بالنقطة Pj، Pj+1  */// كرر العملية على j حتى يتم مسح P بالكامل current = i while j != n if angle ( current , i + 1 ) <= angle ( current , j + 1 ) j ++ current = j else i ++ current = i yield i , j// الآن، تعامل مع الحواف المتوازية. إذا كانت الزاوية ( الحالية ، i + 1 ) تساوي الزاوية ( الحالية ، j + 1 )، فقم بإرجاع i + 1 ، j. قم بإرجاع i ، j + 1. قم بإرجاع i + 1 ، j + 1. إذا كانت الحالية = i، فقم بزيادة j بمقدار 1. وإلا فقم بزيادة i بمقدار 1.

GetAllAntiPodalPairs ( p [ 1..n ] ) i = n j = i + 1 while ( Area ( i , i + 1 , j + 1 ) > Area ( i , i + 1 , j )) j = j + 1 j0 = j while ( i != j0 ) i = i + 1 yield i , j while ( Area ( i , i + 1 , j + 1 ) > Area ( i , i + 1 , j )) j = j + 1 if (( i , j ) != ( j0 , 1 ) ) yield i , j if ( Area ( i , i + 1 , j + 1 ) = Area ( i , i + 1 , j )) if (( i , j ) != ( j0 , n )) yield i , j + 1