Im=1; Um=0.8;

x=0:0.01:2*pi;
axis auto
i=Im*sin(x);
u=Um.*sin(x);
P=Um*Im/2;
p=u.*i;


%izris
plot(x,i,':',x,u,'--','LineWidth',2);
%plot(x,i,':','LineWidth',2);
hold on
xlabel('Cas ')
ylabel('Tok,  Napetost, Moc, Energija')
axis tight
plot(x,u.*i,'k','LineWidth',3) % dodam izris moči

% plot(x,P*(1-cos(2*x)),'r','LineWidth',2) 

plot([0 2*pi], [P P],'Color','k','LineStyle','-')% povprečna moč
%axis off

text(6.5,P,'P'); % Dodam črko P na desno ob liniji povprečne moči

% Izračun energije
W=cumsum(p)
plot(x,W/max(W),'LineWidth',2)
legend('Tok','Napetost','Moc', 'Povprečna moč', 'Energija')
plot([0 2*pi], [0 0],'Color','b','LineStyle','--')