00001 /* 00002 * This file is part of ACADO Toolkit. 00003 * 00004 * ACADO Toolkit -- A Toolkit for Automatic Control and Dynamic Optimization. 00005 * Copyright (C) 2008-2009 by Boris Houska and Hans Joachim Ferreau, K.U.Leuven. 00006 * Developed within the Optimization in Engineering Center (OPTEC) under 00007 * supervision of Moritz Diehl. All rights reserved. 00008 * 00009 * ACADO Toolkit is free software; you can redistribute it and/or 00010 * modify it under the terms of the GNU Lesser General Public 00011 * License as published by the Free Software Foundation; either 00012 * version 3 of the License, or (at your option) any later version. 00013 * 00014 * ACADO Toolkit is distributed in the hope that it will be useful, 00015 * but WITHOUT ANY WARRANTY; without even the implied warranty of 00016 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00017 * Lesser General Public License for more details. 00018 * 00019 * You should have received a copy of the GNU Lesser General Public 00020 * License along with ACADO Toolkit; if not, write to the Free Software 00021 * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA 00022 * 00023 */ 00024 00025 00033 void cstr( DifferentialEquation *f ){ 00034 00035 // Define a Right-Hand-Side: 00036 // ------------------------- 00037 00038 const double Ca0 = 10 ; 00039 00040 DifferentialState Ca; // partial pressure of A 00041 DifferentialState Cb; // partial pressure of B 00042 00043 Disturbance w0; 00044 Disturbance w1; 00045 00046 Control u; 00047 00048 Parameter k1; // reaction rate constant for reaction 1 00049 Parameter k2; // reaction rate constant for reaction 2 00050 Parameter k3; // reaction rate constant for reaction 3 00051 00052 *f << dot(Ca) == u*(Ca0 - Ca) - k1 * Ca - k3 * Ca * Ca + w0; 00053 *f << dot(Cb) == k1 * Ca - k2*Cb - u * Cb + w1; 00054 00055 } 00056 00057