home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 10 / 10.iso / l / l455 / 2.ddi / MUTOOLS2.DI$ / JJSW.M < prev    next >
Encoding:
Text File  |  1993-03-11  |  345 b   |  12 lines
  1. w = logspace(-1,3,50); wsel = logspace(-1,3,10);
  2. pa = nd2sys(1,[1 1]);
  3. pb = nd2sys(1,[.1 1]);
  4. pstack = vpck([pa;scale(pa,10);scale(pb,10);pb;pa],[1;2;3;4;5]);
  5. gvar= veval('frsp',pstack,wsel);
  6. gnic= veval('vunpck',gvar);
  7. gbode = veval('vunpck',swapiv(gvar,[2 1]));
  8. vplot('nyq',gnic);pause
  9. vplot('nic',gnic);pause
  10. vplot('bode',gbode);
  11.  
  12.