Location: PHPKode > scripts > dm.Complex > dm-complex/example.php
<?php
//
// Edit History:
//
//  $Author: munroe $
//  $Date: 2006/01/22 19:41:49 $
//
//  Dick Munroe (hide@address.com) 20-Jan-2006
//      Initial version created.
//

/**
 * @author Dick Munroe <hide@address.com>
 * @copyright copyright @ 2006 by Dick Munroe, Cottage Software Works, Inc.
 * @license http://www.csworks.com/publications/ModifiedNetBSD.html
 * @version 1.0.0
 * @package Complex
 * @example ./example.php
 */

include_once 'class.Complex.php' ;

$n1 = new Complex(3, 2) ;
$n2 = new Complex(2, 5) ;

$theSum = new Complex($n1) ;
$theSum->add($n2) ;

$theSubtraction = new Complex($n1) ;
$theSubtraction->subtract($n2) ;

$theMultiplication = new Complex($n1) ;
$theMultiplication->multiply($n2) ;

$theDivision = new Complex($n1) ;
$theDivision->divide($n2) ;

$theSqrt = new Complex($n1) ;
$theSqrt->sqrt() ;

$theLog = new Complex($n1) ;
$theLog->log() ;

$theExp = new Complex($theLog) ;
$theExp->exp() ;

$theLog10 = new Complex($n1) ;
$theLog10->log10() ;

$theExp10 = new Complex($theLog10) ;
$theExp10->exp10() ;

echo "\nObject oriented operations:\n\n" ;
printf("number 1 =    (%f, %fi)
number 2 =    (%f, %fi)\n\n",
       $n1->real(), $n1->imaginary(),
       $n2->real(), $n2->imaginary()) ;
	
printf("Sum =         (%f, %fi)\n", $theSum->real(), $theSum->imaginary()) ;
printf("Difference =  (%f, %fi)\n", $theSubtraction->real(), $theSubtraction->imaginary()) ;
printf("Product =     (%f, %fi)\n", $theMultiplication->real(), $theMultiplication->imaginary()) ;
printf("Quotient =    (%f, %fi)\n", $theDivision->real(), $theDivision->imaginary()) ;
printf("Square Root = (%f, %fi)\n", $theSqrt->real(), $theSqrt->imaginary()) ;
printf("Log base e  = (%f, %fi)\n", $theLog->real(), $theLog->imaginary()) ;
printf("e**Log base e  = (%f, %fi)\n", $theExp->real(), $theExp->imaginary()) ;
printf("Log base 10 = (%f, %fi)\n", $theLog10->real(), $theLog10->imaginary()) ;
printf("10**Log base 10  = (%f, %fi)\n", $theExp10->real(), $theExp10->imaginary()) ;

$n1 = new Complex(6, 3) ;
$n2 = new Complex(0, 5) ;

$theSum = Complex::add($n1, $n2) ;

$theSubtraction = Complex::subtract($n1, $n2) ;

$theMultiplication = Complex::multiply($n1, $n2) ;

$theDivision = Complex::divide($n1, $n2) ;

$theSqrt = Complex::sqrt($n1) ;

$theLog = Complex::log($n1) ;

$theExp = Complex::exp($theLog) ;

$theLog10 = Complex::log10($n1) ;

$theExp10 = Complex::exp10($theLog10) ;

echo "\nProcedural operations:\n\n" ;
printf("number 1 =    (%f, %fi)
number 2 =    (%f, %fi)\n\n",
       $n1->real(), $n1->imaginary(),
       $n2->real(), $n2->imaginary()) ;
	
printf("Sum =         (%f, %fi)\n", $theSubtraction->real(), $theSubtraction->imaginary()) ;
printf("Product =     (%f, %fi)\n", $theMultiplication->real(), $theMultiplication->imaginary()) ;
printf("Quotient =    (%f, %fi)\n", $theDivision->real(), $theDivision->imaginary()) ;
printf("Square Root = (%f, %fi)\n", $theSqrt->real(), $theSqrt->imaginary()) ;
printf("Log base e  = (%f, %fi)\n", $theLog->real(), $theLog->imaginary()) ;
printf("e**Log base e  = (%f, %fi)\n", $theExp->real(), $theExp->imaginary()) ;
printf("Log base 10 = (%f, %fi)\n", $theLog10->real(), $theLog10->imaginary()) ;
printf("10**Log base 10  = (%f, %fi)\n", $theExp10->real(), $theExp10->imaginary()) ;

echo "\nPolar Coordinate Form:\n\n" ;

$p1 = new Polar($n1) ;
$p2 = new Polar($n2) ;

printf("number 1 =    (%f, %f (radians))
number 2 =    (%f, %f (radians))\n",
       $p1->radius(), $p1->theta(),
       $p2->radius(), $p2->theta()) ;
       
$n1 = new Complex($p1) ;
$n2 = new Complex($p2) ;

printf("number 1 =    (%f, %fi)
number 2 =    (%f, %fi)\n",
       $n1->real(), $n1->imaginary(),
       $n2->real(), $n2->imaginary()) ;       
       
$p1 = new Polar(1, -2*M_PI) ;

printf("number 3 =    (%f, %f (radians))\n",
       $p1->radius(), $p1->theta()) ;       

$p1 = new Polar(1, -1.5*M_PI) ;

printf("number 4 =    (%f, %f (radians))\n",
       $p1->radius(), $p1->theta()) ;       

echo "\n"
?>
Return current item: dm.Complex