trifasico

INICIO

close all;

clear all;

t=0:0.0001:0.2;

figure (1) Circulo=150*[sin(0:2*pi/100:2*pi); cos(0:2*pi/100:2*pi)]; plot(Circulo(1,:),Circulo(2,:),'linewidth',6); hold on;

axis square;

axis([-160 160 -160 160]);

Ta=line('XData',[0 100], 'YData',[0 0], 'Color','c','LineStyle','-','EraseMode','xor', 'linewidth',2);

Tb=line('XData',[0 50*cos(-pi/3)], 'YData',[0 50*sin(-pi/3)], 'Color','m','LineStyle','-','EraseMode','xor', 'linewidth',2);

Tc=line('XData',[0 50*cos(pi/3)], 'YData',[0 50*sin(pi/3)], 'Color','b','LineStyle','-','EraseMode','xor', 'linewidth',2);

T=line('XData',[0 150], 'YData',[0 0], 'Color','g','LineStyle','-','EraseMode','xor', 'linewidth',2

Tav=zeros(length(t),1); Tbv=zeros(length(t),1); Tcv=zeros(length(t),1);

i=1:1:length(t)

auxa=100*cos(2*pi*50*(i/10000)); auxb=100*cos(2*pi*50*(i/10000)+2*pi/3); auxc=100*cos(2*pi*50*(i/10000)+4*pi/3);

set(Ta,'XData',[0 auxa]); set(Tb,'XData',[0 auxb*cos((2*pi)/3)]); set(Tb,'YData',[0 auxb*sin(2*pi/3)]); set(Tc,'XData',[0 auxc*cos(4*pi/3)]); set(Tc,'YData',[0 auxc*sin(4*pi/3)]);

T_x=auxa+auxb*cos(2*pi/3)+auxc*cos(4*pi/3); T_y=auxb*sin(2*pi/3)+auxc*sin(4*pi/3);

set(T,'XData',[0 T_x]); set(T,'YData',[0 T_y]);

Tav(i)=auxa;

Tbv(i)=auxb;

Tcv(i)=auxc;

drawnow; pause(0.001)

figure(2) plot(t,Tav,'c',t,Tbv,'m',t,Tcv,'b');

FIN