# -*-octave-*- Put Emacs into octave-mode
# State specification (ReactorTF_state.txt)
# Generated by MTT at Fri Mar 3 11:52:23 GMT 2000
###############################################################
## Version control history
###############################################################
## $Id$
## $Log$
## Revision 1.2 2003/06/06 06:39:05 gawthrop
## Made compatible with current MTT.
##
## Revision 1.1 2000/12/28 17:12:57 peterg
## To RCS
##
###############################################################
## Reduce steady-state parameter file (ReactorTF_sspar.r)
## as siso_sspar ecxept that states/states have different meaning
## Steady state for constant c_a, c_b and t=t_s and f=f_s
## Unit volume ReactorTF:
v_r = 1;
## The exponentials.
e_1 = exp(-q_1/t_s);
e_2 = exp(-q_2/t_s);
e_3 = exp(-q_3/t_s);
## Solve for the steady-state concentrations
## Solve for ca - a quadratic.
a = k_3*e_3; #ca^2
b = k_1*e_1 + f_s; #ca^1
c = -c_0*f_s;
c_a = (-b + sqrt(pow(b,2) - 4*a*c))/(2*a);
## solve for c_b
c_b = c_a*k_1*e_1/(f_s+k_2*e_2);
#States (masses)
x1 = c_a*v_r;
x2 = c_b*v_r;
#Thermal state
#x3 = c_p*t_s*v_r;
## Load up the states
## Removed by MTT on Thu Jun 5 14:14:18 BST 2003: mttx(1) = x1;
## Removed by MTT on Thu Jun 5 14:14:18 BST 2003: mttx(2) = x2;
## Removed by MTT on Thu Jun 5 14:14:18 BST 2003: mttx(3) = x3;
reactortf__m_a = x1;
reactortf__m_b = x2;