diff options
Diffstat (limited to 'tests/unit_tests/double/test_OpHat.sci.dia.ref')
| -rw-r--r-- | tests/unit_tests/double/test_OpHat.sci.dia.ref | 1197 |
1 files changed, 1197 insertions, 0 deletions
diff --git a/tests/unit_tests/double/test_OpHat.sci.dia.ref b/tests/unit_tests/double/test_OpHat.sci.dia.ref new file mode 100644 index 0000000..7945551 --- /dev/null +++ b/tests/unit_tests/double/test_OpHat.sci.dia.ref @@ -0,0 +1,1197 @@ +// +// 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_OpHat.sci", TMPDIR); + + ----------------------------------- + + --- Executing your SCILAB code. --- + + ----------------------------------- + + 36.46216 + + 5.9283225 + 7.016786i + + + column 1 to 2 + + 5224.1794 - 3.2901821i 5920.186 - 1.6870476i + 12083.561 - 1.2816291i 13685.202 - 0.6571580i + 18942.943 + 0.7269239i 21450.219 + 0.3727317i + 25802.325 + 2.7354768i 29215.235 + 1.4026214i + + column 3 to 4 + + 6616.1926 - 0.0839132i 7312.1992 + 1.5192213i + 15286.844 - 0.0326868i 16888.485 + 0.5917844i + 23957.495 + 0.0185395i 26464.77 - 0.3356526i + 32628.146 + 0.0697659i 36041.056 - 1.2630896i + + + column 1 to 2 + + - 29769.003 + 24471.882i - 15787.197 + 13175.111i + - 13217.507 + 11476.587i - 7985.8634 + 7333.5474i + 3333.9879 - 1518.7071i - 184.52977 + 1491.9834i + 19885.483 - 14514.002i 7616.8039 - 4349.5807i + + column 3 to 4 + + - 1805.3913 + 1878.3411i 12176.414 - 9418.4292i + - 2754.2193 + 3190.5075i 2477.4247 - 952.53243i + - 3703.0474 + 4502.6739i - 7221.5651 + 7513.3644i + - 4651.8755 + 5814.8403i - 16920.555 + 15979.261i + + 3.1415927 9.8696044 31.006277 97.409091 + 306.01968 961.38919 3020.2932 9488.531 + 29809.099 93648.047 294204.02 924269.18 + 2903677.3 9122171.2 28658146. 90032221. + + + column 1 to 2 + + - 1.3141052 + 1.541592i - 0.6496337 - 4.0516281i + 12.902191 - 31.573352i 31.718393 + 61.38062i + - 40.146534 + 572.8927i - 830.41006 - 814.73083i + - 2373.7017 - 9373.9919i 17570.165 + 8659.1315i + + column 3 to 4 + + 7.0996445 + 4.3227953i - 15.993666 + 5.2641479i + - 136.30518 - 31.763766i 228.08611 - 168.38605i + 2347.2287 - 209.51156i - 2761.524 + 3893.7893i + - 36437.892 + 15707.017i 23669.41 - 76813.037i + + + column 1 to 2 + + 1448.6594 - 5026.4901i 1640.475 - 5692.0437i + 3347.0813 - 11613.548i 3790.2657 - 13151.288i + 5245.5032 - 18200.605i 5940.0564 - 20610.533i + 7143.9251 - 24787.662i 8089.847 - 28069.778i + + column 3 to 4 + + 1832.2907 - 6357.5974i 2024.1063 - 7023.1511i + 4233.4501 - 14689.029i 4676.6345 - 16226.77i + 6634.6095 - 23020.461i 7329.1626 - 25430.39i + 9035.7689 - 31351.893i 9981.6908 - 34634.009i + + + column 1 to 2 + + - 12130.041 + 9680.5967i - 13742.315 + 10975.06i + - 28045.127 + 22405.971i - 31760.955 + 25377.661i + - 43960.214 + 35131.345i - 49779.595 + 39780.261i + - 59875.3 + 47856.719i - 67798.235 + 54182.862i + + column 3 to 4 + + - 15354.589 + 12269.524i - 16966.863 + 13563.987i + - 35476.782 + 28349.351i - 39192.61 + 31321.041i + - 55598.975 + 44429.178i - 61418.356 + 49078.095i + - 75721.169 + 60509.006i - 83644.103 + 66835.149i + + + column 1 to 2 + + 1.2983955 + 2.8607296i - 6.4979428 + 7.4287166i + 259.35216 - 162.43308i 801.41878 + 531.03401i + - 19043.607 - 22933.021i 40879.037 - 84254.74i + - 1967162.8 + 2135793.1i - 8664081.7 - 2854416.7i + + column 3 to 4 + + - 29.688449 - 8.9434449i - 12.96257 - 96.542751i + - 478.58617 + 2982.1345i - 9152.4746 + 2502.8844i + 294107.18 + 7547.8967i 360274.94 + 851161.26i + - 3083690.3 - 28491756.i 77503360. - 45815172.i + + + column 1 to 3 + + 3.1415927 + 3.1415927i 19.739209i - 62.012553 + 62.012553i + - 1224.0787 - 1224.0787i - 7691.1135i 24162.346 - 24162.346i + 476945.59 + 476945.59i 2996737.5i - 9414528.6 + 9414528.6i + - 1.858D+08 - 1.858D+08i - 1.168D+09i 3.668D+09 - 3.668D+09i + + column 4 + + - 389.63636 + 151816.5 + - 59153228. + 2.305D+10 + + - 32.757625 - 16.01334i + + - 84.61903 + 67.619016i + + ------------------------------------------ + + --- 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_OpHat" +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpHat/test_OpHat_copy.sci' already opened in Scilab. +Warning: file 'TMPDIR/SCI2CTmpResultsReports/test_OpHat/test_OpHat_copy.sci' already opened in Scilab. + + ==> Generate the AST. + + ==> Generate C code in TMPDIR/main.c + + /*SCI2C: ########################################################## + ######## + + SCI2C: d0 = %pi + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z0 = d0 + %i * d0 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: z2 = d2 + %i * d2 + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2^d2) // ! Not implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2^z2) // ! Not implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d2^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z2^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^z2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^d2) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(d0^z0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: disp(z0^d0) + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(d2^z2) // ! Not implemented in Scilab ! + + SCI2C: ########################################################## + ########*/ + + /*SCI2C: ########################################################## + ######## + + SCI2C: //disp(z2^d2) // ! Not implemented in Scilab ! + + 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_OpHat() ! +! ! +! SCI2C: -------------------------------------------------------------! +! ----- ! +! ! +!*/ ! +! ! +!int main() ! +! ! +!{ ! +! ! +!/* ! +! ! +!** ----------------------------- ! +! ! +!** --- Variable Declaration. --- ! +! ! +!** ----------------------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! double d0 = 3.1415927; ! +! ! +! ! +! ! +! double __temp1[1 * 2]; ! +! ! +! int ____temp1Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp2[1 * 3]; ! +! ! +! int ____temp2Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp3[1 * 4]; ! +! ! +! int ____temp3Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp4[1 * 2]; ! +! ! +! int ____temp4Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp5[1 * 3]; ! +! ! +! int ____temp5Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp6[1 * 4]; ! +! ! +! int ____temp6Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp7[2 * 4]; ! +! ! +! int ____temp7Size[2] = {2, 4};; ! +! ! +! ! +! ! +! double __temp8[1 * 2]; ! +! ! +! int ____temp8Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp9[1 * 3]; ! +! ! +! int ____temp9Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp10[1 * 4]; ! +! ! +! int ____temp10Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double __temp11[3 * 4]; ! +! ! +! int ____temp11Size[2] = {3, 4};; ! +! ! +! ! +! ! +! double __temp12[1 * 2]; ! +! ! +! int ____temp12Size[2] = {1, 2};; ! +! ! +! ! +! ! +! double __temp13[1 * 3]; ! +! ! +! int ____temp13Size[2] = {1, 3};; ! +! ! +! ! +! ! +! double __temp14[1 * 4]; ! +! ! +! int ____temp14Size[2] = {1, 4};; ! +! ! +! ! +! ! +! double d2[4 * 4]; ! +! ! +! int __d2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex __temp15; ! +! ! +! ! +! ! +! doubleComplex z0; ! +! ! +! ! +! ! +! doubleComplex __temp16[4 * 4]; ! +! ! +! int ____temp16Size[2] = {4, 4};; ! +! ! +! ! +! ! +! doubleComplex z2[4 * 4]; ! +! ! +! int __z2Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double __temp17; ! +! ! +! ! +! ! +! double ans1; ! +! ! +! ! +! ! +! doubleComplex __temp18; ! +! ! +! ! +! ! +! double ans2; ! +! ! +! ! +! ! +! double __temp19[4 * 4]; ! +! ! +! int ____temp19Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans3; ! +! ! +! ! +! ! +! doubleComplex __temp20[4 * 4]; ! +! ! +! int ____temp20Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans4; ! +! ! +! ! +! ! +! double __temp21[4 * 4]; ! +! ! +! int ____temp21Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans5; ! +! ! +! ! +! ! +! doubleComplex __temp22[4 * 4]; ! +! ! +! int ____temp22Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans6; ! +! ! +! ! +! ! +! doubleComplex __temp23[4 * 4]; ! +! ! +! int ____temp23Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans7; ! +! ! +! ! +! ! +! doubleComplex __temp24[4 * 4]; ! +! ! +! int ____temp24Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans8; ! +! ! +! ! +! ! +! doubleComplex __temp25[4 * 4]; ! +! ! +! int ____temp25Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans9; ! +! ! +! ! +! ! +! doubleComplex __temp26[4 * 4]; ! +! ! +! int ____temp26Size[2] = {4, 4};; ! +! ! +! ! +! ! +! double ans10; ! +! ! +! ! +! ! +! doubleComplex __temp27; ! +! ! +! ! +! ! +! double ans11; ! +! ! +! ! +! ! +! doubleComplex __temp28; ! +! ! +! ! +! ! +! double ans12; ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +! ! +!/* ! +! ! +!** --------------------------------- ! +! ! +!** --- End Variable Declaration. --- ! +! ! +!** --------------------------------- ! +! ! +!*/ ! +! ! +!/* ! +! ! +!** --------------- ! +! ! +!** --- C code. --- ! +! ! +!** --------------- ! +! ! +!*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d0 = %pi ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0 = d0OpEquald0(SCI2C_PI); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: d2 = [1 2 3 4 ; 5 6 7 8 ; 9 10 11 12 ; 13 14 15 16] ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d0OpRcd2(1,2,__temp1); ! +! ! +! d2d0OpRcd2(__temp1, ____temp1Size,3,__temp2); ! +! ! +! d2d0OpRcd2(__temp2, ____temp2Size,4,__temp3); ! +! ! +! d0d0OpRcd2(5,6,__temp4); ! +! ! +! d2d0OpRcd2(__temp4, ____temp4Size,7,__temp5); ! +! ! +! d2d0OpRcd2(__temp5, ____temp5Size,8,__temp6); ! +! ! +! d2d2OpCcd2(__temp3, ____temp3Size,__temp6, ____temp6Size,__temp7)! +! ; ! +! ! +! d0d0OpRcd2(9,10,__temp8); ! +! ! +! d2d0OpRcd2(__temp8, ____temp8Size,11,__temp9); ! +! ! +! d2d0OpRcd2(__temp9, ____temp9Size,12,__temp10); ! +! ! +! d2d2OpCcd2(__temp7, ____temp7Size,__temp10, ____temp10Size,__temp! +! 11); ! +! ! +! d0d0OpRcd2(13,14,__temp12); ! +! ! +! d2d0OpRcd2(__temp12, ____temp12Size,15,__temp13); ! +! ! +! d2d0OpRcd2(__temp13, ____temp13Size,16,__temp14); ! +! ! +! d2d2OpCcd2(__temp11, ____temp11Size,__temp14, ____temp14Size,d2);! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z0 = d0 + %i * d0 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp15 = z0d0OpStarz0(DoubleComplex(0,1),d0); ! +! ! +! z0 = d0z0OpPlusz0(d0,__temp15); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: z2 = d2 + %i * d2 ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpStarz2(DoubleComplex(0,1),d2, __d2Size,__temp16); ! +! ! +! d2z2OpPlusz2(d2, __d2Size,__temp16, ____temp16Size,z2); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp17 = d0d0OpHatd0(d0,d0); ! +! ! +! ans1 = d0dispd0(__temp17); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp18 = z0z0OpHatz0(z0,z0); ! +! ! +! ans2 = z0dispd0(__temp18); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2d0OpHatd2(d2, __d2Size,d0,__temp19); ! +! ! +! ans3 = d2dispd0(__temp19, ____temp19Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2z0OpHatz2(z2, __z2Size,z0,__temp20); ! +! ! +! ans4 = z2dispd0(__temp20, ____temp20Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0d2OpHatd2(d0,d2, __d2Size,__temp21); ! +! ! +! ans5 = d2dispd0(__temp21, ____temp21Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0z2OpHatz2(z0,z2, __z2Size,__temp22); ! +! ! +! ans6 = z2dispd0(__temp22, ____temp22Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2^d2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2^z2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d2^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d2z0OpHatz2(d2, __d2Size,z0,__temp23); ! +! ! +! ans7 = z2dispd0(__temp23, ____temp23Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z2^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z2d0OpHatz2(z2, __z2Size,d0,__temp24); ! +! ! +! ans8 = z2dispd0(__temp24, ____temp24Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^z2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! d0z2OpHatz2(d0,z2, __z2Size,__temp25); ! +! ! +! ans9 = z2dispd0(__temp25, ____temp25Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^d2) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! z0d2OpHatz2(z0,d2, __d2Size,__temp26); ! +! ! +! ans10 = z2dispd0(__temp26, ____temp26Size); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(d0^z0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp27 = d0z0OpHatz0(d0,z0); ! +! ! +! ans11 = z0dispd0(__temp27); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: disp(z0^d0) ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! __temp28 = z0d0OpHatz0(z0,d0); ! +! ! +! ans12 = z0dispd0(__temp28); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(d2^z2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: //disp(z2^d2) // ! Not implemented in Scilab ! ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: endfunction ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +! ! +! ! +! /* ! +! ! +! ** --------------------- ! +! ! +! ** --- Free Section. --- ! +! ! +! ** --------------------- ! +! ! +! */ ! +! ! +! /* ! +! ! +! ** ------------------------- ! +! ! +! ** --- End Free Section. --- ! +! ! +! ** ------------------------- ! +! ! +! */ ! +! ! +! ! +! ! +! return(0); ! +! ! +! ! +! ! +! /*SCI2C: ##########################################################! +! ######## ! +! ! +! SCI2C: ! +! ! +! SCI2C: ##########################################################! +! ########*/ ! +! ! +!} ! +! ! +! ! +mclose(fd); |