diff options
Diffstat (limited to '2.3-1/tests/unit_tests/double/test_IFFT.sci.dia.ref')
| -rw-r--r-- | 2.3-1/tests/unit_tests/double/test_IFFT.sci.dia.ref | 4472 |
1 files changed, 4472 insertions, 0 deletions
diff --git a/2.3-1/tests/unit_tests/double/test_IFFT.sci.dia.ref b/2.3-1/tests/unit_tests/double/test_IFFT.sci.dia.ref new file mode 100644 index 00000000..b1023a1b --- /dev/null +++ b/2.3-1/tests/unit_tests/double/test_IFFT.sci.dia.ref @@ -0,0 +1,4472 @@ +// +// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab +// Copyright (C) 2010-2010 - DIGITEO - Bruno JOFRET +// +// This file must be used under the terms of the CeCILL. +// This source file is licensed as described in the file COPYING, which +// you should have received as part of this distribution. The terms +// are also available at +// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt +// +// +// <-- ENGLISH IMPOSED --> +// <-- JVM NOT MANDATORY --> +global SCI2CHOME; +scilab2c(SCI2CHOME+"/tests/unit_tests/double/test_IFFT.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 2. + + 4. + i + + 1.5 - 0.5 + + 0.6666667 0.1666667 - 1.4433757i 0.1666667 + 1.4433757i + + 1.5i - 0.5i + + 4.4 + + 3.4 + i + + 7.375 - 1.25 - 0.625i 5.125 - 1.25 + 0.625i + + ********1******* + + 14.3 10.7 + + ********2******* + + + column 1 to 3 + + 2236.0314 1792.8169 - 1235.3786i 769.49776 - 2055.1006i + + column 4 to 5 + + - 483.22773 - 2116.6758i - 1602.6181 - 1433.2571i + + column 6 to 7 + + - 2132.1424 - 340.59732i - 1925.5675 + 921.43654i + + column 8 to 9 + + - 1106.7043 + 1873.9016i 118.16434 + 2150.2941i + + column 10 to 11 + + 1373.4461 + 1728.4382i 2083.3191 + 665.95496i + + column 12 to 13 + + 2083.3191 - 665.95496i 1373.4461 - 1728.4382i + + column 14 to 15 + + 118.16434 - 2150.2941i - 1106.7043 - 1873.9016i + + column 16 to 17 + + - 1925.5675 - 921.43654i - 2132.1424 + 340.59732i + + column 18 to 19 + + - 1602.6181 + 1433.2571i - 483.22773 + 2116.6758i + + column 20 to 21 + + 769.49776 + 2055.1006i 1792.8169 + 1235.3786i + + ********3********* + + 7.375i 0.625 - 1.25i 5.125i - 0.625 - 1.25i + + ********4********* + + 14.3i 10.7i + + ********5*********** + + + column 1 to 3 + + 2236.0314i 1235.3786 + 1792.8169i 2055.1006 + 769.49776i + + column 4 to 5 + + 2116.6758 - 483.22773i 1433.2571 - 1602.6181i + + column 6 to 7 + + 340.59732 - 2132.1424i - 921.43654 - 1925.5675i + + column 8 to 9 + + - 1873.9016 - 1106.7043i - 2150.2941 + 118.16434i + + column 10 to 11 + + - 1728.4382 + 1373.4461i - 665.95496 + 2083.3191i + + column 12 to 13 + + 665.95496 + 2083.3191i 1728.4382 + 1373.4461i + + column 14 to 15 + + 2150.2941 + 118.16434i 1873.9016 - 1106.7043i + + column 16 to 17 + + 921.43654 - 1925.5675i - 340.59732 - 2132.1424i + + column 18 to 19 + + - 1433.2571 - 1602.6181i - 2116.6758 - 483.22773i + + column 20 to 21 + + - 2055.1006 + 769.49776i - 1235.3786 + 1792.8169i + + ********6*********** + + + column 1 to 3 + + 7.375 + 7.375i - 0.625 - 1.875i 5.125 + 5.125i + + column 4 + + - 1.875 - 0.625i + + ********7*********** + + 14.3 + 14.3i 10.7 + 10.7i + + ********8*********** + + + column 1 to 2 + + 2236.0314 + 2236.0314i 3028.1955 + 557.43835i + + column 3 to 4 + + 2824.5983 - 1285.6028i 1633.448 - 2599.9035i + + column 5 to 6 + + - 169.36101 - 3035.8752i - 1791.5451 - 2472.7397i + + column 7 to 8 + + - 2847.004 - 1004.1309i - 2980.6059 + 767.19736i + + column 9 to 10 + + - 2032.1297 + 2268.4584i - 354.99203 + 3101.8843i + + column 11 to 12 + + 1417.3642 + 2749.2741i 2749.2741 + 1417.3642i + + column 13 to 14 + + 3101.8843 - 354.99203i 2268.4584 - 2032.1297i + + column 15 to 16 + + 767.19736 - 2980.6059i - 1004.1309 - 2847.004i + + column 17 to 18 + + - 2472.7397 - 1791.5451i - 3035.8752 - 169.36101i + + column 19 to 20 + + - 2599.9035 + 1633.448i - 1285.6028 + 2824.5983i + + column 21 + + 557.43835 + 3028.1955i + + ******************** + + ******************* + + ******************* + + ******************** + + 6.5625 - 1.125 - 0.6875i 3.1875 - 1.125 + 0.6875i + 0.8125 - 0.125 + 0.0625i 1.9375 - 0.125 - 0.0625i + + ********9*********** + + 8.95 5.55 + 5.35 5.15 + + ********10********** + + + column 1 to 3 + + 2702.1086 2173.7629 - 1504.7062i 958.3983 - 2473.753i + - 466.07714 - 380.94596 + 269.32767i - 188.90055 + 418.65244i + + column 4 to 5 + + - 590.43082 - 2590.6981i - 1949.7881 - 1760.3148i + 107.20309 + 474.0223i 347.16999 + 327.05766i + + column 6 to 7 + + - 2598.9174 - 412.95691i - 2373.3059 + 1140.6306i + 466.775 + 72.359584i 447.73845 - 219.19404i + + column 8 to 9 + + - 1324.2514 + 2286.3879i 158.37631 + 2625.3279i + 217.54714 - 412.48625i - 40.211977 - 475.03387i + + column 10 to 11 + + 1671.4325 + 2098.0929i 2531.4195 + 783.93509i + - 297.98631 - 369.65472i - 448.10032 - 117.98013i + + column 12 to 13 + + 2531.4195 - 783.93509i 1671.4325 - 2098.0929i + - 448.10032 + 117.98013i - 297.98631 + 369.65472i + + column 14 to 15 + + 158.37631 - 2625.3279i - 1324.2514 - 2286.3879i + - 40.211977 + 475.03387i 217.54714 + 412.48625i + + column 16 to 17 + + - 2373.3059 - 1140.6306i - 2598.9174 + 412.95691i + 447.73845 + 219.19404i 466.775 - 72.359584i + + column 18 to 19 + + - 1949.7881 + 1760.3148i - 590.43082 + 2590.6981i + 347.16999 - 327.05766i 107.20309 - 474.0223i + + column 20 to 21 + + 958.3983 + 2473.753i 2173.7629 + 1504.7062i + - 188.90055 - 418.65244i - 380.94596 - 269.32767i + + ********11********** + + 6.4375i - 0.3125 - 0.75i 2.5625i 0.3125 - 0.75i + 0.9375i 0.9375 - 0.5i 2.5625i - 0.9375 - 0.5i + + ********12********** + + 9.625i 4.875i + 4.675i 5.825i + + ********13********** + + + column 1 to 3 + + 2702.1086i 1504.7062 + 2173.7629i 2473.753 + 958.3983i + - 466.07714i - 269.32767 - 380.94596i - 418.65244 - 188.90055i + + column 4 to 5 + + 2590.6981 - 590.43082i 1760.3148 - 1949.7881i + - 474.0223 + 107.20309i - 327.05766 + 347.16999i + + column 6 to 7 + + 412.95691 - 2598.9174i - 1140.6306 - 2373.3059i + - 72.359584 + 466.775i 219.19404 + 447.73845i + + column 8 to 9 + + - 2286.3879 - 1324.2514i - 2625.3279 + 158.37631i + 412.48625 + 217.54714i 475.03387 - 40.211977i + + column 10 to 11 + + - 2098.0929 + 1671.4325i - 783.93509 + 2531.4195i + 369.65472 - 297.98631i 117.98013 - 448.10032i + + column 12 to 13 + + 783.93509 + 2531.4195i 2098.0929 + 1671.4325i + - 117.98013 - 448.10032i - 369.65472 - 297.98631i + + column 14 to 15 + + 2625.3279 + 158.37631i 2286.3879 - 1324.2514i + - 475.03387 - 40.211977i - 412.48625 + 217.54714i + + column 16 to 17 + + 1140.6306 - 2373.3059i - 412.95691 - 2598.9174i + - 219.19404 + 447.73845i 72.359584 + 466.775i + + column 18 to 19 + + - 1760.3148 - 1949.7881i - 2590.6981 - 590.43082i + 327.05766 + 347.16999i 474.0223 + 107.20309i + + column 20 to 21 + + - 2473.753 + 958.3983i - 1504.7062 + 2173.7629i + 418.65244 - 188.90055i 269.32767 - 380.94596i + + ********14********** + + + column 1 to 3 + + 6.5625 + 6.4375i - 1.4375 - 1.4375i 3.1875 + 2.5625i + 0.8125 + 0.9375i 0.8125 - 0.4375i 1.9375 + 2.5625i + + column 4 + + - 0.8125 - 0.0625i + - 1.0625 - 0.5625i + + ********15********** + + 8.95 + 9.625i 5.55 + 4.875i + 5.35 + 4.675i 5.15 + 5.825i + + ********16********** + + + column 1 to 2 + + 2702.1086 + 2702.1086i 3678.4691 + 669.05664i + - 466.07714 - 466.07714i - 650.27363 - 111.61828i + + column 3 to 4 + + 3432.1513 - 1515.3547i 2000.2672 - 3181.1289i + - 607.55299 + 229.7519i - 366.81921 + 581.22539i + + column 5 to 6 + + - 189.47334 - 3710.1029i - 2185.9605 - 3011.8743i + 20.112333 + 674.22765i 394.41542 + 539.13459i + + column 7 to 8 + + - 3513.9365 - 1232.6753i - 3610.6393 + 962.13647i + 666.93249 + 228.54441i 630.03339 - 194.93911i + + column 9 to 10 + + - 2466.9516 + 2783.7043i - 426.66045 + 3769.5253i + 434.8219 - 515.24585i 71.668414 - 667.64102i + + column 11 to 12 + + 1747.4844 + 3315.3546i 3315.3546 + 1747.4844i + - 330.12019 - 566.08045i - 566.08045 - 330.12019i + + column 13 to 14 + + 3769.5253 - 426.66045i 2783.7043 - 2466.9516i + - 667.64102 + 71.668414i - 515.24585 + 434.8219i + + column 15 to 16 + + 962.13647 - 3610.6393i - 1232.6753 - 3513.9365i + - 194.93911 + 630.03339i 228.54441 + 666.93249i + + column 17 to 18 + + - 3011.8743 - 2185.9605i - 3710.1029 - 189.47334i + 539.13459 + 394.41542i 674.22765 + 20.112333i + + column 19 to 20 + + - 3181.1289 + 2000.2672i - 1515.3547 + 3432.1513i + 581.22539 - 366.81921i 229.7519 - 607.55299i + + column 21 + + 669.05664 + 3678.4691i + - 111.61828 - 650.27363i + + ------------------------------------------ + + --- End Execution of your SCILAB code. --- + + ------------------------------------------ + + ==> SCI2C hArtes/POLIBA Tool!!! + + Removing directory: TMPDIR/SCI2CTmpResultsReports + + Removing directory: TMPDIR + + ==> Initialize SCI2C and USER2C Libraries. + + ==> Load SCI2C and USER2C Libraries. + + ==> Start translation of function "test_IFFT" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_IFFT/test_IFFT_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_IFFT/test_IFFT_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(2)); // d0IFFTd0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(%i + 4)) // z0IFFTz0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft([1 2])); // d2IFFTd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft([1 2]*%i)); // z2IFFTz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(4.4)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(%i + 3.4)) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // one input + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: Abis = a + zeros(a)*%i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(Abis)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********1*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: b = [25 3.6]; // d2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(b)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********2*******"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456 + 56 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cbis = c + zeros(c)*%i ; + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(cbis)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********3*********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // pure imaginary + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(d)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********4*********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: e = [25 3.6]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(e)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********5***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 + 45656 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(f)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********6***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(g)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********7***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(h)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********8***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2. + 36 45656 72.3 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(j)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("*******************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********************"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ******************** + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // MATRIX + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // ******************** + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // one input + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(aa)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********9***********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(bb)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********10**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45 + 656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554 + 6 1.78 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(cc)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********11**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // pure imaginary + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(dd)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********12**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(ee)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********13**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 + 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 + 65546 1.78 ] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(ff)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********14**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: // full complex + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: gg = aa + dd; //z2Fftz2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(gg)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********15**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: hh = bb + ee; // z2Fftd2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(hh)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp("********16**********"); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: jj= cc + ff + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(ifft(jj)); + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: endfunction + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + ==> Copying sources + + ==> Copying headers + + ==> Copying interfaces + + ==> Generating Builder TMPDIR/Makefile + + ==> Translation Successfully Completed!!! +fd = mopen(TMPDIR+"/main.c"); +mgetl(fd) + ans = + +!/* ! +! ! +!** ************************************************ ! +! ! +!** This file has been generated using ! +! ! +!** Scilab2C (Version 2.0) ! +! ! +!** ! +! ! +!** Please visit following links for more informations: ! +! ! +!** Atoms Module: http://atoms.scilab.org/toolboxes/scilab2c ! +! ! +!** Scilab2C Forge: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** Scilab2C ML: http://forge.scilab.org/index.php/p/scilab2c/ ! +! ! +!** ************************************************ ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------- ! +! ! +!** --- Includes. --- ! +! ! +!** ----------------- ! +! ! +!*/ ! +! ! +!#include "main.h" ! +! ! +!/* ! +! ! +!** --------------------- ! +! ! +!** --- End Includes. --- ! +! ! +!** --------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ------------------------------------- ! +! ! +!** --- Global Variables Declaration. --- ! +! ! +!** ------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** ----------------------------------------- ! +! ! +!** --- End Global Variables Declaration. --- ! +! ! +!** ----------------------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +!/* ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +! SCI2C: function test_IFFT() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double __temp1; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp2; ! +! ! +! ! +! ! +! doubleComplex __temp3; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 2]; ! +! ! +! int ____temp5Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! double __temp6[1 * 2]; ! +! ! +! int ____temp6Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp7[1 * 3]; ! +! ! +! int ____temp7Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp8[1 * 3]; ! +! ! +! int ____temp8Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp10[1 * 3]; ! +! ! +! int ____temp10Size[2] = {1, 3};; ! +! ! +! ! +! ! +! doubleComplex __temp11[1 * 3]; ! +! ! +! int ____temp11Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp13[1 * 2]; ! +! ! +! int ____temp13Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp14[1 * 2]; ! +! ! +! int ____temp14Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! double __temp15; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp16; ! +! ! +! ! +! ! +! doubleComplex __temp17; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! double __temp18[1 * 2]; ! +! ! +! int ____temp18Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp19[1 * 3]; ! +! ! +! int ____temp19Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double a[1 * 4]; ! +! ! +! int __aSize[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp20[1 * 4]; ! +! ! +! int ____temp20Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp21[1 * 4]; ! +! ! +! int ____temp21Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex Abis[1 * 4]; ! +! ! +! int __AbisSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp22[1 * 4]; ! +! ! +! int ____temp22Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! char __temp23[1*17] = {"********1*******"}; ! +! ! +! int ____temp23Size[2] = {1,17}; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! double b[1 * 2]; ! +! ! +! int __bSize[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp24[1 * 2]; ! +! ! +! int ____temp24Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! char __temp25[1*17] = {"********2*******"}; ! +! ! +! int ____temp25Size[2] = {1,17}; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! double __temp26[1 * 2]; ! +! ! +! int ____temp26Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp27[1 * 3]; ! +! ! +! int ____temp27Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp28[1 * 4]; ! +! ! +! int ____temp28Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp29[1 * 5]; ! +! ! +! int ____temp29Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp30[1 * 6]; ! +! ! +! int ____temp30Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp31[1 * 7]; ! +! ! +! int ____temp31Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp32[1 * 8]; ! +! ! +! int ____temp32Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp33[1 * 9]; ! +! ! +! int ____temp33Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp34[1 * 10]; ! +! ! +! int ____temp34Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp35[1 * 11]; ! +! ! +! int ____temp35Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp36[1 * 12]; ! +! ! +! int ____temp36Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp37[1 * 13]; ! +! ! +! int ____temp37Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp38[1 * 14]; ! +! ! +! int ____temp38Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp39[1 * 15]; ! +! ! +! int ____temp39Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp40[1 * 16]; ! +! ! +! int ____temp40Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp41[1 * 17]; ! +! ! +! int ____temp41Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp42[1 * 18]; ! +! ! +! int ____temp42Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp43[1 * 19]; ! +! ! +! int ____temp43Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp44[1 * 20]; ! +! ! +! int ____temp44Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double c[1 * 21]; ! +! ! +! int __cSize[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp45[1 * 21]; ! +! ! +! int ____temp45Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp46[1 * 21]; ! +! ! +! int ____temp46Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex cbis[1 * 21]; ! +! ! +! int __cbisSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp47[1 * 21]; ! +! ! +! int ____temp47Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! char __temp48[1*19] = {"********3*********"}; ! +! ! +! int ____temp48Size[2] = {1,19}; ! +! ! +! ! +! ! +! double ans13; ! +! ! +! ! +! ! +! double __temp49[1 * 2]; ! +! ! +! int ____temp49Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp50[1 * 3]; ! +! ! +! int ____temp50Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp51[1 * 4]; ! +! ! +! int ____temp51Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex d[1 * 4]; ! +! ! +! int __dSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp52[1 * 4]; ! +! ! +! int ____temp52Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans14; ! +! ! +! ! +! ! +! char __temp53[1*19] = {"********4*********"}; ! +! ! +! int ____temp53Size[2] = {1,19}; ! +! ! +! ! +! ! +! double ans15; ! +! ! +! ! +! ! +! double __temp54[1 * 2]; ! +! ! +! int ____temp54Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex e[1 * 2]; ! +! ! +! int __eSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp55[1 * 2]; ! +! ! +! int ____temp55Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans16; ! +! ! +! ! +! ! +! char __temp56[1*21] = {"********5***********"}; ! +! ! +! int ____temp56Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans17; ! +! ! +! ! +! ! +! double __temp57[1 * 2]; ! +! ! +! int ____temp57Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp58[1 * 3]; ! +! ! +! int ____temp58Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp59[1 * 4]; ! +! ! +! int ____temp59Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp60[1 * 5]; ! +! ! +! int ____temp60Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp61[1 * 6]; ! +! ! +! int ____temp61Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp62[1 * 7]; ! +! ! +! int ____temp62Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp63[1 * 8]; ! +! ! +! int ____temp63Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp64[1 * 9]; ! +! ! +! int ____temp64Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp65[1 * 10]; ! +! ! +! int ____temp65Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp66[1 * 11]; ! +! ! +! int ____temp66Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp67[1 * 12]; ! +! ! +! int ____temp67Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp68[1 * 13]; ! +! ! +! int ____temp68Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp69[1 * 14]; ! +! ! +! int ____temp69Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp70[1 * 15]; ! +! ! +! int ____temp70Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp71[1 * 16]; ! +! ! +! int ____temp71Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp72[1 * 17]; ! +! ! +! int ____temp72Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp73[1 * 18]; ! +! ! +! int ____temp73Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp74[1 * 19]; ! +! ! +! int ____temp74Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp75[1 * 20]; ! +! ! +! int ____temp75Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp76[1 * 21]; ! +! ! +! int ____temp76Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex f[1 * 21]; ! +! ! +! int __fSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp77[1 * 21]; ! +! ! +! int ____temp77Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans18; ! +! ! +! ! +! ! +! char __temp78[1*21] = {"********6***********"}; ! +! ! +! int ____temp78Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans19; ! +! ! +! ! +! ! +! double __temp79[1 * 2]; ! +! ! +! int ____temp79Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp80[1 * 3]; ! +! ! +! int ____temp80Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp81[1 * 4]; ! +! ! +! int ____temp81Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp82[1 * 4]; ! +! ! +! int ____temp82Size[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex g[1 * 4]; ! +! ! +! int __gSize[2] = {1, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp83[1 * 4]; ! +! ! +! int ____temp83Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double ans20; ! +! ! +! ! +! ! +! char __temp84[1*21] = {"********7***********"}; ! +! ! +! int ____temp84Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans21; ! +! ! +! ! +! ! +! double __temp85[1 * 2]; ! +! ! +! int ____temp85Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp86[1 * 2]; ! +! ! +! int ____temp86Size[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex h[1 * 2]; ! +! ! +! int __hSize[2] = {1, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp87[1 * 2]; ! +! ! +! int ____temp87Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double ans22; ! +! ! +! ! +! ! +! char __temp88[1*21] = {"********8***********"}; ! +! ! +! int ____temp88Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans23; ! +! ! +! ! +! ! +! double __temp89[1 * 2]; ! +! ! +! int ____temp89Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp90[1 * 3]; ! +! ! +! int ____temp90Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp91[1 * 4]; ! +! ! +! int ____temp91Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp92[1 * 5]; ! +! ! +! int ____temp92Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp93[1 * 6]; ! +! ! +! int ____temp93Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp94[1 * 7]; ! +! ! +! int ____temp94Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp95[1 * 8]; ! +! ! +! int ____temp95Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp96[1 * 9]; ! +! ! +! int ____temp96Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp97[1 * 10]; ! +! ! +! int ____temp97Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp98[1 * 11]; ! +! ! +! int ____temp98Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp99[1 * 12]; ! +! ! +! int ____temp99Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp100[1 * 13]; ! +! ! +! int ____temp100Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp101[1 * 14]; ! +! ! +! int ____temp101Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp102[1 * 15]; ! +! ! +! int ____temp102Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp103[1 * 16]; ! +! ! +! int ____temp103Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp104[1 * 17]; ! +! ! +! int ____temp104Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp105[1 * 18]; ! +! ! +! int ____temp105Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp106[1 * 19]; ! +! ! +! int ____temp106Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp107[1 * 20]; ! +! ! +! int ____temp107Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp108[1 * 21]; ! +! ! +! int ____temp108Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp109[1 * 21]; ! +! ! +! int ____temp109Size[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex j[1 * 21]; ! +! ! +! int __jSize[2] = {1, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp110[1 * 21]; ! +! ! +! int ____temp110Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double ans24; ! +! ! +! ! +! ! +! char __temp111[1*21] = {"********************"}; ! +! ! +! int ____temp111Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans25; ! +! ! +! ! +! ! +! char __temp112[1*20] = {"*******************"}; ! +! ! +! int ____temp112Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans26; ! +! ! +! ! +! ! +! char __temp113[1*20] = {"*******************"}; ! +! ! +! int ____temp113Size[2] = {1,20}; ! +! ! +! ! +! ! +! double ans27; ! +! ! +! ! +! ! +! char __temp114[1*21] = {"********************"}; ! +! ! +! int ____temp114Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans28; ! +! ! +! ! +! ! +! double __temp115[1 * 2]; ! +! ! +! int ____temp115Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp116[1 * 3]; ! +! ! +! int ____temp116Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp117[1 * 4]; ! +! ! +! int ____temp117Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp118[1 * 2]; ! +! ! +! int ____temp118Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp119[1 * 3]; ! +! ! +! int ____temp119Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp120[1 * 4]; ! +! ! +! int ____temp120Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double aa[2 * 4]; ! +! ! +! int __aaSize[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp121[2 * 4]; ! +! ! +! int ____temp121Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans29; ! +! ! +! ! +! ! +! char __temp122[1*21] = {"********9***********"}; ! +! ! +! int ____temp122Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans30; ! +! ! +! ! +! ! +! double __temp123[1 * 2]; ! +! ! +! int ____temp123Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp124[1 * 2]; ! +! ! +! int ____temp124Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double bb[2 * 2]; ! +! ! +! int __bbSize[2] = {2, 2};; ! +! ! +! ! +! ! +! double __temp125[2 * 2]; ! +! ! +! int ____temp125Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans31; ! +! ! +! ! +! ! +! char __temp126[1*21] = {"********10**********"}; ! +! ! +! int ____temp126Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans32; ! +! ! +! ! +! ! +! double __temp127[1 * 2]; ! +! ! +! int ____temp127Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp128[1 * 3]; ! +! ! +! int ____temp128Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp129[1 * 4]; ! +! ! +! int ____temp129Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp130[1 * 5]; ! +! ! +! int ____temp130Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp131[1 * 6]; ! +! ! +! int ____temp131Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp132[1 * 7]; ! +! ! +! int ____temp132Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp133[1 * 8]; ! +! ! +! int ____temp133Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp134[1 * 9]; ! +! ! +! int ____temp134Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp135[1 * 10]; ! +! ! +! int ____temp135Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp136[1 * 11]; ! +! ! +! int ____temp136Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp137[1 * 12]; ! +! ! +! int ____temp137Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp138[1 * 13]; ! +! ! +! int ____temp138Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp139[1 * 14]; ! +! ! +! int ____temp139Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp140[1 * 15]; ! +! ! +! int ____temp140Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp141[1 * 16]; ! +! ! +! int ____temp141Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp142[1 * 17]; ! +! ! +! int ____temp142Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp143[1 * 18]; ! +! ! +! int ____temp143Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp144[1 * 19]; ! +! ! +! int ____temp144Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp145[1 * 20]; ! +! ! +! int ____temp145Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp146[1 * 21]; ! +! ! +! int ____temp146Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp147[1 * 2]; ! +! ! +! int ____temp147Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp148[1 * 3]; ! +! ! +! int ____temp148Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp149[1 * 4]; ! +! ! +! int ____temp149Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp150[1 * 5]; ! +! ! +! int ____temp150Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp151[1 * 6]; ! +! ! +! int ____temp151Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp152[1 * 7]; ! +! ! +! int ____temp152Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp153[1 * 8]; ! +! ! +! int ____temp153Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp154[1 * 9]; ! +! ! +! int ____temp154Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp155[1 * 10]; ! +! ! +! int ____temp155Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp156[1 * 11]; ! +! ! +! int ____temp156Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp157[1 * 12]; ! +! ! +! int ____temp157Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp158[1 * 13]; ! +! ! +! int ____temp158Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp159[1 * 14]; ! +! ! +! int ____temp159Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp160[1 * 15]; ! +! ! +! int ____temp160Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp161[1 * 16]; ! +! ! +! int ____temp161Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp162[1 * 17]; ! +! ! +! int ____temp162Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp163[1 * 18]; ! +! ! +! int ____temp163Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp164[1 * 19]; ! +! ! +! int ____temp164Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp165[1 * 20]; ! +! ! +! int ____temp165Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp166[1 * 21]; ! +! ! +! int ____temp166Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double cc[2 * 21]; ! +! ! +! int __ccSize[2] = {2, 21};; ! +! ! +! ! +! ! +! double __temp167[2 * 21]; ! +! ! +! int ____temp167Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans33; ! +! ! +! ! +! ! +! char __temp168[1*21] = {"********11**********"}; ! +! ! +! int ____temp168Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans34; ! +! ! +! ! +! ! +! double __temp169[1 * 2]; ! +! ! +! int ____temp169Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp170[1 * 3]; ! +! ! +! int ____temp170Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp171[1 * 4]; ! +! ! +! int ____temp171Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp172[1 * 2]; ! +! ! +! int ____temp172Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp173[1 * 3]; ! +! ! +! int ____temp173Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp174[1 * 4]; ! +! ! +! int ____temp174Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp175[2 * 4]; ! +! ! +! int ____temp175Size[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex dd[2 * 4]; ! +! ! +! int __ddSize[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp176[2 * 4]; ! +! ! +! int ____temp176Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans35; ! +! ! +! ! +! ! +! char __temp177[1*21] = {"********12**********"}; ! +! ! +! int ____temp177Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans36; ! +! ! +! ! +! ! +! double __temp178[1 * 2]; ! +! ! +! int ____temp178Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp179[1 * 2]; ! +! ! +! int ____temp179Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp180[2 * 2]; ! +! ! +! int ____temp180Size[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex ee[2 * 2]; ! +! ! +! int __eeSize[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp181[2 * 2]; ! +! ! +! int ____temp181Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans37; ! +! ! +! ! +! ! +! char __temp182[1*21] = {"********13**********"}; ! +! ! +! int ____temp182Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans38; ! +! ! +! ! +! ! +! double __temp183[1 * 2]; ! +! ! +! int ____temp183Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp184[1 * 3]; ! +! ! +! int ____temp184Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp185[1 * 4]; ! +! ! +! int ____temp185Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp186[1 * 5]; ! +! ! +! int ____temp186Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp187[1 * 6]; ! +! ! +! int ____temp187Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp188[1 * 7]; ! +! ! +! int ____temp188Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp189[1 * 8]; ! +! ! +! int ____temp189Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp190[1 * 9]; ! +! ! +! int ____temp190Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp191[1 * 10]; ! +! ! +! int ____temp191Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp192[1 * 11]; ! +! ! +! int ____temp192Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp193[1 * 12]; ! +! ! +! int ____temp193Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp194[1 * 13]; ! +! ! +! int ____temp194Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp195[1 * 14]; ! +! ! +! int ____temp195Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp196[1 * 15]; ! +! ! +! int ____temp196Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp197[1 * 16]; ! +! ! +! int ____temp197Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp198[1 * 17]; ! +! ! +! int ____temp198Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp199[1 * 18]; ! +! ! +! int ____temp199Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp200[1 * 19]; ! +! ! +! int ____temp200Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp201[1 * 20]; ! +! ! +! int ____temp201Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp202[1 * 21]; ! +! ! +! int ____temp202Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp203[1 * 2]; ! +! ! +! int ____temp203Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp204[1 * 3]; ! +! ! +! int ____temp204Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp205[1 * 4]; ! +! ! +! int ____temp205Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp206[1 * 5]; ! +! ! +! int ____temp206Size[2] = {1, 5};; ! +! ! +! ! +! ! +! double __temp207[1 * 6]; ! +! ! +! int ____temp207Size[2] = {1, 6};; ! +! ! +! ! +! ! +! double __temp208[1 * 7]; ! +! ! +! int ____temp208Size[2] = {1, 7};; ! +! ! +! ! +! ! +! double __temp209[1 * 8]; ! +! ! +! int ____temp209Size[2] = {1, 8};; ! +! ! +! ! +! ! +! double __temp210[1 * 9]; ! +! ! +! int ____temp210Size[2] = {1, 9};; ! +! ! +! ! +! ! +! double __temp211[1 * 10]; ! +! ! +! int ____temp211Size[2] = {1, 10};; ! +! ! +! ! +! ! +! double __temp212[1 * 11]; ! +! ! +! int ____temp212Size[2] = {1, 11};; ! +! ! +! ! +! ! +! double __temp213[1 * 12]; ! +! ! +! int ____temp213Size[2] = {1, 12};; ! +! ! +! ! +! ! +! double __temp214[1 * 13]; ! +! ! +! int ____temp214Size[2] = {1, 13};; ! +! ! +! ! +! ! +! double __temp215[1 * 14]; ! +! ! +! int ____temp215Size[2] = {1, 14};; ! +! ! +! ! +! ! +! double __temp216[1 * 15]; ! +! ! +! int ____temp216Size[2] = {1, 15};; ! +! ! +! ! +! ! +! double __temp217[1 * 16]; ! +! ! +! int ____temp217Size[2] = {1, 16};; ! +! ! +! ! +! ! +! double __temp218[1 * 17]; ! +! ! +! int ____temp218Size[2] = {1, 17};; ! +! ! +! ! +! ! +! double __temp219[1 * 18]; ! +! ! +! int ____temp219Size[2] = {1, 18};; ! +! ! +! ! +! ! +! double __temp220[1 * 19]; ! +! ! +! int ____temp220Size[2] = {1, 19};; ! +! ! +! ! +! ! +! double __temp221[1 * 20]; ! +! ! +! int ____temp221Size[2] = {1, 20};; ! +! ! +! ! +! ! +! double __temp222[1 * 21]; ! +! ! +! int ____temp222Size[2] = {1, 21};; ! +! ! +! ! +! ! +! double __temp223[2 * 21]; ! +! ! +! int ____temp223Size[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex ff[2 * 21]; ! +! ! +! int __ffSize[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp224[2 * 21]; ! +! ! +! int ____temp224Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans39; ! +! ! +! ! +! ! +! char __temp225[1*21] = {"********14**********"}; ! +! ! +! int ____temp225Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans40; ! +! ! +! ! +! ! +! doubleComplex gg[2 * 4]; ! +! ! +! int __ggSize[2] = {2, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp226[2 * 4]; ! +! ! +! int ____temp226Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double ans41; ! +! ! +! ! +! ! +! char __temp227[1*21] = {"********15**********"}; ! +! ! +! int ____temp227Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans42; ! +! ! +! ! +! ! +! doubleComplex hh[2 * 2]; ! +! ! +! int __hhSize[2] = {2, 2};; ! +! ! +! ! +! ! +! doubleComplex __temp228[2 * 2]; ! +! ! +! int ____temp228Size[2] = {2, 2};; ! +! ! +! ! +! ! +! double ans43; ! +! ! +! ! +! ! +! char __temp229[1*21] = {"********16**********"}; ! +! ! +! int ____temp229Size[2] = {1,21}; ! +! ! +! ! +! ! +! double ans44; ! +! ! +! ! +! ! +! doubleComplex jj[2 * 21]; ! +! ! +! int __jjSize[2] = {2, 21};; ! +! ! +! ! +! ! +! doubleComplex __temp230[2 * 21]; ! +! ! +! int ____temp230Size[2] = {2, 21};; ! +! ! +! ! +! ! +! double ans45; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(2)); // d0IFFTd0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp1 = d0ifftd0(2); ! +! ! +! ans1 = d0dispd0(__temp1); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(%i + 4)) // z0IFFTz0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp2 = z0d0OpPlusz0(DoubleComplex(0,1),4); ! +! ! +! __temp3 = z0ifftz0(__temp2); ! +! ! +! ans2 = z0dispd0(__temp3); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft([1 2])); // d2IFFTd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp4); ! +! ! +! d2ifftd2(__temp4, ____temp4Size,__temp5); ! +! ! +! ans3 = d2dispd0(__temp5, ____temp5Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft([1 -2 3] + zeros(1 , 3)*%i )); // d2IFFTz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,-2,__temp6); ! +! ! +! d2d0OpRcd2(__temp6, ____temp6Size,3,__temp7); ! +! ! +! d0d0zerosd2(1,3,__temp8); ! +! ! +! d2z0OpStarz2(__temp8, ____temp8Size,DoubleComplex(0,1),__temp9); ! +! ! +! d2z2OpPlusz2(__temp7, ____temp7Size,__temp9, ____temp9Size,__temp! +! 10); ! +! ! +! z2ifftz2(__temp10, ____temp10Size,__temp11); ! +! ! +! ans4 = z2dispd0(__temp11, ____temp11Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft([1 2]*%i)); // z2IFFTz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp12); ! +! ! +! d2z0OpStarz2(__temp12, ____temp12Size,DoubleComplex(0,1),__temp13)! +! ; ! +! ! +! z2ifftz2(__temp13, ____temp13Size,__temp14); ! +! ! +! ans5 = z2dispd0(__temp14, ____temp14Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(4.4)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = d0ifftd0(4.4); ! +! ! +! ans6 = d0dispd0(__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(%i + 3.4)) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp16 = z0d0OpPlusz0(DoubleComplex(0,1),3.4); ! +! ! +! __temp17 = z0ifftz0(__temp16); ! +! ! +! ans7 = z0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // one input ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: a = [10 1 15 3.5 ]; //d2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp18); ! +! ! +! d2d0OpRcd2(__temp18, ____temp18Size,15,__temp19); ! +! ! +! d2d0OpRcd2(__temp19, ____temp19Size,3.5,a); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: Abis = a + zeros(a)*%i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2zerosd2(a, __aSize,__temp20); ! +! ! +! d2z0OpStarz2(__temp20, ____temp20Size,DoubleComplex(0,1),__temp21)! +! ; ! +! ! +! d2z2OpPlusz2(a, __aSize,__temp21, ____temp21Size,Abis); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(Abis)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(Abis, __AbisSize,__temp22); ! +! ! +! ans8 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********1*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans9 = g2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: b = [25 3.6]; // d2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,b); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(b)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(b, __bSize,__temp24); ! +! ! +! ans10 = d2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********2*******"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans11 = g2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: c= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 456! +! 56 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp26); ! +! ! +! d2d0OpRcd2(__temp26, ____temp26Size,5,__temp27); ! +! ! +! d2d0OpRcd2(__temp27, ____temp27Size,6,__temp28); ! +! ! +! d2d0OpRcd2(__temp28, ____temp28Size,3,__temp29); ! +! ! +! d2d0OpRcd2(__temp29, ____temp29Size,8,__temp30); ! +! ! +! d2d0OpRcd2(__temp30, ____temp30Size,9,__temp31); ! +! ! +! d2d0OpRcd2(__temp31, ____temp31Size,445,__temp32); ! +! ! +! d2d0OpRcd2(__temp32, ____temp32Size,1,__temp33); ! +! ! +! d2d0OpRcd2(__temp33, ____temp33Size,2,__temp34); ! +! ! +! d2d0OpRcd2(__temp34, ____temp34Size,3,__temp35); ! +! ! +! d2d0OpRcd2(__temp35, ____temp35Size,0,__temp36); ! +! ! +! d2d0OpRcd2(__temp36, ____temp36Size,125,__temp37); ! +! ! +! d2d0OpRcd2(__temp37, ____temp37Size,5,__temp38); ! +! ! +! d2d0OpRcd2(__temp38, ____temp38Size,41,__temp39); ! +! ! +! d2d0OpRcd2(__temp39, ____temp39Size,4,__temp40); ! +! ! +! d2d0OpRcd2(__temp40, ____temp40Size,5,__temp41); ! +! ! +! d2d0OpRcd2(__temp41, ____temp41Size,552,__temp42); ! +! ! +! d2d0OpRcd2(__temp42, ____temp42Size,2.36,__temp43); ! +! ! +! d2d0OpRcd2(__temp43, ____temp43Size,45656,__temp44); ! +! ! +! d2d0OpRcd2(__temp44, ____temp44Size,72.3,c); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cbis = c + zeros(c)*%i ; ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2zerosd2(c, __cSize,__temp45); ! +! ! +! d2z0OpStarz2(__temp45, ____temp45Size,DoubleComplex(0,1),__temp46)! +! ; ! +! ! +! d2z2OpPlusz2(c, __cSize,__temp46, ____temp46Size,cbis); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(cbis)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(cbis, __cbisSize,__temp47); ! +! ! +! ans12 = z2dispd0(__temp47, ____temp47Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********3*********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans13 = g2dispd0(__temp48, ____temp48Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // pure imaginary ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d = [10 1 15 3.5 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp49); ! +! ! +! d2d0OpRcd2(__temp49, ____temp49Size,15,__temp50); ! +! ! +! d2d0OpRcd2(__temp50, ____temp50Size,3.5,__temp51); ! +! ! +! d2z0OpStarz2(__temp51, ____temp51Size,DoubleComplex(0,1),d); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(d)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(d, __dSize,__temp52); ! +! ! +! ans14 = z2dispd0(__temp52, ____temp52Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********4*********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans15 = g2dispd0(__temp53, ____temp53Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: e = [25 3.6]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp54); ! +! ! +! d2z0OpStarz2(__temp54, ____temp54Size,DoubleComplex(0,1),e); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(e)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(e, __eSize,__temp55); ! +! ! +! ans16 = z2dispd0(__temp55, ____temp55Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********5***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans17 = g2dispd0(__temp56, ____temp56Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: f= %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 ! +! 45656 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp57); ! +! ! +! d2d0OpRcd2(__temp57, ____temp57Size,5,__temp58); ! +! ! +! d2d0OpRcd2(__temp58, ____temp58Size,6,__temp59); ! +! ! +! d2d0OpRcd2(__temp59, ____temp59Size,3,__temp60); ! +! ! +! d2d0OpRcd2(__temp60, ____temp60Size,8,__temp61); ! +! ! +! d2d0OpRcd2(__temp61, ____temp61Size,9,__temp62); ! +! ! +! d2d0OpRcd2(__temp62, ____temp62Size,445,__temp63); ! +! ! +! d2d0OpRcd2(__temp63, ____temp63Size,1,__temp64); ! +! ! +! d2d0OpRcd2(__temp64, ____temp64Size,2,__temp65); ! +! ! +! d2d0OpRcd2(__temp65, ____temp65Size,3,__temp66); ! +! ! +! d2d0OpRcd2(__temp66, ____temp66Size,0,__temp67); ! +! ! +! d2d0OpRcd2(__temp67, ____temp67Size,125,__temp68); ! +! ! +! d2d0OpRcd2(__temp68, ____temp68Size,5,__temp69); ! +! ! +! d2d0OpRcd2(__temp69, ____temp69Size,41,__temp70); ! +! ! +! d2d0OpRcd2(__temp70, ____temp70Size,4,__temp71); ! +! ! +! d2d0OpRcd2(__temp71, ____temp71Size,5,__temp72); ! +! ! +! d2d0OpRcd2(__temp72, ____temp72Size,552,__temp73); ! +! ! +! d2d0OpRcd2(__temp73, ____temp73Size,2.36,__temp74); ! +! ! +! d2d0OpRcd2(__temp74, ____temp74Size,45656,__temp75); ! +! ! +! d2d0OpRcd2(__temp75, ____temp75Size,72.3,__temp76); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp76, ____temp76Size,f); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(f)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(f, __fSize,__temp77); ! +! ! +! ans18 = z2dispd0(__temp77, ____temp77Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********6***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans19 = g2dispd0(__temp78, ____temp78Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: g = a + [10 1 15 3.5 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp79); ! +! ! +! d2d0OpRcd2(__temp79, ____temp79Size,15,__temp80); ! +! ! +! d2d0OpRcd2(__temp80, ____temp80Size,3.5,__temp81); ! +! ! +! d2z0OpStarz2(__temp81, ____temp81Size,DoubleComplex(0,1),__temp82)! +! ; ! +! ! +! d2z2OpPlusz2(a, __aSize,__temp82, ____temp82Size,g); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(g)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(g, __gSize,__temp83); ! +! ! +! ans20 = z2dispd0(__temp83, ____temp83Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********7***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans21 = g2dispd0(__temp84, ____temp84Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: h = b + [25 3.6]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp85); ! +! ! +! d2z0OpStarz2(__temp85, ____temp85Size,DoubleComplex(0,1),__temp86)! +! ; ! +! ! +! d2z2OpPlusz2(b, __bSize,__temp86, ____temp86Size,h); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(h)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(h, __hSize,__temp87); ! +! ! +! ans22 = z2dispd0(__temp87, ____temp87Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********8***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans23 = g2dispd0(__temp88, ____temp88Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: j= c + %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.! +! 36 45656 72.3 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp89); ! +! ! +! d2d0OpRcd2(__temp89, ____temp89Size,5,__temp90); ! +! ! +! d2d0OpRcd2(__temp90, ____temp90Size,6,__temp91); ! +! ! +! d2d0OpRcd2(__temp91, ____temp91Size,3,__temp92); ! +! ! +! d2d0OpRcd2(__temp92, ____temp92Size,8,__temp93); ! +! ! +! d2d0OpRcd2(__temp93, ____temp93Size,9,__temp94); ! +! ! +! d2d0OpRcd2(__temp94, ____temp94Size,445,__temp95); ! +! ! +! d2d0OpRcd2(__temp95, ____temp95Size,1,__temp96); ! +! ! +! d2d0OpRcd2(__temp96, ____temp96Size,2,__temp97); ! +! ! +! d2d0OpRcd2(__temp97, ____temp97Size,3,__temp98); ! +! ! +! d2d0OpRcd2(__temp98, ____temp98Size,0,__temp99); ! +! ! +! d2d0OpRcd2(__temp99, ____temp99Size,125,__temp100); ! +! ! +! d2d0OpRcd2(__temp100, ____temp100Size,5,__temp101); ! +! ! +! d2d0OpRcd2(__temp101, ____temp101Size,41,__temp102); ! +! ! +! d2d0OpRcd2(__temp102, ____temp102Size,4,__temp103); ! +! ! +! d2d0OpRcd2(__temp103, ____temp103Size,5,__temp104); ! +! ! +! d2d0OpRcd2(__temp104, ____temp104Size,552,__temp105); ! +! ! +! d2d0OpRcd2(__temp105, ____temp105Size,2.36,__temp106); ! +! ! +! d2d0OpRcd2(__temp106, ____temp106Size,45656,__temp107); ! +! ! +! d2d0OpRcd2(__temp107, ____temp107Size,72.3,__temp108); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp108, ____temp108Size,__temp1! +! 09); ! +! ! +! d2z2OpPlusz2(c, __cSize,__temp109, ____temp109Size,j); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(j)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(j, __jSize,__temp110); ! +! ! +! ans24 = z2dispd0(__temp110, ____temp110Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans25 = g2dispd0(__temp111, ____temp111Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans26 = g2dispd0(__temp112, ____temp112Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("*******************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans27 = g2dispd0(__temp113, ____temp113Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********************"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans28 = g2dispd0(__temp114, ____temp114Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ******************** ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // MATRIX ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // ******************** ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // one input ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: aa = [10 1 15 3.5 ; 5 3 9 6 ]; //d2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp115); ! +! ! +! d2d0OpRcd2(__temp115, ____temp115Size,15,__temp116); ! +! ! +! d2d0OpRcd2(__temp116, ____temp116Size,3.5,__temp117); ! +! ! +! d0d0OpRcd2(5,3,__temp118); ! +! ! +! d2d0OpRcd2(__temp118, ____temp118Size,9,__temp119); ! +! ! +! d2d0OpRcd2(__temp119, ____temp119Size,6,__temp120); ! +! ! +! d2d2OpCcd2(__temp117, ____temp117Size,__temp120, ____temp120Size,! +! aa); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(aa)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(aa, __aaSize,__temp121); ! +! ! +! ans29 = d2dispd0(__temp121, ____temp121Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********9***********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans30 = g2dispd0(__temp122, ____temp122Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: bb = [25 3.6 ; 4 3.2]; // d2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp123); ! +! ! +! d0d0OpRcd2(4,3.2,__temp124); ! +! ! +! d2d2OpCcd2(__temp123, ____temp123Size,__temp124, ____temp124Size,! +! bb); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(bb)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(bb, __bbSize,__temp125); ! +! ! +! ans31 = d2dispd0(__temp125, ____temp125Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********10**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans32 = g2dispd0(__temp126, ____temp126Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: cc= [10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36 45! +! 656 72.3 ; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 6554! +! 6 1.78 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp127); ! +! ! +! d2d0OpRcd2(__temp127, ____temp127Size,5,__temp128); ! +! ! +! d2d0OpRcd2(__temp128, ____temp128Size,6,__temp129); ! +! ! +! d2d0OpRcd2(__temp129, ____temp129Size,3,__temp130); ! +! ! +! d2d0OpRcd2(__temp130, ____temp130Size,8,__temp131); ! +! ! +! d2d0OpRcd2(__temp131, ____temp131Size,9,__temp132); ! +! ! +! d2d0OpRcd2(__temp132, ____temp132Size,445,__temp133); ! +! ! +! d2d0OpRcd2(__temp133, ____temp133Size,1,__temp134); ! +! ! +! d2d0OpRcd2(__temp134, ____temp134Size,2,__temp135); ! +! ! +! d2d0OpRcd2(__temp135, ____temp135Size,3,__temp136); ! +! ! +! d2d0OpRcd2(__temp136, ____temp136Size,0,__temp137); ! +! ! +! d2d0OpRcd2(__temp137, ____temp137Size,125,__temp138); ! +! ! +! d2d0OpRcd2(__temp138, ____temp138Size,5,__temp139); ! +! ! +! d2d0OpRcd2(__temp139, ____temp139Size,41,__temp140); ! +! ! +! d2d0OpRcd2(__temp140, ____temp140Size,4,__temp141); ! +! ! +! d2d0OpRcd2(__temp141, ____temp141Size,5,__temp142); ! +! ! +! d2d0OpRcd2(__temp142, ____temp142Size,552,__temp143); ! +! ! +! d2d0OpRcd2(__temp143, ____temp143Size,2.36,__temp144); ! +! ! +! d2d0OpRcd2(__temp144, ____temp144Size,45656,__temp145); ! +! ! +! d2d0OpRcd2(__temp145, ____temp145Size,72.3,__temp146); ! +! ! +! d0d0OpRcd2(21,8,__temp147); ! +! ! +! d2d0OpRcd2(__temp147, ____temp147Size,2,__temp148); ! +! ! +! d2d0OpRcd2(__temp148, ____temp148Size,5,__temp149); ! +! ! +! d2d0OpRcd2(__temp149, ____temp149Size,6,__temp150); ! +! ! +! d2d0OpRcd2(__temp150, ____temp150Size,3,__temp151); ! +! ! +! d2d0OpRcd2(__temp151, ____temp151Size,4,__temp152); ! +! ! +! d2d0OpRcd2(__temp152, ____temp152Size,123,__temp153); ! +! ! +! d2d0OpRcd2(__temp153, ____temp153Size,5,__temp154); ! +! ! +! d2d0OpRcd2(__temp154, ____temp154Size,6,__temp155); ! +! ! +! d2d0OpRcd2(__temp155, ____temp155Size,0,__temp156); ! +! ! +! d2d0OpRcd2(__temp156, ____temp156Size,5,__temp157); ! +! ! +! d2d0OpRcd2(__temp157, ____temp157Size,548,__temp158); ! +! ! +! d2d0OpRcd2(__temp158, ____temp158Size,7,__temp159); ! +! ! +! d2d0OpRcd2(__temp159, ____temp159Size,65,__temp160); ! +! ! +! d2d0OpRcd2(__temp160, ____temp160Size,4,__temp161); ! +! ! +! d2d0OpRcd2(__temp161, ____temp161Size,2,__temp162); ! +! ! +! d2d0OpRcd2(__temp162, ____temp162Size,166,__temp163); ! +! ! +! d2d0OpRcd2(__temp163, ____temp163Size,4.12,__temp164); ! +! ! +! d2d0OpRcd2(__temp164, ____temp164Size,65546,__temp165); ! +! ! +! d2d0OpRcd2(__temp165, ____temp165Size,1.78,__temp166); ! +! ! +! d2d2OpCcd2(__temp146, ____temp146Size,__temp166, ____temp166Size,! +! cc); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(cc)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2ifftd2(cc, __ccSize,__temp167); ! +! ! +! ans33 = d2dispd0(__temp167, ____temp167Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********11**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans34 = g2dispd0(__temp168, ____temp168Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // pure imaginary ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: dd = [10 1 15 3.5 ; 5 8 6 3 ]*%i; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,1,__temp169); ! +! ! +! d2d0OpRcd2(__temp169, ____temp169Size,15,__temp170); ! +! ! +! d2d0OpRcd2(__temp170, ____temp170Size,3.5,__temp171); ! +! ! +! d0d0OpRcd2(5,8,__temp172); ! +! ! +! d2d0OpRcd2(__temp172, ____temp172Size,6,__temp173); ! +! ! +! d2d0OpRcd2(__temp173, ____temp173Size,3,__temp174); ! +! ! +! d2d2OpCcd2(__temp171, ____temp171Size,__temp174, ____temp174Size,! +! __temp175); ! +! ! +! d2z0OpStarz2(__temp175, ____temp175Size,DoubleComplex(0,1),dd); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(dd)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(dd, __ddSize,__temp176); ! +! ! +! ans35 = z2dispd0(__temp176, ____temp176Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********12**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans36 = g2dispd0(__temp177, ____temp177Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ee = [25 3.6 ; 4 5.9 ]*%i; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(25,3.6,__temp178); ! +! ! +! d0d0OpRcd2(4,5.9,__temp179); ! +! ! +! d2d2OpCcd2(__temp178, ____temp178Size,__temp179, ____temp179Size,! +! __temp180); ! +! ! +! d2z0OpStarz2(__temp180, ____temp180Size,DoubleComplex(0,1),ee); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(ee)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(ee, __eeSize,__temp181); ! +! ! +! ans37 = z2dispd0(__temp181, ____temp181Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********13**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans38 = g2dispd0(__temp182, ____temp182Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ff = %i*[10 2 5 6 3 8 9 445 1 2 3 0 125 5 41 4 5 552 2.36! +! 45656 72.3; 21 8 2 5 6 3 4 123 5 6 0 5 548 7 65 4 2 166 4.12 ! +! 65546 1.78 ] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(10,2,__temp183); ! +! ! +! d2d0OpRcd2(__temp183, ____temp183Size,5,__temp184); ! +! ! +! d2d0OpRcd2(__temp184, ____temp184Size,6,__temp185); ! +! ! +! d2d0OpRcd2(__temp185, ____temp185Size,3,__temp186); ! +! ! +! d2d0OpRcd2(__temp186, ____temp186Size,8,__temp187); ! +! ! +! d2d0OpRcd2(__temp187, ____temp187Size,9,__temp188); ! +! ! +! d2d0OpRcd2(__temp188, ____temp188Size,445,__temp189); ! +! ! +! d2d0OpRcd2(__temp189, ____temp189Size,1,__temp190); ! +! ! +! d2d0OpRcd2(__temp190, ____temp190Size,2,__temp191); ! +! ! +! d2d0OpRcd2(__temp191, ____temp191Size,3,__temp192); ! +! ! +! d2d0OpRcd2(__temp192, ____temp192Size,0,__temp193); ! +! ! +! d2d0OpRcd2(__temp193, ____temp193Size,125,__temp194); ! +! ! +! d2d0OpRcd2(__temp194, ____temp194Size,5,__temp195); ! +! ! +! d2d0OpRcd2(__temp195, ____temp195Size,41,__temp196); ! +! ! +! d2d0OpRcd2(__temp196, ____temp196Size,4,__temp197); ! +! ! +! d2d0OpRcd2(__temp197, ____temp197Size,5,__temp198); ! +! ! +! d2d0OpRcd2(__temp198, ____temp198Size,552,__temp199); ! +! ! +! d2d0OpRcd2(__temp199, ____temp199Size,2.36,__temp200); ! +! ! +! d2d0OpRcd2(__temp200, ____temp200Size,45656,__temp201); ! +! ! +! d2d0OpRcd2(__temp201, ____temp201Size,72.3,__temp202); ! +! ! +! d0d0OpRcd2(21,8,__temp203); ! +! ! +! d2d0OpRcd2(__temp203, ____temp203Size,2,__temp204); ! +! ! +! d2d0OpRcd2(__temp204, ____temp204Size,5,__temp205); ! +! ! +! d2d0OpRcd2(__temp205, ____temp205Size,6,__temp206); ! +! ! +! d2d0OpRcd2(__temp206, ____temp206Size,3,__temp207); ! +! ! +! d2d0OpRcd2(__temp207, ____temp207Size,4,__temp208); ! +! ! +! d2d0OpRcd2(__temp208, ____temp208Size,123,__temp209); ! +! ! +! d2d0OpRcd2(__temp209, ____temp209Size,5,__temp210); ! +! ! +! d2d0OpRcd2(__temp210, ____temp210Size,6,__temp211); ! +! ! +! d2d0OpRcd2(__temp211, ____temp211Size,0,__temp212); ! +! ! +! d2d0OpRcd2(__temp212, ____temp212Size,5,__temp213); ! +! ! +! d2d0OpRcd2(__temp213, ____temp213Size,548,__temp214); ! +! ! +! d2d0OpRcd2(__temp214, ____temp214Size,7,__temp215); ! +! ! +! d2d0OpRcd2(__temp215, ____temp215Size,65,__temp216); ! +! ! +! d2d0OpRcd2(__temp216, ____temp216Size,4,__temp217); ! +! ! +! d2d0OpRcd2(__temp217, ____temp217Size,2,__temp218); ! +! ! +! d2d0OpRcd2(__temp218, ____temp218Size,166,__temp219); ! +! ! +! d2d0OpRcd2(__temp219, ____temp219Size,4.12,__temp220); ! +! ! +! d2d0OpRcd2(__temp220, ____temp220Size,65546,__temp221); ! +! ! +! d2d0OpRcd2(__temp221, ____temp221Size,1.78,__temp222); ! +! ! +! d2d2OpCcd2(__temp202, ____temp202Size,__temp222, ____temp222Size,! +! __temp223); ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),__temp223, ____temp223Size,ff); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(ff)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(ff, __ffSize,__temp224); ! +! ! +! ans39 = z2dispd0(__temp224, ____temp224Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********14**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans40 = g2dispd0(__temp225, ____temp225Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: // full complex ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: gg = aa + dd; //z2Fftz2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(aa, __aaSize,dd, __ddSize,gg); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(gg)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(gg, __ggSize,__temp226); ! +! ! +! ans41 = z2dispd0(__temp226, ____temp226Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********15**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans42 = g2dispd0(__temp227, ____temp227Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: hh = bb + ee; // z2Fftd2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(bb, __bbSize,ee, __eeSize,hh); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(hh)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(hh, __hhSize,__temp228); ! +! ! +! ans43 = z2dispd0(__temp228, ____temp228Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp("********16**********"); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ans44 = g2dispd0(__temp229, ____temp229Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: jj= cc + ff ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z2OpPlusz2(cc, __ccSize,ff, __ffSize,jj); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(ifft(jj)); ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2ifftz2(jj, __jjSize,__temp230); ! +! ! +! ans45 = z2dispd0(__temp230, ____temp230Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |