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

其他行业

开发平台:

Matlab

  1. % This function finds the equivalent impedance of a transformer
  2. % referred to primary and secondary form individual winding impedances.
  3. % Copyright (C) 1998 by H. Saadat.
  4. function [Ze1, Ze2] = trsct(E1, E2, Z1, Z2)
  5. if exist('E1') ~= 1
  6. E1 = input(' Enter rated voltage in volt, LV side = '); else, end
  7. if exist('E2') ~= 1
  8. E2 = input(' Enter rated voltage in volt, LV side = '); else, end
  9. if exist('Z1') ~= 1
  10. Z1 = input(' Enter the LV series impedance R1 + j*X1 in ohms = '); else, end
  11. if exist('Z2') ~= 1
  12. Z2 = input(' Enter the HV series impedance R2 + j*X2 in ohms = '); else, end
  13. Ze1 = Z1 + (E1/E2)^2*Z2;
  14. Ze2 = Z2 + (E2/E1)^2*Z1;