PHP script para las operaciones con números complejos
El siguiente es un script PHP para las operaciones de número complejo. Incluye funciones de suma, resta, multiplicación y división de dos números complejos en forma rectangular coordinar. Para div ($ primero, $ segundo) función, la segunda variable de dólares es el divisor. También incluye la función que devuelve el conjugado de un número complejo, y una función que convierte los números complejos en coordenadas polares en coordenadas rectangulares, tornillo de banco y viceversa.
<? PHP
función div ($ primero, $ segundo)
(
if (($ segundo [ 're'] == 0 & & $ segundo [ 'im'] == 0))
(return (-1);)
$ a = $ primero [ 'nuevo'];
$ b = $ primero [ 'im'];
$ c = $ segundo [ 'nuevo'];
$ d = $ segundo [ 'im'];
$ e = ($ a * $ c) + ($ b * $ d);
$ f = ($ c * $ c) + ($ d * $ d);
$ g = ($ b * $ c) - ($ a * $ d);
$ result [ 're'] = $ e / $ f;
$ result [ 'im'] = $ g / $ f;
return ($ resultado);
)añadir la función ($ primero, $ segundo)
(
$ result [ 're'] = $ primero [ 're'] + $ segundo [ 'nuevo'];
$ result [ 'im'] = $ primero [ 'im'] + $ segundo [ 'im'];
return ($ resultado);
)función sub ($ primero, $ segundo)
(
$ result [ 're'] = $ primero [ 're'] - $ segundo [ 'nuevo'];
$ result [ 'im'] = $ primero [ 'im'] - $ segundo [ 'im'];
return ($ resultado);
)función mul ($ primero, $ segundo)
(
$ result [ 're']=($ primera [' re '] * $ segundo [' re'])-($ primera [ 'im'] * $ segundo [ 'im']);
$ result [ 'im']=($ primera [' re '] * $ segundo [' im'])+($ segundo [ 're'] * $ primero [ 'im']);
return ($ resultado);
)función conj ($ primero)
(
$ result [ 're'] = $ primero [ 'nuevo'];
$ result [ 'im'] =- 1,0 * $ primero [ 'im'];
return ($ resultado);
)función rec2pol ($ primero)
(
$ result [ 're'] = sqrt (pow ($ primero [ 're'], 2) + pow ($ primero [ 'im'], 2));
$ result [ 'im'] = rad2deg (atan ($ primero [ 'im'] / $ primero [ 're']));
return ($ resultado);
)función pol2rec ($ primero)
(
$ result [ 're'] = $ primero [ 're'] * cos (deg2rad ($ primero [ 'im']));
$ result [ 'im'] = $ primero [ 're'] * sin (deg2rad ($ primero [ 'im']));
return ($ resultado);
)>
Presentadas en: Códigos y Scripts











