File: glever.cat

package info (click to toggle)
scilab 2.4-1
  • links: PTS
  • area: non-free
  • in suites: potato, slink
  • size: 55,196 kB
  • ctags: 38,019
  • sloc: ansic: 231,970; fortran: 148,976; tcl: 7,099; makefile: 4,585; sh: 2,978; csh: 154; cpp: 101; asm: 39; sed: 5
file content (44 lines) | stat: -rw-r--r-- 974 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44

glever(1)                      Scilab Function                      glever(1)
NAME
  glever - inverse of matrix pencil

CALLING SEQUENCE
  [Bfs,Bis,chis]=glever(E,A [,s])

PARAMETERS

  E, A        : two real square matrices of same dimensions

  s           : character string (default value 's')

  Bfs,Bis     : two polynomial matrices

  chis        : polynomial

DESCRIPTION
  Computation of

  (s*E-A)^-1
   by generalized Leverrier's algorithm for a matrix pencil.
  (s*E-A)^-1 = (Bfs/chis) - Bis.
  chis = characteristic polynomial (up to a multiplicative constant).

  Bfs  = numerator polynomial matrix.

  Bis = polynomial matrix ( - expansion of (s*E-A)^-1 at infinity).

  Note the - sign before Bis.
Caution
  This function uses cleanp to simplify Bfs,Bis and chis.

EXAMPLE
  s=%s;F=[-1,s,0,0;0,-1,0,0;0,0,s-2,0;0,0,0,s-1];
  [Bfs,Bis,chis]=glever(F)
  inv(F)-((Bfs/chis) - Bis)

AUTHOR
  F. D. (1988)

SEE ALSO
  rowshuff, det, invr, coffg, pencan, penlaur