فيما يلى مجموعة بي. اتش. بى سكريبت عدد عمليات معقدة لانها تشمل وظائف لوبالاضافة الى ذلك ، الطرح ، الضرب ، واثنين من شعبه إعداد معقدة في تنسيق شكل مستطيل. لdiv ($ الاولى ، والثانية دولار) وظيفة ، والثاني متغير دولار هو المقسوم. كما تشمل وظيفة المتقارن ان يعيد عدد من معقدة ، ودالة على ان يتم تحويل الارقام المعقده في القطبيه تنسيق لتنسيق مستطيل ، والعكس ملزمة.

<؟ بي. اتش. بى
وظيفة div ($ الاولى ، والثانية دولار)
(
اذا كانت الاجابه ب (($ الثانية [ 'اعادة'] == 0 & & $ الثانية [ 'ايم'] == 0))
(عودة (-1) ؛)
أ دولار = دولار الأولى [ 'اعادة'] ؛
دولار ب دولار = الاولى [ '. I'm] ؛
ج دولار = دولار الثانية [ 'اعادة'] ؛
د دولار = دولار الثانية [ '. I'm] ؛
$ ه = (ا * دولار دولار ج) + (ب * $ $ د) ؛
= دولار و (ج * $ دولار ج) + ($ $ * د د) ؛
ز دولار = دولار (ب * ج دولار (--) دولار ا * د دولار) ؛
دولار نتيجة ل[ 'اعادة'] = $ ه / دولار و ؛
دولار نتيجة ل[ 'ايم'] = $ ز / دولار و ؛
عودة دولار (نتيجة) ؛
)

اضافة وظيفة ($ الاولى ، والثانية دولار)
(
دولار نتيجة ل[ 'اعادة'] = $ الأولى [ 'اعادة'] + $ الثانية [ 'اعادة'] ؛
دولار نتيجة ل[ 'ايم'] = $ الأولى [ '. I'm] $ + الثانية ['. I'm] ؛
عودة دولار (نتيجة) ؛
)

وظيفة الفرعية ($ الاولى ، والثانية دولار)
(
دولار نتيجة ل[ 'اعادة'] = $ الأولى [ 'اعادة'] -- $ الثانية [ 'اعادة'] ؛
دولار نتيجة ل[ 'ايم'] = $ الأولى [ '. I'm] -- دولار الثانية ['. I'm] ؛
عودة دولار (نتيجة) ؛
)

وظيفة مول ($ الاولى ، والثانية دولار)
(
دولار نتيجة ل[ 'اعادة']=($ الأولى [ 'اعادة'] * $ الثانية [ 'اعادة'])-($ الأولى [ '. I'm] * $ الثانية [' ايم ']) ؛
دولار نتيجة ل[ 'ايم']=($ الأولى [ 'اعادة'] * $ الثانية [ 'ايم'])+($ الثانية [ 'اعادة'] * اولا دولار [ 'ايم']) ؛
عودة دولار (نتيجة) ؛
)

وظيفة conj دولار (الاولى)
(
دولار نتيجة ل[ 'اعادة'] = $ الأولى [ 'اعادة'] ؛
دولار نتيجة ل[ '. I'm] =- 1،0 دولار * الأولى ['. I'm] ؛
عودة دولار (نتيجة) ؛
)

وظيفة rec2pol دولار (الاولى)
(
دولار نتيجة ل[ 'اعادة'] = الجذر التربيعي (اسير دولار (الأولى [ 'اعادة'] ، 2) + اسير دولار (الأولى [ '. I'm] (2)) ؛
دولار نتيجة ل[ 'ايم'] = rad2deg (atan ($ الأولى [ '. I'm] / $ الأولى [' اعادة ']))؛
عودة دولار (نتيجة) ؛
)

وظيفة pol2rec دولار (الاولى)
(
دولار نتيجة ل[ 'اعادة'] = $ الأولى [ 'اعادة'] * جتا (deg2rad ($ الأولى [ 'ايم']))؛
دولار نتيجة ل[ 'ايم'] = $ الأولى [ 'اعادة'] * هادئ (deg2rad ($ الأولى [ 'ايم']))؛
عودة دولار (نتيجة) ؛
)

؟>