File: toeplitz.sci

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 (17 lines) | stat: -rw-r--r-- 531 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
function a=toeplitz(c,r)
//a=toeplitz(c,r)  returns the Toepliz matrix whose first row
//is r and first column is c .( r(1) = c(1) is assumed).
//
//r and  c can be constant, polynomial or character string matrices.
//!
// Copyright INRIA
[lhs,rhs]=argn(0),
if rhs==1 then r=c(:);end
nr=size(r,'*');r=matrix(r,1,nr)
nc=size(c,'*');c=matrix(c,nc,1)
if nr*nc==0 then a=[],return,end
if r(1)<>c(1) then error('conflicting  r(1) and c(1)'),end
a(nc,nr)=r(1);k=mini([nr,nc]);
for l=1:k,a(l,l:nr)=r(1:nr-l+1),a(l:nc,l)=c(1:nc-l+1),end