dsp_files/complex_test.6.tmp.dsp

   1 import ( "complex.lib" ) ;
   2
   3 ccplx(r, i) = r, i : carte_cplx;
   4 pcplx(m, a) = m, a : polar_cplx;
   5
   6 A = ccplx(0.2, 0.3);
   7 B = ccplx(-0.4, 0.5);
   8 C = pcplx(0.5, PI);
   9 D = pcplx(0.2, PI/2);
  10
  11 process = C, D : pcplx_add; //(0.53852, 2.7611)
  12 //process = C, D : pcplx_sub; //
  13 //process = C, D : pcplx_mul;
  14 //process = C, D <: (polar2carte, polar2carte : ccplx_mul : carte2polar), pcplx_mul : pcplx_sub;