close all
Ex0=1;
Ey0=input('Ey/Ex? ');
fasskillnad =input('Phasedifference? ');
plotgr=max(abs([Ex0 Ey0]));
figure(1)
set(1,'position',[200 200 300 300])
for t=0:0.05:10;
Ex=Ex0*sin(t);
Ey=Ey0*sin(t+fasskillnad);
plot(plotgr,plotgr,'w.',-plotgr,-plotgr,'w.')
hold on
plot([0 Ex],[0,Ey],'b')
hold off
pause(0.4)
end