blob: efc096e5f4fcd4405c685142e09a0435b819da27 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
|
// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
// Copyright (C) INRIA -
//
// This file must be used under the terms of the CeCILL.
// This source file is licensed as described in the file COPYING, which
// you should have received as part of this distribution. The terms
// are also available at
// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
function [Stmp,Ws]=rowregul(Sl,Alfa,Beta);
//[Stmp,Ws]=regul(Sl) computes a polynomial-state-space postfilter
//Ws such that Stmp=Ws*Sl is proper and has D full rank
//Poles at infinity of Sl are moved to -Alfa;
//Zeros at infinity of Sl are moved to -Beta;
//Sl is asummed right invertible i.e. ss2tf(Sl) full row rank
//!
[Stmp,Ws]=colregul(Sl',Alfa,Beta);
Stmp=Stmp';Ws=Ws';
endfunction
|
