Return to complex01.kk CVS log

Up to [local] / OpenXM / src / k097 / debug

Annotation of OpenXM/src/k097/debug/complex01.kk, Revision 1.1.1.1

1.1       maekawa     1: class Complex extends Object {
                      2:   local re, /* real part */
                      3:         im; /* imaginary part*/
                      4:   def new2(a,b) {
                      5:     this = new(super.new0());
                      6:     re = a;
                      7:     im = b;
                      8:     return(this);
                      9:   }
                     10:   def real() { return(re); }
                     11:   def imaginary() { return(im); }
                     12:   def operator add(b) {
                     13:     return( new2(re+b.real(), im+b.imaginary()) );
                     14:   }
                     15:   def operator sub(b) {
                     16:     return( new2(re-b.real(), im-b.imaginary()) );
                     17:   }
                     18:   def operator mul(b) {
                     19:     return(new2( re*b.real()-im*b.imaginary(), re*b.imaginary()+im*b.real()));
                     20:   }
                     21:   def operator div(b) {
                     22:     local den,num1,num2;
                     23:     den = (b.real())^2 + (b.imaginary())^2 ;
                     24:     num1 = re*b.real() + im*b.imaginary();
                     25:     num2 = -re*b.imaginary()+im*b.real();
                     26:     return(new2(num1/den, num2/den));
                     27:   }
                     28:
                     29:   def void show() {
                     30:     Print(re); Print(" +I["); Print(im); Print("]");
                     31:   }
                     32:   def void showln() {
                     33:     this.show(); Ln();
                     34:   }
                     35: }