Mercurial > hg > octave-nkf

comparison scripts/control/system/sysdisc.m @ 3438:2e06c3941943

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2000-01-14 06:33:18 by jwe]
author jwe
date Fri, 14 Jan 2000 06:34:24 +0000
parents 65b3519ac3a1
children b5238ac1dca9
comparison
equal deleted inserted replaced
3437:3c609681b2bf 3438:2e06c3941943
43 usage("[dsys,Adc,Cdc] = sysdisc(sys)"); 43 usage("[dsys,Adc,Cdc] = sysdisc(sys)");
44 elseif (!is_struct(sys)) 44 elseif (!is_struct(sys))
45 error("sys must be in system data structure form"); 45 error("sys must be in system data structure form");
46 endif 46 endif
47 47
48 sys = sysupdate(sys,"ss"); 48 sys = sysupdate (sys, "ss");
49 [n_tot,st_c,st_d,y_c,y_d] = syscont_disc(sys); # get ranges 49 [n_tot, st_c, st_d, y_c, y_d] = __syscont_disc__ (sys); # get ranges
50 50
51 ## assume there's nothing there; build partitions as appropriate 51 ## assume there's nothing there; build partitions as appropriate
52 Add = Adc = Bdd = Cdd = Cdc = Ddd = []; 52 Add = Adc = Bdd = Cdd = Cdc = Ddd = [];
53 53
54 if(isempty(st_d) & isempty(y_d)) 54 if(isempty(st_d) & isempty(y_d))