X-Git-Url: https://scm.cri.ensmp.fr/git/Faustine.git/blobdiff_plain/e77e9feca3956347ffeb6d58e97ec3b423ec99aa..4ecbf362e0d1d0abb9a7f0e9af8322472f28f7d1:/dsp_files/tests/complex_test.dsp diff --git a/dsp_files/tests/complex_test.dsp b/dsp_files/tests/complex_test.dsp deleted file mode 100644 index f5233a6..0000000 --- a/dsp_files/tests/complex_test.dsp +++ /dev/null @@ -1,21 +0,0 @@ -import ( "complex.lib" ) ; - -ccplx(r, i) = r, i : carte_cplx; -pcplx(m, a) = m, a : polar_cplx; - -A = ccplx(0.2, 0.3); -B = ccplx(-0.4, 0.5); -C = pcplx(0.5, PI); -D = pcplx(0.2, PI/2); - -//process = C, D : pcplx_add; //(0.53852, 2.7611) -//process = C, D : pcplx_sub; //(0.53852, -2.7611) -//process = C, D : pcplx_mul;//(0.1, -1.5708) -//process = C, D : pcplx_div;//(2.5, 1.5708) -//process = 0.3, (0, 0.5 : -) : par(i, 2, sca2pcplx);//(0.3, 0), (0.5, 3.14) -//process = 0, 0.4 : - : sca_abs;//(0.4) -//process = 0, 0.4 : - : sca2pcplx;//(0.4, -0.86) -//process = 1, (PI/4*3) : polar_cplx : polar2carte;//(-0.707, 0.707) -process = (0, 0.5 : -), 0 : carte_cplx <: _, carte2polar;//(0.5, 0.71) - -//process = C, D <: (polar2carte, polar2carte : ccplx_mul : carte2polar), pcplx_mul : pcplx_sub; \ No newline at end of file