File: %25lss_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 (22 lines) | stat: -rw-r--r-- 439 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
 
function [m,n,nx]=%lss_size(x,flag)
// only to be called by size function for dynamical systems 
//!
// Copyright INRIA
[lhs,rhs]=argn(0)

[a,b,c,d]=x(2:5);[m,w]=size([c,d]),[w,n]=size([b;d]);
if lhs==1
  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;