Testat2_Modellnummer4_VarianteII

clear;clc;

kraft = input('Kraft in kN: ');
winkel = input('Winkel in Gradmaß: ');
balkenlaenge = input('Länge des Balkens in Meter: ');

if (balkenlaenge < 5)
    gerundet = balkenlaenge;
else
    gerundet = round(balkenlaenge/10)*10;
end

gridabstand = gerundet/5;

N_a = kraft*sind(winkel);
N_b = kraft*cosd(winkel);

signum = sign(N_a)*sign(N_b);
if(signum == 0)
    signum = 1;
end

clf;
hold on;
grid on;

axis([0-2*gridabstand balkenlaenge+2*gridabstand 0-2*gridabstand balkenlaenge+gridabstand]);

xticks(0-gridabstand:gridabstand:gerundet+gridabstand)
yticks(0-gridabstand:gridabstand:gerundet+gridabstand)

plot([0;0;balkenlaenge],[balkenlaenge;0;0], 'k','linewidth', 3);

plot([signum*gridabstand*sind(winkel); signum*gridabstand*sind(winkel)],[balkenlaenge;0],'r','linewidth',2);
plot([balkenlaenge;0], [signum*gridabstand*cosd(winkel); signum*gridabstand*cosd(winkel)],'b','linewidth',2);

for ii=0:balkenlaenge/20:balkenlaenge
    plot([0;signum*gridabstand*sind(winkel)],[ii;ii],'r');
end

for ii=0:balkenlaenge/20:balkenlaenge
    plot([ii;ii],[0;signum*gridabstand*cosd(winkel)],'b');
end

txt1 = {sprintf(' L [m]')};
txt2 = ' N_a [kN]';
txt3 = ' N_b [kN]';

% txt2 = 'N_a = F\cdot sin(x)';
% txt3 = 'N_b = F\cdot cos(x)';

txt_N_a = {sprintf('%4.1f',abs(N_a))};
txt_N_b = {sprintf('%4.1f',abs(N_b))};
text(signum*gridabstand*sind(winkel), balkenlaenge+gridabstand/4, txt_N_a,'Color', 'r');
text(balkenlaenge+gridabstand/10,signum*1/2*gridabstand*cosd(winkel), txt_N_b,'Color', 'b');
legend([txt1;txt2;txt3]);
title('Modellnummer 4, Variante II ');

hold off;