matlab_utilities/txt2fis.cpp

MEX file that reads a TXT fuzzy model and creates a FIS variable.

MATLAB help:

% TXT2FIS Reads a TXT fuzzy model and creates a FIS variable.
%
%   FIS_Model = txt2fis('File.txt')
%
% Arguments:
%
%   'File.txt' -> String with the name of TXT-file to read.
%
%   FIS_Model -> 'FIS' fuzzy model.
%
% See also activation, antec2mat, aproxjac, aproxlinear, conseq2mat, fis2txt,
%          fuz2mat, fuzcomb, fuzeval, fuzjac, fuzlinear, fuzprint, mat2antec,
%          mat2conseq, mat2fuz, fuzsubsystem

Source code:

/*  Copyright (C) 2004-2011
  ANTONIO JAVIER BARRAGAN, antonio.barragan@diesia.uhu.es
  http://uhu.es/antonio.barragan

  Collaborators:
  JOSE MANUEL ANDUJAR, andujar@diesia.uhu.es
  MARIANO J. AZNAR, marianojose.aznar@alu.uhu.es

  DPTO. DE ING. ELECTRONICA, DE SISTEMAS INFORMATICOS Y AUTOMATICA
  ETSI, UNIVERSITY OF HUELVA (SPAIN)

  For more information, please contact with authors.
  
  This software is free software: you can redistribute it and/or modify
  it under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  (at your option) any later version.

  This software is distributed in the hope that it will be useful,
  but WITHOUT ANY WARRANTY; without even the implied warranty of
  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  GNU General Public License for more details.

  You should have received a copy of the GNU General Public License
  along with this program.  If not, see <http://www.gnu.org/licenses/>.
*/

#include "aux_matlab.hpp"

#define MATLAB_BUFLEN ((mxGetM(prhs[0])*mxGetN(prhs[0])*sizeof(mxChar))+1)

using namespace FLT;

void mexFunction (int nlhs, mxArray *plhs[], int nrhs, const mxArray *prhs[])
{
  char file[MAX_CHAR_LONG];
  System S;

  if(nrhs!=1)
    ERRORMSG(E_NumberArgIn)
  if (nlhs>1)
    ERRORMSG(E_NumberArgOut)
  if (mxIsEmpty(prhs[0]) || mxIsNaN(*mxGetPr(prhs[0])))
    ERRORMSG(E_ArgNoValid)
  if(mxGetString(prhs[0],file,MATLAB_BUFLEN))
    ERRORMSG(E_NumberArgIn)
  S = TXT2System(file);
  if(!S.outputs())
    ERRORMSG(E_BadModel)

  const char* names[] = {"name","type","andMethod","orMethod","defuzzMethod","impMethod","aggMethod","input","output","rule"};
  mwSize dim[] = {1,1};
  
  plhs[0] = mxCreateStructArray(2,dim,10,names);
  
  if(System2FIS(S,plhs[0]))
  {
    mxDestroyArray(plhs[0]);
    ERRORMSG(E_FISOut)
  }
}