Abcd2rlc.m
上传用户:eighthdate
上传日期:2014-05-24
资源大小:270k
文件大小:1k
源码类别:

其他行业

开发平台:

Matlab

  1. % This function computes the r, L, and C in per unit length from the ABCD
  2. % constants of a transmission line.
  3. %
  4. % Copyright (C) 1998 by H. Saadat
  5. function [r, L, C, f] = abcd2rlc(ABCD)
  6. global resp model par1 par2 linelngt freq
  7. if exist('ABCD')~=1
  8. A = input('Enter the complex line constant A = ');
  9. B = input('Enter the complex line constant B = ');
  10. C = input('Enter the complex line constant C = ');
  11. D = A;
  12. ABCD = [A  B; C  D];else, end
  13. Length = input('Enter line length = '); linelngt= Length;
  14. f = input('Enter line frequency = ');
  15. freq=f;
  16. w= 2*pi*f;
  17. Zc = sqrt(ABCD(1,2)/ABCD(2,1));
  18. Gama = asinh(ABCD(1,2)/Zc)/Length;
  19. z = Zc*Gama;
  20. y = z/Zc^2;
  21. r = real(z);
  22. L = imag(z)/w*1000;
  23. C = imag(y)/w*1000000;