Facebook
From Scanty Guinea Pig, 6 Years ago, written in Plain Text.
Embed
Download Paste or View Raw
Hits: 272
  1. echo on, clc, clear, close all
  2. n=[2.5 0 1];
  3. m=[3 4.2 2];
  4. sys = tf(n,m)
  5. pause
  6.  
  7. %transmitancja
  8. disp('G(s)')
  9. printsys(n,m), sys
  10. pause
  11.  
  12. %funkcja tf2zip
  13. [z,b,w] = tf2zp(n,m)
  14. [nzp,mzp]=zp2tf(z,b,w)
  15. printsys(nzp,mzp)
  16. pause
  17.  
  18. %residue
  19. [r,p,k]=residue(n,m)
  20. [nres,mres]=residue(r,p,k)
  21. printsys(nres,mres)
  22. pause
  23.  
  24. %zestawienie
  25. [z,b];
  26. [r,p];
  27. [w,k];
  28. pause
  29.  
  30. %odp na step i impulse
  31. t=[0:0.01:10];
  32. yi = impulse(n,m,t);
  33. ys = step(n,m,t);
  34. ysres = step(nres,mres,t);
  35. figure(1), plot(t,yi,t,ys), hold on,
  36. grid, axis([0 10 -1.5 1.5])
  37. legend('impulse()','step()')
  38.  
  39. echo off