clear all
clc

%% Zadání soustavy sil a momentů:
F=[230 150 420]; %Síly (N)
a=[270 45 150]; %Úhly alfa (°)
x=[0.4 -0.3 0]; %x-souřadnice (m)
y=[0.2 0.4 -0.2]; %y-souřadnice (m)

M1=150; % Moment(Nm)

%% Řešení:
for i=1:length(F)
    Fx(i)=F(i)*cosd(a(i));
    Fy(i)=F(i)*sind(a(i));
end

Fvx=sum(Fx)
Fvy=sum(Fy)

for i=1:length(F)
    M(i)=Fy(i)*x(i)-Fx(i)*y(i);
end

Mv=sum(M)+M1


%% Vykreslení sil - ! POZOR, graf nezobrazuje momenty !
figure
ax=axes;
ax.FontSize=12;
hold(ax,'on');
grid(ax,'on');
axis(ax,'equal');
xlabel('x (m)')
ylabel('y (m)')

%soustava sil:
for i=1:length(F)
    quiver(x(i),y(i),Fx(i),Fy(i),0.01,'Color','b')
    str=['F',num2str(i)];
    text(x(i)+0.01*Fx(i),y(i)+0.01*Fy(i),str,'Color','b')
end

quiver(0,0,Fvx,Fvy,0.01,'Color','r') %vysledna sila umistena do pocatku souradnicoveho systemu
text(0.01*Fvx,0.01*Fvy,'Fv','Color','r')
xline(0) %osa x
yline(0) %osa y