#*-------------------------------------------------------------------
* EMSO Model Library (EML) Copyright (C) 2004 - 2007 ALSOC.
*
* This LIBRARY is free software; you can distribute it and/or modify
* it under the therms of the ALSOC FREE LICENSE as available at
* http://www.enq.ufrgs.br/alsoc.
*
* EMSO is distributed under the terms of the ALSOC LICENSE as
* available at http://www.enq.ufrgs.br/alsoc.
*-----------------------------------------------------------------------
* Author: Jonathan Ospino P.
* $Id: Error_Integral_Criteria.mso  2012$
*---------------------------------------------------------------------*#

using "types";

Model IAE

ATTRIBUTES
	Pallete=true;
	Icon="icon/IAE";
	Info="== Integral of the Absolute value of the Error (IAE)==
	      
		  It computes the value of the IAE for a given error (input signal).
	      The resulting value is assigned to the output variable.";

VARIABLES

in e as Real(PosX=0,PosY=0.5,Protected=true);
out iae as Real(Brief="IAE of the input signal",PosX=1,PosY=0.5,Protected=true);


EQUATIONS

diff(iae)*'s'=abs(e);


INITIAL

iae=0;

end


Model ISE

ATTRIBUTES
	Pallete=true;
	Icon="icon/ISE";
	Info="== Integral of the Square of the Error (ISE)==
	      
		  It computes the value of the ISE for a given error (input signal).
	      The resulting value is assigned to the output variable.";

VARIABLES

in e as Real(PosX=0,PosY=0.5,Protected=true);
out ise as Real(Brief="IAE of the input signal",PosX=1,PosY=0.5,Protected=true);


EQUATIONS

diff(ise)*'s'=e^2;


INITIAL

ise=0;

end


Model ITAE

ATTRIBUTES
	Pallete=true;
	Icon="icon/ITAE";
	Info="== Integral of the Time-Weighted Absolute value of the Error (ITAE)==
	      
		  It computes the value of the ITAE for a given error (input signal).
	      The resulting value is assigned to the output variable.";

VARIABLES

in e as Real(PosX=0,PosY=0.5,Protected=true);
out itae as Real(Brief="ITAE of the input signal",PosX=1,PosY=0.5,Protected=true);


EQUATIONS

diff(itae)*'s'=time*abs(e)/'s';


INITIAL

itae=0;

end


Model ITSE

ATTRIBUTES
	Pallete=true;
	Icon="icon/ITSE";
	Info="== Integral of the Time-Weighted Square of the Error (ITSE)==
	      
		  It computes the value of the ITSE for a given error (input signal).
	      The resulting value is assigned to the output variable.";

VARIABLES

in e as Real(PosX=0,PosY=0.5,Protected=true);
out itse as Real(Brief="ITSE of the input signal",PosX=1,PosY=0.5,Protected=true);


EQUATIONS

diff(itse)*'s'=time*e^2/'s';


INITIAL

itse=0;

end