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

其他行业

开发平台:

Matlab

  1. % This function computes the current at both ends of a transmission
  2. % line for a solid short-circuit at the receiving-end.
  3. % Copyright (C) 1998 by H. Saadat.
  4. function shcktlin(ABCD)
  5. global resp model par1 par2 linelngt freq
  6. if exist('ABCD')~=1
  7. A = input('Enter the complex line constant A = ');
  8. B = input('Enter the complex line constant B = ');
  9. C = input('Enter the complex line constant C = ');
  10. D = A; ABCD=[A B; C D]; end
  11. Vsm = input('Enter sending end line-line voltage kV = ');
  12. ds = input('Enter sending end voltage phase angle