#*---------------------------------------------------------------------
* This file is property of the author and cannot be used, copyed
* or modified without permission.
*
* Copyright (C) 2002-2004  the author
*----------------------------------------------------------------------
* Author: Paula Bettio Staudt
*         Rafael de Pelegrini Soares
* $Id: sample_batch.mso 1 2006-06-20 17:33:53Z rafael $
*----------------------------------------------------------------------
*
* Sample file for a isotermic batch reactor.
*
*-------------------------------------------------------------------*#

using "streams";
 
Model batch_basic
	PARAMETERS
ext	NComp as Integer;
	NReac as Integer;
	stoic(NComp, NReac) as Real (Brief = "Stoichiometric Matrix");

	VARIABLES
in	Inlet      as stream;
	C(NComp) as conc_mol(Brief="Components concentration");
	r(NReac) as reaction_mol(Brief = "Reaction rates");
	T          as temperature(Brief="Reactor temperature");
	P          as pressure(Brief="Reactor pressure");
	Vr         as volume (Brief = "Reacting Volume");
	
	EQUATIONS
	"Component Molar Balance"
	diff(C*Vr) = Inlet.F*Inlet.z + sumt(stoic*r)*Vr;
end


Model batch_isotermic as batch_basic
	EQUATIONS
	"Isotermic"
	T = Inlet.T;
	
	"Isobaric"
	P = Inlet.P;
end