निम्नलिखित एक PHP स्क्रिप्ट संख्या जटिल ऑपरेशन के लिए है . इसमें कार्यों के लिए साथ ही , घटाव , गुणन , विभाजन और जटिल संख्या में दो आयताकार फार्म का समन्वय है . क्योंकि div ( $ पहली , दूसरी डॉलर ) समारोह में , दूसरी $ चर भाजक है . यह समारोह भी शामिल हैं जो कि संयुग्म रिटर्न की संख्या के एक जटिल है , और एक समारोह कि जटिल संख्या में धर्मान्तरित ध्रुवीय निर्देशांक आयताकार समन्वय करने के लिए , और vise विपरीत है .

< ? php
समारोह div ( $ पहली , दूसरी डॉलर )
(
यदि ( ( $ दूसरी [ ' फिर ' ] == 0 & & $ दूसरी [ ' im ' ] == 0 ) )
( वापसी ( -1 ) ; )
$ $ पहले एक = [ ' फिर ' ] ;
पहला $ $ b = [ ' im ' ] ;
$ ग $ दूसरी = [ ' फिर ' ] ;
दूसरी $ $ d = [ ' im ' ] ;
ई = $ ( $ एक $ * ग ) + ( $ b * $ d ) ;
च = $ ( $ ग $ * ग ) + ( $ d * $ d ) ;
g = $ ( $ b * $ ग ) -- ( $ एक $ d * ) ;
$ परिणाम [ ' फिर ' ] = $ ए / च $ ;
$ परिणाम [ ' im ' ] = $ g / $ च ;
वापसी ( $ परिणाम ) ;
)

समारोह में जोड़ने ( $ पहली , दूसरी डॉलर )
(
$ परिणाम [ ' फिर ' ] = $ पहली [ ' फिर ' ] $ + दूसरी [ ' फिर ' ] ;
$ परिणाम [ ' im ' ] = $ पहली [ ' im ' ] $ + दूसरी [ ' im ' ] ;
वापसी ( $ परिणाम ) ;
)

समारोह में उप ( $ पहली , दूसरी डॉलर )
(
$ परिणाम [ ' फिर ' ] = $ पहली [ ' फिर ' ] -- दूसरे $ [ ' फिर ' ] ;
$ परिणाम [ ' im ' ] = $ पहली [ ' im ' ] -- दूसरे $ [ ' im ' ] ;
वापसी ( $ परिणाम ) ;
)

समारोह में एमयूएल ( $ पहली , दूसरी डॉलर )
(
$ परिणाम [ ' पुनः ']=($ पहली [ ' फिर ' ] $ * दूसरी [ ' पुनः '])-($ पहली [ ' im ' ] $ * दूसरी [ ' im ' ] ) ;
$ परिणाम [ ' im ']=($ पहली [ ' फिर ' ] $ * दूसरी [ ' im '])+($ दूसरी [ ' फिर ' ] $ पहले * [ ' im ' ] ) ;
वापसी ( $ परिणाम ) ;
)

समारोह conj ( $ प्रथम )
(
$ परिणाम [ ' फिर ' ] = $ पहली [ ' फिर ' ] ;
$ परिणाम [ ' im ' ] =- 1,0 $ पहले * [ ' im ' ] ;
वापसी ( $ परिणाम ) ;
)

समारोह rec2pol ( $ प्रथम )
(
$ परिणाम [ ' फिर ' ] = sqrt ( pow ( $ पहली [ ' फिर ' ] , 2 ) + pow ( $ पहली [ ' im ' ] , 2 ) ) ;
$ परिणाम [ ' im ' ] = rad2deg ( atan ( $ पहली [ ' im ' ] / डॉलर की पहली [ ' पुनः ']));
वापसी ( $ परिणाम ) ;
)

समारोह pol2rec ( $ प्रथम )
(
$ परिणाम [ ' फिर ' ] = $ पहली [ ' फिर ' ] * फ़ॉन्ट ( deg2rad ( $ पहली [ ' im ']));
$ परिणाम [ ' im ' ] = $ पहली [ ' फिर ' ] * पाप ( deg2rad ( $ पहली [ ' im ']));
वापसी ( $ परिणाम ) ;
)

? >