home *** CD-ROM | disk | FTP | other *** search
/ GEMini Atari / GEMini_Atari_CD-ROM_Walnut_Creek_December_1993.iso / files / gnu / gplibt02 / tcomplex.cc < prev    next >
C/C++ Source or Header  |  1993-07-24  |  4KB  |  133 lines
  1. /*
  2.  a test file for Complex
  3. */
  4.  
  5. #include <assert.h>
  6.  
  7. #define tassert(ex) {if ((ex)) cerr << #ex << "\n"; \
  8.                        else _assert(#ex, __FILE__,__LINE__); }
  9.  
  10. #include <xcomplex.h>
  11.  
  12. // to test near-equality
  13.  
  14. const double eps = 0.000001;
  15.  
  16. static void close_enough(const Complex& a, const Complex& b)
  17. {
  18.   assert(abs(real(a) - real(b)) < eps &&
  19.          abs(imag(a) - imag(b)) < eps);
  20. }
  21.  
  22.  
  23. void test3(Complex& a, Complex& b, Complex& c)
  24. {
  25.  
  26.   close_enough(-(-a) , a);
  27.   close_enough((a + b) ,  (b + a));
  28.   close_enough((a + (-b)) ,  (a - b));
  29.   close_enough((a * b) ,  (b * a));
  30.   close_enough((a * (-b)) , -(a * b));
  31.   close_enough((a / (-b)) , -(a / b));
  32.   close_enough((a - b) ,  -(b - a));
  33.   close_enough((a + (b + c)) , ((a + b) + c));
  34.   close_enough((a * (b * c)) , ((a * b) * c));
  35.   close_enough((a * (b + c)) , ((a * b) + (a * c)));
  36.   close_enough(((a - b) + b) , a);
  37.   close_enough(((a + b) - b) , a);
  38.   close_enough(((a * b) / b) , a);
  39.   close_enough(((a / b) * b) , a);
  40.  
  41.  
  42.   Complex x = a;
  43.   x *= b;
  44.   close_enough(x , (a * b));
  45.   x += c;
  46.   close_enough(x , ((a * b) + c));
  47.   x -= a;
  48.   close_enough(x , (((a * b) + c) - a));
  49.   x /= b;
  50.   close_enough(x , ((((a * b) + c) - a) / b));
  51.  
  52. }
  53.  
  54. main()
  55. {
  56.   Complex one = 1.0;
  57.   Complex i (0.0, 1.0);
  58.   Complex neg_one = -1.0;
  59.  
  60.   cout << "Complex one = " << one << "\n";
  61.   cout << "i = " << i << "\n";
  62.   cout << "neg_one = " << neg_one << "\n";
  63.   cout << "sqrt(neg_one) = " << sqrt(neg_one) << "\n";
  64.  
  65.   Complex a (2.0, 3.0);
  66.   Complex b (4.0, 5.0);
  67.  
  68.   cout << "a = " << a << "\n";
  69.   cout << "b = " << b << "\n";
  70.  
  71.   cout << "a + one = " << (a + one) << "\n";
  72.   (close_enough((a+one), Complex(3.0, 3.0)));
  73.   cout << "a - one = " << (a - one) << "\n";
  74.   (close_enough((a-one), Complex(1.0, 3.0)));
  75.   cout << "a * one = " << (a * one) << "\n";
  76.   (close_enough((a*one), a));
  77.   cout << "a / one = " << (a / one) << "\n";
  78.   (close_enough((a/one), a));
  79.  
  80.   cout << "a + b = " << (a + b) << "\n";
  81.   (close_enough((a+b), Complex(6.0, 8.0)));
  82.   cout << "a - b = " << (a - b) << "\n";
  83.   (close_enough((a-b), Complex(-2.0, -2.0)));
  84.   cout << "a * b = " << (a * b) << "\n";
  85.   (close_enough((a*b), Complex(-7.0, 22.0)));
  86.   cout << "a / b = " << (a / b) << "\n";
  87.   (close_enough((a/b), Complex(0.5609760976, 0.0487804878)));
  88.  
  89.   Complex c;
  90.  
  91.   c = a; cout << "c = a; c += b = " << (c += b) << "\n";
  92.   c = a; cout << "c = a; c -= b = " << (c -= b) << "\n";
  93.   c = a; cout << "c = a; c *= b = " << (c *= b) << "\n";
  94.   c = a; cout << "c = a; c /= b = " << (c /= b) << "\n";
  95.  
  96.   cout << "-a = " << (-a) << "\n";
  97.   cout << "real(a) = " << real(a) << "\n";
  98.   assert(real(a) == 2.0);
  99.   cout << "imag(a) = " << imag(a) << "\n";
  100.   assert(imag(a) == 3.0);
  101.   cout << "conj(a) = " << conj(a) << "\n";
  102.   assert(conj(a) == Complex(2.0, -3.0));
  103.   cout << "norm(a) = " << norm(a) << "\n";
  104.   assert(norm(a) == 13.0);
  105.  
  106.   cout << "abs(a) = " << abs(a) << "\n";
  107.   cout << "arg(a) = " << arg(a) << "\n";
  108.   cout << "cos(a) = " << cos(a) << "\n";
  109.   cout << "sin(a) = " << sin(a) << "\n";
  110.   cout << "cosh(a) = " << cosh(a) << "\n";
  111.   cout << "sinh(a) = " << sinh(a) << "\n";
  112.   cout << "log(a) = " << log(a) << "\n";
  113.   cout << "exp(a) = " << exp(a) << "\n";
  114.   cout << "sqrt(a) = " << sqrt(a) << "\n";
  115.   cout << "pow(a, 2) = " << pow(a, 2) << "\n";
  116.   cout << "pow(a, b) = " << pow(a, b) << "\n";
  117.  
  118.   Complex d (10, 20);
  119.   Complex e = pow(a, 2);
  120.  
  121.   test3(one, one, one);
  122.   test3(a, a, a);
  123.   test3(a, b, d);
  124.   test3(e, i, b);
  125.   test3(d, d, i);
  126.  
  127.   cout << "enter a Complex number in form (a, b) or (a) or a: ";
  128.   cin >> c;
  129.   cout << "number = " << c << "\n";
  130.  
  131.   cout << "\nEnd of test\n";
  132. }
  133.