Mercurial > hg > octave-nkf

comparison scripts/control/system/sysrepdemo.m @ 6522:475c83367a0e

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-04-12 15:41:58 by jwe]
author jwe
date Thu, 12 Apr 2007 15:42:02 +0000
parents 4c8a2e4e0717
children 8b0cfeb06365
comparison
equal deleted inserted replaced
6521:a07846d734db 6522:475c83367a0e
26 ## Created: June 1995 26 ## Created: June 1995
27 ## Revised Aug 1995 for system data structure format 27 ## Revised Aug 1995 for system data structure format
28 28
29 function sysrepdemo () 29 function sysrepdemo ()
30 30
31 save_val = page_screen_output; 31 save_val = page_screen_output ();
32 page_screen_output = 1; 32 page_screen_output (1);
33 33
34 disp("System representation demo:") 34 disp("System representation demo:")
35 num = [5, -1]; 35 num = [5, -1];
36 denom = [1, -2, 6]; 36 denom = [1, -2, 6];
37 a = b = c = []; 37 a = b = c = [];
489 elseif(syschoice == ch_details) 489 elseif(syschoice == ch_details)
490 packedform 490 packedform
491 endif 491 endif
492 492
493 endwhile 493 endwhile
494 page_screen_output = save_val; 494 page_screen_output (save_val);
495 endfunction 495 endfunction
496 496