% function [] = blatt2_F(F,G,mu)

% F  = 720.0; % Gewichtskraft Student = 72kg * 10N/kg
% G  =  80.0; % Gewichtskraft Leiter  =  8kg * 10N/kg
% mu =   1.0; % Reibkoeffizient

L = 1.0;          % Länge der Leiter
S = (0:L/100:L)'; % Höhe des Student auf der Leiter


% Grenzwinkel ohne Student
alpha_ohne = (360/(2*pi))*atan(mu*2);

% Grenzwinkel mit Student
N = G+F;
tmp = (1/2)*G + (S/L)*F;
alpha_mit = (360/(2*pi))*atan(mu*N./tmp);


% Plot erzeugen
s=plot(S, [alpha_mit ones(size(S))*alpha_ohne]);
set(s(1),'LineStyle','-', 'Color',[0 0 1],'LineWidth',1);
set(s(2),'LineStyle','--','Color',[0 0 0],'LineWidth',1);

ylim([45 90]);

h=legend('$\alpha_H(S)$ mit Student', '$\alpha_H$ ohne Student');
set(h,'Interpreter','latex','box','off');

h = xlabel('Hoehe $S$');
set(h,'Interpreter','latex');

h = ylabel('Winkel $\alpha$');
set(h,'Interpreter','latex');