O que se segue é um script PHP para a complexa série operações. Inclui funções para adição, subtração, multiplicação e divisão de dois números complexos em coordenar forma retangular. Por div (US $ primeiro, $ segundo) função, a variável é o segundo $ divisor. Inclui também a função que retorna o conjugado de um número complexo, e uma função que converte números complexos em coordenadas polares para coordenar rectangular, e vise versa.

<? PHP
Função div (US $ primeiro, $ segundo)
(
if (($ segundo [ 're'] == 0 & & $ segundo [ 'im'] == 0))
(retorno (-1);)
$ $ a = primeiro [ 're'];
$ b = $ primeiro [ 'im'];
$ c = $ segundo [ 're'];
$ d = $ segundo [ 'im'];
$ e = (a * $ $ c) + (b $ * $ d);
$ f = ($ c * $ c) + ($ d * $ d);
$ g = ($ $ b * c) - (a * $ $ d);
$ resultado [ 're'] = $ e / $ f;
$ resultado [ 'im'] = $ g / $ f;
retorno ($ result);
)

função adicionar (R $ primeiro, $ segundo)
(
$ resultado [ 're'] = $ primeiro [ 're'] + $ segundo [ 're'];
$ resultado [ 'im'] = $ primeiro [ 'im'] + $ segundo [ 'im'];
retorno ($ result);
)

função sub (US $ primeiro, $ segundo)
(
$ resultado [ 're'] = $ primeiro [ 're'] - $ segundo [ 're'];
$ resultado [ 'im'] = $ primeiro [ 'im'] - $ segundo [ 'im'];
retorno ($ result);
)

função mul (US $ primeiro, $ segundo)
(
$ resultado [ 're']=($ primeiro [' re '] * $ segundo [' re'])-($ primeiro [ 'im'] * $ segundo [ 'im']);
$ resultado [ 'im']=($ primeiro [' re '] * $ segundo [' im'])+($ segundo [ 're'] * $ primeiro [ 'im']);
retorno ($ result);
)

função conj (US $ primeiro)
(
$ resultado [ 're'] = $ primeiro [ 're'];
$ resultado [ 'im'] =- 1,0 * $ primeiro [ 'im'];
retorno ($ result);
)

função rec2pol (US $ primeiro)
(
$ resultado [ 're'] = sqrt (Pow (US $ primeiro [ 're'], 2) + Pow (US $ primeiro [ 'im'], 2));
$ resultado [ 'im'] = rad2deg (atan (US $ primeiro [ 'im'] / $ primeiro [ 're']));
retorno ($ result);
)

função pol2rec (US $ primeiro)
(
$ resultado [ 're'] = $ primeiro [ 're'] * cos (deg2rad ($ primeiro [ 'im']));
$ resultado [ 'im'] = $ primeiro [ 're'] * sin (deg2rad ($ primeiro [ 'im']));
retorno ($ result);
)

?>