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

其他行业

开发平台:

Matlab

  1. fprintf('n Wait simulation is in process. n')
  2. VF = 400; rF = 0.4; iF0 = VF/rF;
  3. f = 60;  w=2.*pi*f;
  4. d = 0;   d=d*pi/180;
  5. t0 = 0 ; tfinal = 0.80;
  6. i0 = [0; iF0; 0; 0; 0 ];        % Initial currents
  7. %[t,i] = ode45('symshort',t0,tfinal,i0);          % use for MATLAB 4
  8. tspan = [t0, tfinal];                             % use for MATLAB 5
  9. [t, i] = ode45('symshort', tspan, i0);            % use for MATLAB 5
  10. theta = w*t+d +pi/2;
  11. ia = sqrt(2/3)*(cos(theta).*i(:,1)+sin(theta).*i(:,4));
  12. ib = sqrt(2/3)*(cos(theta-2*pi/3).*i(:,1)+sin(theta-2*pi/3).*i(:,4));
  13. ic = sqrt(2/3)*(cos(theta+2*pi/3).*i(:,1)+sin(theta+2*pi/3).*i(:,4));
  14. iF = i(:,2);    % ia = Armature current  iF=Field current
  15. figure(1), plot(t,ia), xlabel('t, sec'), ylabel('ia, A'), grid
  16. title(['Three-phase short circuit  ia,  ','delta = ', num2str(d)])
  17. figure(2), plot(t,ib), xlabel('t, sec'), ylabel('ib, A'), grid
  18. title(['Three-phase short circuit  ib,  ','delta = ', num2str(d)])
  19. figure(3), plot(t,ic), xlabel('t, sec'), ylabel('i c, A'), grid
  20. title(['Three-phase short circuit  ic,  ','delta = ', num2str(d)])
  21. figure(4), plot(t,iF), xlabel('t, sec'), ylabel('iF, A'), grid
  22. title(['Three-phase short circuit iF, ','delta = ',num2str(d)])