/*
* MATLAB Compiler: 3.0
* Date: Wed Jul 06 02:27:15 2005
* 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" "-m" "-W" "main" "-L"
* "C" "-t" "-T" "link:exe" "-h" "libmmfile.mlib" "-B" "sgl" "-m" "-W" "main"
* "-L" "C" "-t" "-T" "link:exe" "-h" "libmmfile.mlib" "-W" "mainhg"
* "libmwsglm.mlib" "micampo.m" "matrices1lazo.m" "leeActivo.m" "leePasivo.m"
* "matActivo.m"
*/
#include "leeactivo.h"
#include "libmatlbm.h"
#include "libmmfile.h"
static mxArray * _mxarray0_;
static mxArray * _mxarray1_;
static mxChar _array3_[1] = { ',' };
static mxArray * _mxarray2_;
static mxChar _array5_[1] = { '.' };
static mxArray * _mxarray4_;
static mxChar _array7_[1] = { ';' };
static mxArray * _mxarray6_;
static mxChar _array9_[1] = { ' ' };
static mxArray * _mxarray8_;
static mxArray * _mxarray10_;
static mxArray * _mxarray11_;
static mxArray * _mxarray12_;
static mxArray * _mxarray13_;
static mxArray * _mxarray14_;
static mxArray * _mxarray15_;
static mxArray * _mxarray16_;
static mxArray * _mxarray17_;
static mxArray * _mxarray18_;
static mxArray * _mxarray19_;
static mxArray * _mxarray20_;
static mxArray * _mxarray21_;
void InitializeModule_leeactivo(void) {
_mxarray0_ = mclInitializeDouble(1.0);
_mxarray1_ = mclInitializeDoubleVector(0, 0, (double *)NULL);
_mxarray2_ = mclInitializeString(1, _array3_);
_mxarray4_ = mclInitializeString(1, _array5_);
_mxarray6_ = mclInitializeString(1, _array7_);
_mxarray8_ = mclInitializeString(1, _array9_);
_mxarray10_ = mclInitializeDouble(2.0);
_mxarray11_ = mclInitializeDouble(3.0);
_mxarray12_ = mclInitializeDouble(4.0);
_mxarray13_ = mclInitializeDouble(5.0);
_mxarray14_ = mclInitializeDouble(6.0);
_mxarray15_ = mclInitializeDouble(7.0);
_mxarray16_ = mclInitializeDouble(8.0);
_mxarray17_ = mclInitializeDouble(9.0);
_mxarray18_ = mclInitializeDouble(10.0);
_mxarray19_ = mclInitializeDouble(11.0);
_mxarray20_ = mclInitializeDouble(12.0);
_mxarray21_ = mclInitializeDouble(13.0);
}
void TerminateModule_leeactivo(void) {
mxDestroyArray(_mxarray21_);
mxDestroyArray(_mxarray20_);
mxDestroyArray(_mxarray19_);
mxDestroyArray(_mxarray18_);
mxDestroyArray(_mxarray17_);
mxDestroyArray(_mxarray16_);
mxDestroyArray(_mxarray15_);
mxDestroyArray(_mxarray14_);
mxDestroyArray(_mxarray13_);
mxDestroyArray(_mxarray12_);
mxDestroyArray(_mxarray11_);
mxDestroyArray(_mxarray10_);
mxDestroyArray(_mxarray8_);
mxDestroyArray(_mxarray6_);
mxDestroyArray(_mxarray4_);
mxDestroyArray(_mxarray2_);
mxDestroyArray(_mxarray1_);
mxDestroyArray(_mxarray0_);
}
static mxArray * Mleeactivo(int nargout_, mxArray * fid);
_mexLocalFunctionTable _local_function_table_leeactivo
= { 0, (mexFunctionTableEntry *)NULL };
/*
* The function "mlfLeeactivo" contains the normal interface for the
* "leeactivo" M-function from file "c:\matlab6p5\work\leeactivo.m" (lines
* 1-44). This function processes any input arguments and passes them to the
* implementation version of the function, appearing above.
*/
mxArray * mlfLeeactivo(mxArray * fid) {
int nargout = 1;
mxArray * lazos = NULL;
mlfEnterNewContext(0, 1, fid);
lazos = Mleeactivo(nargout, fid);
mlfRestorePreviousContext(0, 1, fid);
return mlfReturnValue(lazos);
}
/*
* The function "mlxLeeactivo" contains the feval interface for the "leeactivo"
* M-function from file "c:\matlab6p5\work\leeactivo.m" (lines 1-44). The feval
* function calls the implementation version of leeactivo through this
* function. This function processes any input arguments and passes them to the
* implementation version of the function, appearing above.
*/
void mlxLeeactivo(int nlhs, mxArray * plhs[], int nrhs, mxArray * prhs[]) {
mxArray * mprhs[1];
mxArray * mplhs[1];
int i;
if (nlhs > 1) {
mlfError(
mxCreateString(
"Run-time Error: File: leeactivo Line: 1 Column:"
" 1 The function \"leeactivo\" was called with m"
"ore than the declared number of outputs (1)."),
NULL);
}
if (nrhs > 1) {
mlfError(
mxCreateString(
"Run-time Error: File: leeactivo Line: 1 Column:"
" 1 The function \"leeactivo\" was called with m"
"ore than the declared number of inputs (1)."),
NULL);
}
for (i = 0; i < 1; ++i) {
mplhs[i] = NULL;
}
for (i = 0; i < 1 && i < nrhs; ++i) {
mprhs[i] = prhs[i];
}
for (; i < 1; ++i) {
mprhs[i] = NULL;
}
mlfEnterNewContext(0, 1, mprhs[0]);
mplhs[0] = Mleeactivo(nlhs, mprhs[0]);
mlfRestorePreviousContext(0, 1, mprhs[0]);
plhs[0] = mplhs[0];
}
/*
* The function "Mleeactivo" is the implementation version of the "leeactivo"
* M-function from file "c:\matlab6p5\work\leeactivo.m" (lines 1-44). It
* contains the actual compiled code for that M-function. It is a static
* function and must only be called from one of the interface functions,
* appearing below.
*/
/*
* function lazos=leeActivo(fid)
*/
static mxArray * Mleeactivo(int nargout_, mxArray * fid) {
mexLocalFunctionTable save_local_function_table_
= mclSetCurrentLocalFunctionTable(&_local_function_table_leeactivo);
mxArray * lazos = NULL;
mxArray * indices = NULL;
mxArray * ii = NULL;
mxArray * cadena = NULL;
mxArray * fila = NULL;
mclCopyArray(&fid);
/*
*
* fila=1;
*/
mlfAssign(&fila, _mxarray0_);
/*
*
* while(~feof(fid))
*/
while (mclNotBool(mlfFeof(mclVa(fid, "fid")))) {
/*
*
* cadena=fgets(fid); % Obtenemos el siguiente lazo del fichero.
*/
mlfAssign(&cadena, mlfFgets(NULL, mclVa(fid, "fid"), NULL));
/*
* for ii=1:length(cadena) % Si el simbolo decimal es ',' lo cambiamos por '.'
*/
{
int v_ = mclForIntStart(1);
int e_ = mclLengthInt(mclVv(cadena, "cadena"));
if (v_ > e_) {
mlfAssign(&ii, _mxarray1_);
} else {
/*
* if cadena(ii)==','
* cadena(ii)='.';
* end
* end
*/
for (; ; ) {
if (mclEqBool(
mclIntArrayRef1(mclVv(cadena, "cadena"), v_),
_mxarray2_)) {
mclIntArrayAssign1(&cadena, _mxarray4_, v_);
}
if (v_ == e_) {
break;
}
++v_;
}
mlfAssign(&ii, mlfScalar(v_));
}
}
/*
*
* if cadena(length(cadena))==';'
*/
if (mclEqBool(
mclIntArrayRef1(
mclVv(cadena, "cadena"), mclLengthInt(mclVv(cadena, "cadena"))),
_mxarray6_)) {
/*
* cadena(length(cadena))=' ';
*/
mclIntArrayAssign1(
&cadena, _mxarray8_, mclLengthInt(mclVv(cadena, "cadena")));
/*
* end
*/
}
/*
* cadena=deblank(cadena);
*/
mlfAssign(&cadena, mlfDeblank(mclVv(cadena, "cadena")));
/*
*
* % Quitamos el ultimo elemento de la linea
* cadena=cadena(1:length(cadena)-1);
*/
mlfAssign(
&cadena,
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
_mxarray0_,
mlfScalar(mclLengthInt(mclVv(cadena, "cadena")) - 1),
NULL)));
/*
*
* % Obtenemos las posiciones de los ;
* indices=strfind(cadena,';');
*/
mlfAssign(&indices, mlfStrfind(mclVv(cadena, "cadena"), _mxarray6_));
/*
*
* % Rellenamos la fila actual de la matriz de lazos
*
* lazos(fila,1)=str2double(cadena(1:indices(1)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
_mxarray0_,
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 1), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray0_);
/*
* lazos(fila,2)=str2double(cadena(indices(1)+1:indices(2)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 1), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 2), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray10_);
/*
* lazos(fila,3)=str2double(cadena(indices(2)+1:indices(3)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 2), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 3), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray11_);
/*
* lazos(fila,4)=str2double(cadena(indices(3)+1:indices(4)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 3), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 4), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray12_);
/*
* lazos(fila,5)=str2double(cadena(indices(4)+1:indices(5)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 4), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 5), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray13_);
/*
* lazos(fila,6)=str2double(cadena(indices(5)+1:indices(6)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 5), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 6), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray14_);
/*
* lazos(fila,7)=str2double(cadena(indices(6)+1:indices(7)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 6), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 7), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray15_);
/*
* lazos(fila,8)=str2double(cadena(indices(7)+1:indices(8)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 7), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 8), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray16_);
/*
* lazos(fila,9)=str2double(cadena(indices(8)+1:indices(9)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 8), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 9), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray17_);
/*
* lazos(fila,10)=str2double(cadena(indices(9)+1:indices(10)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 9), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 10), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray18_);
/*
* lazos(fila,11)=str2double(cadena(indices(10)+1:indices(11)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 10), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 11), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray19_);
/*
* lazos(fila,12)=str2double(cadena(indices(11)+1:indices(12)-1));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 11), _mxarray0_),
mclMinus(
mclIntArrayRef1(mclVv(indices, "indices"), 12), _mxarray0_),
NULL))),
mclVv(fila, "fila"),
_mxarray20_);
/*
* lazos(fila,13)=str2double(cadena(indices(12)+1:length(cadena)));
*/
mclArrayAssign2(
&lazos,
mlfStr2double(
mclArrayRef1(
mclVv(cadena, "cadena"),
mlfColon(
mclPlus(
mclIntArrayRef1(mclVv(indices, "indices"), 12), _mxarray0_),
mlfScalar(mclLengthInt(mclVv(cadena, "cadena"))),
NULL))),
mclVv(fila, "fila"),
_mxarray21_);
/*
*
* fila=fila+1;
*/
mlfAssign(&fila, mclPlus(mclVv(fila, "fila"), _mxarray0_));
/*
*
* end
*/
}
mclValidateOutput(lazos, 1, nargout_, "lazos", "leeactivo");
mxDestroyArray(fila);
mxDestroyArray(cadena);
mxDestroyArray(ii);
mxDestroyArray(indices);
mxDestroyArray(fid);
mclSetCurrentLocalFunctionTable(save_local_function_table_);
return lazos;
/*
*
*/
}
e-REdING. Biblioteca de la Escuela Superior de Ingenieros de Sevilla.
