Reactores Flujos No Ideales Con MATLAB
Reactores Flujos No Ideales Con MATLAB
Reactores Flujos No Ideales Con MATLAB
1
UNIVERSIDAD DE GUADALAJARA
Posgrado de Ingenierı́a Quı́mica
2
Distribución de Tiempos de
Residencia (RTD)
Z ∞
E(t) dt = 1
0
t
C(t) = C0exp −
tm
C(t) C0exp − tmt exp(−(t/tm))
E(t) = R ∞ =R =
∞ tm
0 C(t) dt
t
0 C0 exp − tm dt
5
Problema 1
t = (0,1,2,3,4,5,6,7,8,9,10,12,14) (min)
C = (0,1,5,8,10,8,6,4,3,2.2,1.5,0.6,0) (g/m3)
Solución
6
Z ∞
C(t) dt = 50,65 (min/m3)
0
7
C(t)
E(t) = R ∞ =1
0 C(t) dt
C(t)
E(t) = R 6 = 0,49
3 C(t) dt
8
(c) Determine la fracción de material que sale del reactor y ha pasado
tres minutos o menos dentro del mismo.
C(t)
E(t) = R 3 = 0,19
0 C(t) dt
9
10
Problema 2
Solución
Z t
F (t) = E(t)dt
0
11
A los 10 min del proceso, sale el 80 % del material.
12
Problema 3
13
Z 4
C(t) dt = 0,7954
0
C(t)
E(t) = R 1 = 0,71
0 C(t) dt
14
Lo anterior se puede resolver de la siguiente manera con la interface
gráfica.
15
2 Momentos de la RTD
Z ∞
tm = tE(t) dt
0
V
τ=
ν
Vm = V − (tmυ)
Va = V − Vm
2.2 Varianza
Z ∞
2
σ = (t − tm)2E(t) dt
0
17
Problema 4
Calcule el tiempo medio de residencia y la varianza para el reactor
caracterizado en el ejemplo 1 por la RTD obtenida con una alimentación
por pulso a 320 K.
Solución
Z ∞
tm = tE(t) dt
0
Z 14
tm = tE(t) dt = 5,123min
0
Z ∞
2
σ = (t − tm)2E(t) dt
0
18
Z 14
2
σ = (t − tm)2E(t) dt = 5,951min2
0
σ = 2,44min
19
20
Problema 5
t = (0, 1, 2, 3, 4, 5, 6, 7, 8) (s)
C = (0, 2, 4, 7, 6, 5, 2, 1, 0) (mg/L)
Solución
Z 8
tm = tE(t) dt = 3,66min
0
Z 8
2
σ = (t − tm)2E(t) dt = 2,22
0
21
A continuación se presentan las gráficas que demuestran el compor-
tamiento de la RTD, tm y σ 2
22
Problema 6
t = (0,0.8,2.0,4.0,6.8,8.0,12.8,16.8,24.0) min
C = (15.37,12.15,9.43,5.24,2.08,1.62,0.36,0.12,0.001) mg/L
Solución
tm = 3,3022
24
2. MODELOS DE REACTORES NO
IDEALES
No todos los reactores de tanque están perfectamente mezclados ni
todos los reactores tubulares presentan comportamiento de flujo tapón.
En tales casos, es necesario aplicar métodos para considerar desviacio-
nes del comportamiento ideal.
∂ 2C ∂C
∂C D
= −
∂Θ uL ∂z 2 ∂z
25
D/uL → 0 la dispersión es insignificante, por lo tanto hay flujo pistón
2
2
σ D D
σΘ2 = 2 = 2 −2 [1 − e−uL/D ]
tm uL uL
2
σ D
σΘ2 = 2 = 2
tm uL
4qexp(P er /2)
X =1−
(1 + q)2exp(P er q/2) − (1 − q)2exp(−P er q/2)
p
q= 1 + (4Da/P er )
27
Da = ktm
X = 1 − exp(−tmk)
CA0
−rA = kCA2 = k CA = k 0 CA
2
Da = k 0tm
ktmCA0
X=
1 + ktmCA0
28
Problema 7
Se realizaron estudios de RTD en un reactor tubular, se inyecto
rápidamente a la entrada del reactor una solución de NaCl y se tomaron
muestras a la salida y se obtuvieron los siguientes resultados
t = (10,22.5,27.5,32.5,37.5,42.5,47.5,52.5,62.5) h
C =(0,60,210,170,75,35,10,5,0) mol/m3
Solución
Z 57,5
tm = tE(t) dt = 30,7449
10
Z 57,5
2
σ = (t − tm)2E(t) dt = 39,9808
00
2
D D
0,04058 = 2 −2 [1 − e−uL/D ]
uL uL
29
D
= 0,02114
uL
Utilizando la interface gráfica para resolver el problema, tenemos lo
siguiente
30
Problema 8
Se caracterizo un reactor no ideal con un experimento de RTD, en
el cual se determino un tiempo de residencia medio de 7.2 min y un
modulo de dispersión igual a 0.0988. La concentración inicial del ex-
perimeto fue de CA0 = 0.3 mol/min y una constante de velocidad k =
0.2.
Solución
a) Modelo de dispersión de primer orden
Da = 1,44
p
q = 1 + (4(1,44)/10,1214) = 1,2526
4qexp(P er /2)
X =1−
(1 + q)2exp(P er q/2) − (1 − q)2exp(−P er q/2)
X = 0,7250
X = 0,7640
Da = 0,432
32
p
q= 1 + (4(0,432)/10,1214) = 1,0820
4qexp(P er /2)
X =1−
(1 + q)2exp(P er q/2) − (1 − q)2exp(−P er q/2)
X = 0,3406
ktmCA0
X=
1 + ktmCA0
0,432
X=
1 + 0,432
X = 0,3016
33
34
2.2 Modelo de tanques en serie
tn−1
E(t) = n e−t/τi
(n − 1)!τi
35
Las ecuaciones anteriores se pueden ver gráficamente de la siguiente
manera.
36
2.2.1 Conversión en Modelo de Tanques es serie
1
X=
(1 + tmk)
1
X =1−
(1 + τik)n
√
−1 + 1 + 4tmkCA0
X =1−
2tmkCA0
√ 1/n
−1 + (1 + 2(1 + 1 + 4tmkCA0)
X =1−
2tmkCA0
37
Problema 9
Calcular los tanques en serie que darán aproximadamente la misma
RTD que el reactor no ideal en el cual se obtuvieron los siguientes datos
en el experimento con el trazador.
t = (0,1,2,3,4,5,6,7,8,9,10,12,14) min
C = (0,1,5,8,10,8,6,4,3,2.2,1.5,0.6,0) g/m3
Solución
tm = 5,123min
σ 2 = 5,951min2
σ2
σΘ2 = 2 = 0,2267
tm
1
N= = 4,41tanques
σΘ2
38
Utilizando la interface gráfica, observamos que se comprueban los
resultados.
39
Problema 10
Se tiene instalado un tanque CSTR en una planta farmacéutica,
por cuestiones de un nuevo producto es necesario eliminar dispersión
y tener un perfil de flujo pistón.
t = (0,5,10,15,20,30,40,50,70,100,125,150,175,200) min
C = (112,96,82.2,70.6,61,45,34,26,15.7,7.7,5.1,2.5,1.7,0.9) mol/m3
Solución
σΘ2
D/uL =
2
Las funciones RTD normalizadas para tanques en serie nos dan la
respuesta, cuando utilizamos 51 tanques en serie tenemos lo siguiente.
1 1
σΘ2 = = = 0,01961
N 51
0,01961
D/uL = = 0,00903
2
40
Al tener un D/uL = 0,00903 < 0,01 podemos decir que tenemos un
flujo tapón, si graficamos es la funcion RTD normalizada deberiamos
tener una campana Gaussina mas estrecha y alargada a medida que
los reactores en serie aumentan y el D/uL disminuye. A continuacion
se muestra la grafica en la cual se describe claramente la prediccion.
41
Problema 11
Consideremos la reacción de primer orden A → B que se lleva a cabo
en un reactor CSTR no ideal en fase lı́quida. La constante cinética es
0.25 min−1. En el reactor se realiza una experimento con trazador en
impulso y se obtienen los siguientes resultados:
t = (0,1,2,3,4,5,6,7,8,9,10,12,14) min
C = (0,1,5,8,10,8,6,4,3,2.2,1.5,0.6,0) g/m3
Solución
tm = 5,12734 min
1 1
X= =
(1 + tmk) 1 + 1,281835
X = 0,5617
1
X =1−
(1 + τik)n
X = 0,6754
43
2.3 Modelo de Segregación
dX̄
= X(t)E(t)
dt
Haciendo la sumatoria de todos los glóbulos, la conversión media es
Z ∞
X̄ = = X(t)E(t)dt
0
X(t) = 1 − e−ktm
45
Problema 12
Calcular la conversión para una reacción de primer orden, con los
datos experimentales del problema 11, comprobar que los resultados
de la conversión con los mismos para el modelo de tanques en serie y
el modelo de segregación.
Solución
Z 14
X̄ = = (1 − e−1,218)E(t)dt
0
t = (0,1,2,3,4,5,6,7,8,9,10,12,14) min
C = (0,1,5,8,10,8,6,4,3,2.2,1.5,0.6,0) g/m3
X̄ = 0,6746
46
Efectivamente para los dos modelo, tanto el modelo de tanques en
serie y el modelo de segregación para una reacción de primer orden, la
conversión es la misma.
47
2.4 Modelo de Mezclado Máximo
48
dX θN −1N N /(N − 1)!
= PN −1 X − kCA0τ (1 − X)
dθ i i
i=0 θ N /i!
49
Problema 13
Calcular la conversión para el modelo de mezclado máximo en una
reacción de segundo orden,con un numero de convección ktmCA0 = 10.
Considere que los tanques en serie que describen el modelo son 3.
Solución
50
La conversión con este modelo seria la siguiente:
XAE = 0,8341
51
PROBLEMAS EXTRAS
Problema 14
º
La reacción de dimerización de 2 orden 2A B (rA = -kCA 2) tiene
·
lugar en fase lı́quida, siendo k = 0.01 dm3 /(mol min) a la temperatura
de reacción. El alimento es A puro con una concentración de 8 mol/L.
El volumen teórico del reactor es de 1000 L y el caudal de alimentación
para la dimerización es de 25 L/min.
Se desea conocer los lı́mites entre los que puede variar la conversión
según el grado de micromezcla.
Solución
52
La conversión para el modelo de segregación completa es:
X = 0,6058
53
La conversión para el modelo de mezclado máximo es:
X = 0,5647
Por tanto los lı́mites entre los que puede variar la conversión según
el grado de micromezcla son X : 0,5647 − 0,6058
54
Problema 15
La respuesta a una entrada de pulso a un reactor de lecho empaque-
tado se da en la tabla a continuación. Calcule el número de Peclet para
el sistema y el número de tanques en serie que se usarı́an para modelar
este reactor.
Solución
55
Los tanques en serie que describen la RTD son N = 12,9998 = 13
2
2
σ D D
σΘ2 = 2 = 2 −2 [1 − e−uL/D ]
tm uL uL
56
Problema 16
El flujo que se alimenta a un reactor es de 10 dm3/min. Una prueba
por pulso dio las siguientes medidas de concentración a la salida:
57
Solución
58
B) Fracción del material pasa de 2 a 4 minutos en el
reactor
59
Z 4
E(t)dt = 0,162 o el 16,2
2
Z 6
0E(t)dt = 0,588 o el 58,8
6
60
Z 3
E(t)dt = 0,188 o el 18,8
0
61
F) Conversión para PFR y CSTR ideal
Solución
63
64
65
El perfil muestra que a medida que aumentan los tanques en serie y
el numero de convección, la conversión sera mayor.
66
Problema 18
Los datos que se muestran a continuación son la respuesta de con-
centración a una entrada de pulso a un recipiente. Calcule la función
RTD y compare sus valores con un CSTR que tenga el mismo tiempo
medio de residencia.
Solución
Iniciamos por calcular el tm, el cual puede ser calculado con la in-
terface gráfica.
67
exp(−(t/tm))
E(t) =
tm
C(t)
E(t) = R 30
0 C(t) dt
Y donde:
Z 30
C(t) dt = 2,068
0
68
Existe una similitud entre las dos funciones pero no son perfectas.
69
REFERENCIAS
FFogler, H.S., .Elements of Chemical Reaction Engineering”, Prentice
Hall, N.J., 2008.4ta. Ed.
70
APÉNDICE
clc
f u n c i o n e s = menu ( ’ Funciones RTD’ , ’ Datos Vectores ’ . . .
, ’ Funcion ’ )
switch funciones
case 1
t = i n p u t ( ’ Datos de tiempo= ’ ) ;
C = i n p u t ( ’ Datos de c o n c e n t r a c i o n= ’ ) ;
case 2
xn = 0 ;
x l = i n p u t ( ’ Tiempo f i n a l a l que s a l e e l t r a z a d o r \n ’ ) ;
t = [ xn : . 1 : x l ] ;
* *
% ejemplo de f u n c i o n ( 5 . t ) . ( exp ( −2.5. t ) ) ;*
C = input ( ’ I n t r o d u c i r funcion = ’ ) ;
end
f1 = figure ;
p l o t ( t , C, ’ k ’ , ’ LineWidth ’ , 1 . 5 )
Area = t r a p z ( t ,C ) ;
p = a r e a ( t , C, ’ LineWidth ’ , 1 . 5 , ’ FaceAlpha ’ , 0 . 4 ) ;
s e t ( p , ’ FaceColor ’ , ’ k ’ ) ;
g r i d on
$ $
x l a b e l ( ’ t , ( min ) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , . . .
’ fontsize ’ ,16)
$ $
y l a b e l ( ’ C , ( g/mˆ3) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ . . .
, ’ fontsize ’ ,16)
E = C. / Area ;
f = trapz ( t ,E) ;
F = cumtrapz ( t , E ) ;
x0 = i n p u t ( ’ Tiempo i n i c i a l en e l que s e . . .
71
d e s e a c o n o c e r l a s a l i d a d e l m a t e r i a l=\n ’ ) ;
x f = i n p u t ( ’ Tiempo f i n a l en e l que s e d e s e a . . .
c o n o c e r l a s a l i d a d e l m a t e r i a l=\n ’ ) ;
ind = ( t > x0 ) & ( t < x f ) ;
xw = t ( ind ) ;
yw = E( ind ) ;
ya = i n t e r p 1 ( t , E, x0 ) ;
yb = i n t e r p 1 ( t , E, x f ) ;
xw = [ x0 , xw , x f ] ;
yw = [ ya , yw , yb ] ;
A = t r a p z (xw , yw ) ;
*
A1 = A 1 0 0 ;
f2 = figure ;
p l o t ( t , E, ’ k ’ , ’ LineWidth ’ , 1 . 5 )
$ $
x l a b e l ( ’ t , ( min ) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , . . .
’ fontsize ’ ,16)
$ $
y l a b e l ( ’ E( t ) , ( 1 / min ) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , . . .
’ fontsize ’ ,16)
g r i d on
hold on
h=a r e a (xw , yw , ’ FaceAlpha ’ , 0 . 4 ) ;
s e t ( h , ’ FaceColor ’ , ’m’ ) ;
f p r i n t f ( ’ P o r c e n t a j e de m a t e r i a l que pasa en . . .
e l r e a c t o r en e s e lampso de tiempo : %10.1 f \n\n ’ , A1)
% Grafica F
f 3=f i g u r e ;
x =[ xf , x f ] ;
y =[0 ,A ] ;
x1 =[0 , x f ] ;
y1 =[A,A ] ;
p l o t ( t , F , ’ k−o ’ , x , y , ’m: ’ , x1 , y1 , ’m: ’ , ’ LineWidth ’ , 1 . 5 )
x l a b e l ( ’ t , ( min ) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , ’ f o n t s i z e ’ , 1 6 )
y l a b e l ( ’F( t ) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , ’ f o n t s i z e ’ , 1 6 )
72
g r i d on
clc
f u n c i o n e s = menu ( ’ Modulos DTR’ , . . .
’ Datos Vectores ’ , ’ Funcion ’ )
switch funciones
case 1
t = i n p u t ( ’ Datos de tiempo= ’ ) ;
C = i n p u t ( ’ Datos de c o n c e n t r a c i o n= ’ ) ;
case 2
xn = 0 ;
x l = i n p u t ( ’ Tiempo f i n a l a l que s a l e e l t r a z a d o r \n ’ ) ;
t = [ xn : . 1 : x l ] ;
C = input ( ’ I n t r o d u c i r funcion = ’ ) ;
end
subplot (2 ,2 ,1);
p l o t ( t , C, ’ k ’ , ’ LineWidth ’ , 1 . 5 )
Area = t r a p z ( t ,C ) ;
p = patch ( t , C, ’m’ , ’ LineWidth ’ , 1 . 5 , ’ FaceAlpha ’ , 0 . 3 ) ;
g r i d on
$ $
x l a b e l ( ’ t , ( min ) , a ) ’ , ’ i n t e r p r e t e r ’ , . . .
’ latex ’ , ’ fontsize ’ ,16)
$$
ylabel ( ’ C ’ , ’ interpreter ’ , ’ latex ’ , ’ fontsize ’ ,16)
E = C. / Area ;
x0 = i n p u t ( ’ Tiempo i n i c i a l de i n t e g r a c i o n \n ’ ) ;
x f = i n p u t ( ’ Tiempo f i n a l de i n t e g r a c i o n \n ’ ) ;
ind = ( t > x0 ) & ( t < x f ) ;
xw = t ( ind ) ;
yw = E( ind ) ;
ya = i n t e r p 1 ( t , E, x0 ) ;
yb = i n t e r p 1 ( t , E, x f ) ;
73
xw = [ x0 , xw , x f ] ;
yw = [ ya , yw , yb ] ;
A = t r a p z (xw , yw ) ;
*
A = A 100;
subplot (2 ,2 ,2);
p l o t ( t , E, ’ k ’ , ’ LineWidth ’ , 1 . 5 )
$ $
x l a b e l ( ’ t , ( min ) , b ) ’ , ’ i n t e r p r e t e r ’ , . . .
’ latex ’ , ’ fontsize ’ ,16)
$ $
y l a b e l ( ’ E( t ) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , . . .
’ fontsize ’ ,16)
g r i d on
hold on
a r e a (xw , yw , ’ FaceAlpha ’ , 0 . 3 )
f p r i n t f ( ’ P o r c e n t a j e de m a t e r i a l que pasa en . . .
e l r e a c t o r en e s e lampso de tiempo : %10.1 f \n\n ’ ,A)
%TIEMPO DE RESIDENCIA
tE = t . E ;*
subplot (2 ,2 ,3);
p l o t ( t , tE , ’ k ’ , ’ LineWidth ’ , 1 . 5 )
$ $
x l a b e l ( ’ t , ( min ) , c ) ’ , ’ i n t e r p r e t e r ’ , . . .
’ latex ’ , ’ fontsize ’ ,16)
$ $
y l a b e l ( ’ tE ( t ) ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , . .
’ fontsize ’ ,16)
g r i d on
hold on
tm = t r a p z ( t , tE ) ;
p = patch ( t , tE , ’ y ’ , ’ LineWidth ’ , 1 . 5 , ’ FaceAlpha ’ , 0 . 3 ) ;
f p r i n t f ( ’ Tiempo de R e s i d e n c i a Medio : %10.3 f \n\n ’ , tm)
%VARIANZA
tmE=(t−tm ) . ˆ 2 ;
v =(tmE . E ) ; *
subplot (2 ,2 ,4);
p l o t ( t , v , ’ k ’ , ’ LineWidth ’ , 1 . 5 )
74
$ $
x l a b e l ( ’ t , ( min ) , d ) ’ , ’ i n t e r p r e t e r ’ , . . .
’ latex ’ , ’ fontsize ’ ,16)
$ $
y l a b e l ( ’ E( t ) ( t−tm)ˆ2 ’ , ’ i n t e r p r e t e r ’ , . . .
’ latex ’ , ’ fontsize ’ ,16)
g r i d on
hold on
vari = trapz ( t , v ) ;
a r e a ( t , v , ’ FaceAlpha ’ , 0 . 3 ) ;
f p r i n t f ( ’ D e s v i a c i o n Estandar : %10.3 f \n\n ’ , v a r i )
S = sqrt ( vari );
f p r i n t f ( ’ Varianza : %10.3 f \n\n ’ , S )
% C a l c u l o volumen muerto y a c t i v o
clc
close all
V = i n p u t ( ’ Volumen d e l r e a c t o r= ’ ) ;
v = i n p u t ( ’ F l u j o molar= ’ ) ;
tm = i n p u t ( ’ tiempo medio de r e s i d e n c i a= ’ ) ;
Vm = V−(tm v ) ; *
f p r i n t f ( ’ El volumen muerto d e l r e a c t o r e s : . . .
%10.2 f \n\n ’ ,Vm)
Va = V−Vm;
f p r i n t f ( ’ El volumen a c t i v o d e l r e a c t o r e s : . . .
%10.2 f \n\n ’ , Va)
75
clc
close all
f u n c i o n e s = menu ( ’ Tanques en s e r i e y D/uL ’ , . . .
’ Datos Vectores ’ , ’ Funcion ’ )
switch funciones
case 1
t = i n p u t ( ’ Datos de tiempo= ’ ) ;
C = i n p u t ( ’ Datos de c o n c e n t r a c i o n= ’ ) ;
case 2
xn = 0 ;
x l = i n p u t ( ’ Tiempo f i n a l a l que s a l e e l t r a z a d o r \n ’ ) ;
t = [ xn : . 1 : x l ] ;
C = input ( ’ I n t r o d u c i r funcion = ’ ) ;
end
A = t r a p z ( t ,C ) ;
E = C. /A;
*
tE = t . E ;
f = t r a p z ( t , tE ) ;
tmE =(t−f ) . ˆ 2 ;
F =(tmE . E ) ;*
v = trapz ( t ,F) ;
v a r i =(v / ( ( f ) ˆ 2 ) ) ;
N = 1/ v a r i ;
f p r i n t f ( ’ Numero de tanques en s e r i e : . . .
%10.3 f \n\n ’ ,N)
MD = v a r i / 2 ;
f p r i n t f ( ’ Modulo de d i s p e r s i o n : %10.3 f \n\n ’ ,MD)
77
Pe = i n p u t ( ’ I n t r o d u c i r numero de Pe= ’ )
Da = tm k *
*
q =(1+((4 Da)/ Pe ) ) ˆ . 5
** * *
X = 1 −((4 q exp ( Pe / 2 ) ) / ( ( ( ( 1 + q ) ˆ 2 ) exp ( Pe ( q / 2 ) ) . . .
* *
−(((1−q ) ˆ 2 ) exp((−Pe ( q / 2 ) ) ) ) ) ) )
f p r i n t f ( ’X: %10.4 f \n\n ’ ,X)
case 5
d i s p ( ’MODELO DE PFR i d e a l ’ )
k = i n p u t ( ’ Constante de v e l o c i d a d= ’ ) ;
tm = i n p u t ( ’ Tiempo de r e s i d e n c i a= ’ ) ;
Da = tm k *
X = 1−exp(−Da)
f p r i n t f ( ’X: %10.4 f \n\n ’ ,X)
end
79
f u n c t i o n ODE
clc , close a l l
t0 = i n p u t ( ’ Tiempo f i n a l= ’ ) ;
t f = i n p u t ( ’ Tiempo i n i c i a l = ’ ) ;
p e r i o d o = [ t0 t f ] ;
X0 = 0 ;
x0 = X0 ;
[ t , x ] = ode45 (@( t , x ) modelo ( t , x ) , p e r i o d o , x0 ) ;
figure (1)
p l o t ( t , x ( : , 1 ) , ’m’ , ’ LineWidth ’ , 1 )
s e t ( gca , ’ f o n t s i z e ’ , 1 2 )
$ $
x l a b e l ( ’ \ theta ’ , ’ i n t e r p r e t e r ’ , ’ l a t e x ’ , . . .
’ fontsize ’ ,16)
$$
ylabel ( ’ X ’ , ’ interpreter ’ , ’ latex ’ , . . .
’ fontsize ’ ,16)
g r i d on
g r i d minor
hold on
end
f u n c t i o n dx = modelo ( t , x )
% V a r i a b l e s de e s t a d o
X = x(1);
% Parametros
N = 5 % Numero de Tanque
D = 10 % Numero de c o n v e c c i o n
B = f a c t o r i a l (N−1)
*
l = ( ( t ˆ(N−1)) (NˆN) ) /B
i f N == 1
sm = 1
e l s e i f N˜=1
sumy = 1
80
f o r p = 1 : 1 : N−1
b = f a c t o r i a l (p)
*
o = ( ( t ˆp . Nˆp ) . / b )
sumy = sumy + o
end
sm = sumy
end
% Ecuaciones d i f e r e n c i a l e s
* *
dX =(( l . / sm ) . X)−(D. (1 −X) ˆ 2 )
% Vector de r e s u l t a d o s
dx = dX ;
end
81