MATLAB源代码-Arithmetic.zip

/* * MATLAB Compiler: 3.0 * Date: Fri Sep 03 08:56:51 2004 * Arguments: "-B" "macro_default" "-O" "all" "-O" "fold_scalar_mxarrays:on" * "-O" "fold_non_scalar_mxarrays:on" "-O" "optimize_integer_for_loops:on" "-O" * "array_indexing:on" "-O" "optimize_conditionals:on" "-x" "-W" "mex" "-L" "C" * "-t" "-T" "link:mexlibrary" "libmatlbmx.mlib" "sjbh1" */ #include "sjbh1.h" #include "axis.h" #include "grid.h" #include "legend.h" #include "libmatlbm.h" static mxArray * _mxarray0_; static mxArray * _mxarray1_; static mxArray * _mxarray2_; static double _array4_[4] = { -1.0, 10.0, -2.0, 2.0 }; static mxArray * _mxarray3_; static mxChar _array6_[6] = { 's', 'i', 'n', '(', 'x', ')' }; static mxArray * _mxarray5_; static mxArray * _mxarray7_; static mxChar _array9_[3] = { 'o', 'f', 'f' }; static mxArray * _mxarray8_; static mxChar _array11_[22] = { 0xbdab, 'y', '=', 's', 'i', 'n', '(', 'x', ')', 0xb5c4, 0xbae1, 0xd7f8, 0xb1ea, 0xcad5, 0xcbf5, 0xd6c1, 0xd4ad, 0xc0b4, 0xb5c4, '1', '/', '2' }; static mxArray * _mxarray10_; static mxChar _array13_[5] = { 'C', 'o', 'l', 'o', 'r' }; static mxArray * _mxarray12_; static double _array15_[3] = { 1.0, 1.0, 0.0 }; static mxArray * _mxarray14_; static mxChar _array17_[6] = { 'M', 'a', 'r', 'k', 'e', 'r' }; static mxArray * _mxarray16_; static mxChar _array19_[1] = { '.' }; static mxArray * _mxarray18_; static mxChar _array21_[10] = { 'M', 'a', 'r', 'k', 'e', 'r', 'S', 'i', 'z', 'e' }; static mxArray * _mxarray20_; static mxArray * _mxarray22_; static mxChar _array24_[9] = { 'E', 'r', 'a', 's', 'e', 'M', 'o', 'd', 'e' }; static mxArray * _mxarray23_; static mxChar _array26_[3] = { 'x', 'o', 'r' }; static mxArray * _mxarray25_; static double _array28_[21] = { 1.0, 1.05, 1.1, 1.15, 1.2, 1.25, 1.3, 1.35, 1.4, 1.45, 1.5, 1.55, 1.6, 1.65, 1.7, 1.75, 1.8, 1.85, 1.9, 1.95, 2.0 }; static mxArray * _mxarray27_; static mxArray * _mxarray29_; static mxArray * _mxarray30_; static mxArray * _mxarray31_; static mxChar _array33_[5] = { 'x', 'd', 'a', 't', 'a' }; static mxArray * _mxarray32_; static mxChar _array35_[5] = { 'y', 'd', 'a', 't', 'a' }; static mxArray * _mxarray34_; static mxArray * _mxarray36_; static mxArray * _mxarray37_; static mxChar _array39_[7] = { 's', 'i', 'n', '(', '2', 'x', ')' }; static mxArray * _mxarray38_; static mxChar _array41_[18] = { 0xbdab, 'y', '=', 's', 'i', 'n', '(', '2', 'x', ')', 0xcff2, 0xd7f3, 0xc6bd, 0xd2c6, 'p', 'i', '/', '6' }; static mxArray * _mxarray40_; static double _array43_[3] = { 1.0, 0.0, 1.0 }; static mxArray * _mxarray42_; static mxChar _array45_[3] = { 'X', 'o', 'r' }; static mxArray * _mxarray44_; static mxArray * _mxarray46_; static mxArray * _mxarray47_; static mxArray * _mxarray48_; static mxChar _array50_[12] = { 's', 'i', 'n', '(', '2', 'x', '+', 'p', 'i', '/', '3', ')' }; static mxArray * _mxarray49_; static mxArray * _mxarray51_; static mxArray * _mxarray52_; static mxChar _array54_[13] = { '2', 's', 'i', 'n', '(', '2', 'x', '+', 'p', 'i', '/', '3', ')' }; static mxArray * _mxarray53_; void InitializeModule_sjbh1(void) { _mxarray0_ = mclInitializeDouble(-1.0); _mxarray1_ = mclInitializeDouble(.01); _mxarray2_ = mclInitializeDouble(10.0); _mxarray3_ = mclInitializeDoubleVector(1, 4, _array4_); _mxarray5_ = mclInitializeString(6, _array6_); _mxarray7_ = mclInitializeDouble(2.0); _mxarray8_ = mclInitializeString(3, _array9_); _mxarray10_ = mclInitializeString(22, _array11_); _mxarray12_ = mclInitializeString(5, _array13_); _mxarray14_ = mclInitializeDoubleVector(1, 3, _array15_); _mxarray16_ = mclInitializeString(6, _array17_); _mxarray18_ = mclInitializeString(1, _array19_); _mxarray20_ = mclInitializeString(10, _array21_); _mxarray22_ = mclInitializeDouble(4.0); _mxarray23_ = mclInitializeString(9, _array24_); _mxarray25_ = mclInitializeString(3, _array26_); _mxarray27_ = mclInitializeDoubleVector(1, 21, _array28_); _mxarray29_ = mclInitializeDouble(1101.0); _mxarray30_ = mclInitializeDouble(21.0); _mxarray31_ = mclInitializeDoubleVector(0, 0, (double *)NULL); _mxarray32_ = mclInitializeString(5, _array33_); _mxarray34_ = mclInitializeString(5, _array35_); _mxarray36_ = mclInitializeDouble(.0005); _mxarray37_ = mclInitializeDouble(1.0); _mxarray38_ = mclInitializeString(7, _array39_); _mxarray40_ = mclInitializeString(18, _array41_); _mxarray42_ = mclInitializeDoubleVector(1, 3, _array43_); _mxarray44_ = mclInitializeString(3, _array45_); _mxarray46_ = mclInitializeDouble(20.0); _mxarray47_ = mclInitializeDouble(3.141592653589793); _mxarray48_ = mclInitializeDouble(60.0); _mxarray49_ = mclInitializeString(12, _array50_); _mxarray51_ = mclInitializeDouble(5.0); _mxarray52_ = mclInitializeDouble(1.0471975511965976); _mxarray53_ = mclInitializeString(13, _array54_); } void TerminateModule_sjbh1(void) { mxDestroyArray(_mxarray53_); mxDestroyArray(_mxarray52_); mxDestroyArray(_mxarray51_); mxDestroyArray(_mxarray49_); mxDestroyArray(_mxarray48_); mxDestroyArray(_mxarray47_); mxDestroyArray(_mxarray46_); mxDestroyArray(_mxarray44_); mxDestroyArray(_mxarray42_); mxDestroyArray(_mxarray40_); mxDestroyArray(_mxarray38_); mxDestroyArray(_mxarray37_); mxDestroyArray(_mxarray36_); mxDestroyArray(_mxarray34_); mxDestroyArray(_mxarray32_); mxDestroyArray(_mxarray31_); mxDestroyArray(_mxarray30_); mxDestroyArray(_mxarray29_); mxDestroyArray(_mxarray27_); mxDestroyArray(_mxarray25_); mxDestroyArray(_mxarray23_); mxDestroyArray(_mxarray22_); mxDestroyArray(_mxarray20_); mxDestroyArray(_mxarray18_); mxDestroyArray(_mxarray16_); mxDestroyArray(_mxarray14_); mxDestroyArray(_mxarray12_); mxDestroyArray(_mxarray10_); mxDestroyArray(_mxarray8_); mxDestroyArray(_mxarray7_); mxDestroyArray(_mxarray5_); mxDestroyArray(_mxarray3_); mxDestroyArray(_mxarray2_); mxDestroyArray(_mxarray1_); mxDestroyArray(_mxarray0_); } static void Msjbh1(mxArray * m); _mexLocalFunctionTable _local_function_table_sjbh1 = { 0, (mexFunctionTableEntry *)NULL }; /* * The function "mlfSjbh1" contains the normal interface for the "sjbh1" * M-function from file "d:\matlab6p5p1\work\test\sjbh1.m" (lines 1-67). This * function processes any input arguments and passes them to the implementation * version of the function, appearing above. */ void mlfSjbh1(mxArray * m) { mlfEnterNewContext(0, 1, m); Msjbh1(m); mlfRestorePreviousContext(0, 1, m); } /* * The function "mlxSjbh1" contains the feval interface for the "sjbh1" * M-function from file "d:\matlab6p5p1\work\test\sjbh1.m" (lines 1-67). The * feval function calls the implementation version of sjbh1 through this * function. This function processes any input arguments and passes them to the * implementation version of the function, appearing above. */ void mlxSjbh1(int nlhs, mxArray * plhs[], int nrhs, mxArray * prhs[]) { mxArray * mprhs[1]; int i; if (nlhs > 0) { mlfError( mxCreateString( "Run-time Error: File: sjbh1 Line: 2 Column: 1 The function \"sjbh1" "\" was called with more than the declared number of outputs (0)."), NULL); } if (nrhs > 1) { mlfError( mxCreateString( "Run-time Error: File: sjbh1 Line: 2 Column: 1 The function \"sjbh1" "\" was