// // 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);