其他行业

开发平台：

Matlab

Givenzl.m：源码内容

							% This program obtains the line performance for a given load impedance.
% Copyright (C) 1998 by H. Saadat
function givenzl(ABCD)
global resp model par1 par2 linelngt freq
if exist('ABCD')~=1
A = input('Enter the complex line constant A = ');
B = input('Enter the complex line constant B = ');
C = input('Enter the complex line constant C = ');
D = A; ABCD=[A B; C D]; end
Vrm = input('Enter receiving end line-line voltage kV = ');
dr = input('Enter receiving end voltage phase angle

						