File: g_size.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 (37 lines) | stat: -rw-r--r-- 772 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
 
function [m,n,nx]=g_size(x,flag)
// only to be called by size function for dynamical systems 
//!
// Copyright INRIA
[lhs,rhs]=argn(0)
x1=x(1);
if x1(1)=='r' then
  if lhs==1 then 
    if rhs==1 then
      m=size(x(2));
    else
      m=size(x(2),flag);
    end
  elseif lhs==2 then 
    if rhs<>1 then error(41),end
    [m,n]=size(x(2));
  elseif lhs>2 then 
    error('bad call to size function (not state-space!)');
  end
else
  [a,b,c,d]=x(2:5);[m,w]=size([c,d]),[w,n]=size([b;d]);
  if lhs==1 then 
    if rhs==1 then
      m=[m,n]
    elseif flag==1|part(flag,1)=='r' then
      m=m
    elseif flag==2|part(flag,1)=='2' then 
      m=n
    elseif flag=='*' then   
      m=m*n
    end
  elseif lhs==2 then 
    
  elseif lhs==3 then 
    [nx,nx]=size(a);
  end;
end