function [L,t] = Minimum(t)
%setappdata(0,'t',t);
assignin('base','t',t);
b0 = 0.5;           
options=optimset('Display','iter');
[b,fval] = fsolve(@Nullstelle5,b0,options)


u = 0;
T = [3;4;5;6;7;8;10;12;14;19];
b = 1;
for i = 1:10
    u = u + (T(i,1)-t)^b;
end;
n = (1/10 *u)^(1/b);


w = 0;
for i = 1:10
    w = w + ((b-1)*log(T(i,1)-t) - ((T(1,1)-t)/n)^b);
end;
L = (10 * log(b/(n^b))+ w)*(-1);
assignin('base','L',L);