function Langner_Ue1
%1a
Vmax = 11 
Km = 2
S = [0:1:35]
v = MichaelisMenten(Vmax, S, Km)

xlabel('Zeit')
hold on;
ylabel('Konzentration')
hold on;
h1 = plot(S,v)
hold on;

%1b
Vmax2 = 11
Km2 = 2
k1 = 24
v2 = Michaelis_Menten_Substratinhibierung(Vmax2, S, Km2, k1)
h2 = plot(S, v2)
legend ([h1, h2], 'Michaelis-Menten', 'Michaelis-Menten-Substratinhibierung')

%2a
load data1
Vmax3 = 4
Km3 = 3
K1 = 30
P0 = [Vmax3, Km3, K1]
S2 = 40 - P
v2 = Michaelis_Menten_Substratinhibierung_2(Vmax3, S2, Km3, K1)
lsqcurvefit(Michaelis_Menten_Substratinhibierung_2,P0, S2, v2)

end