DefaultModel.m

classdef DefaultModel < ARE.Model
% DEFAULTMODEL
%
%   This class represents a simple model which can be used for prototyping
%   ARE equations. 
%   You can set up a new model by passing a descr structure, which should
%   contain information about all the data matrices.
% 
%   Note that the data matrices for Q,R and E have default values and are
%   set to identity matrices with the correct dimensions by default.
% 
% Andreas Schmidt, 2016

    properties
        descr;

        mu = [];
        mu_names = {};
        mu_ranges = {};
    end
    
    methods
        function this = DefaultModel(descr)
            this.descr = descr;0
                       
            if ~isfield(descr, 'p'), descr.p = size(descr.C_comp{1},1); end
            if ~isfield(descr, 'm'), descr.m = size(descr.B_comp{1},2); end
            
            this.p = descr.p;
            this.m = descr.m;
            this.n = descr.n;
            this.mu = descr.mu;
            
            if ~isfield(descr,'mu_ranges') || ~isfield(descr,'mu_names')
                error('Please provide valid values for mu_ranges and mu_names');
            end
            
            this.mu_names = descr.mu_names;
            this.mu_ranges = descr.mu_ranges;
        end

        function A = A_coeff(this)
            A = this.descr.A_coeff(this);
        end
        function A = A_comp(this, md)
            A = this.descr.A_comp;
        end
        function B = B_coeff(this)
            B = this.descr.B_coeff(this);
        end
        function B = B_comp(this, md)
            B = this.descr.B_comp;
        end
        function C = C_coeff(this)
            C = this.descr.C_coeff(this);
        end
        function C = C_comp(this, md)
            C = this.descr.C_comp;
        end
        
        function E = E_coeff(this)
            if isfield(this.descr, 'E_coeff')
                E = this.descr.E_coeff(this);
            else
                E = E_coeff@ARE.Model(this);
            end
        end
        function E = E_comp(this,md)
            if isfield(this.descr, 'E_comp')
                E = this.descr.E_comp;
            else
                E = E_comp@ARE.Model(this);
            end
        end
        
        function Q = Q_coeff(this)
            if isfield(this.descr, 'Q_coeff')
                Q = this.descr.Q_coeff(this);
            else
                Q = Q_coeff@ARE.Model(this);
            end
        end
        function Q = Q_comp(this,md)
            if isfield(this.descr, 'Q_comp')
                Q = this.descr.Q_comp;
            else
                Q = Q_comp@ARE.Model(this);
            end
        end
        
        function R = R_coeff(this)
            if isfield(this.descr, 'R_coeff')
                R = this.descr.R_coeff(this);
            else
                R = R_coeff@ARE.Model(this);
            end
        end
        function R = R_comp(this,md)
            if isfield(this.descr, 'R_comp')
                R = this.descr.R_comp;
            else
                R = R_comp@ARE.Model(this);
            end
        end
        
        
    end
end