Ниже приводится PHP скрипт для комплексного числа операций. Оно включает в себя функции для того, вычитания, умножения и деления двух комплексных чисел в виде прямоугольных координат. Для div ($ первый, второй $) функцию, $ втором переменная делитель. Она также включает функцию, которая возвращает сопряженных из комплексного числа, и функция, которая преобразует комплексных чисел в полярных координат для прямоугольных координат, и наоборот.

<? Php
функция div ($ первый, второй $)
(
если (($ втором [ 'пересмотреть'] == 0 и второе и $ [ 'им'] == 0))
(возвращать (-1);)
$ = $ первом [ 'пересмотреть'];
б $ = $ первом [ 'им'];
с $ = $ втором [ 'пересмотреть'];
г $ = $ втором [ 'им'];
$ е = ($ * $ с) + ($ б * $ г);
ж $ = ($ с $ * с) + ($ д * $ г);
$ г = ($ б * $ с) - ($ * $ г);
$ результата [ 'пересмотреть'] = $ э / $ ж;
$ результата [ 'им'] = $ г / $ ж;
возвращение ($ результат);
)

функция добавления ($ первый, второй $)
(
$ результата [ 'пересмотреть'] = $ первом [ 'пересмотреть'] + $ втором [ 'пересмотреть'];
$ результата [ 'им'] = $ первом [ 'им'] + $ втором [ 'им'];
возвращение ($ результат);
)

функция югу ($ первый, второй $)
(
$ результата [ 'пересмотреть'] = $ первом [ 'пересмотреть'] - $ втором [ 'пересмотреть'];
$ результата [ 'им'] = $ первом [ 'им'] - $ втором [ 'им'];
возвращение ($ результат);
)

функции mul ($ первый, второй $)
(
$ результата [ 'вновь первая']=($ [' пересмотреть '] * $ втором [' вновь первая'])-($ [ 'им'] * $ втором [ 'им']);
$ результата [ 'им']=($ первой [' пересмотреть '] * $ втором [' им'])+($ второй [ 'пересмотреть'] * $ первом [ 'им']);
возвращение ($ результат);
)

функции conj ($ первыми)
(
$ результата [ 'пересмотреть'] = $ первом [ 'пересмотреть'];
$ результата [ 'им'] =- 1,0 * $ первом [ 'им'];
возвращение ($ результат);
)

функция rec2pol ($ первыми)
(
$ результата [ 'пересмотреть'] = sqrt (pow ($ первом [ 'пересмотреть'], 2) + pow ($ первом [ 'им'], 2));
$ результата [ 'им'] = rad2deg (atan ($ первом [ 'им'] / $ первом [ 'вновь']));
возвращение ($ результат);
)

функция pol2rec ($ первыми)
(
$ результата [ 'пересмотреть'] = $ первом [ 'пересмотреть'] * cos (deg2rad ($ первом [ 'им']));
$ результата [ 'им'] = $ первом [ 'пересмотреть'] * греха (deg2rad ($ первом [ 'им']));
возвращение ($ результат);
)

?>