%% f?rst bare 4 tall for ? forklare
global n;
n=4; % kan varieres 30 under
global x;

x=[176,178,182,183];
global sigma;
sigma=6;
global lnlgrense;
lnlgrense=-100;
clf;

slider=uicontrol('Style','slider','Min',160,'Max',200,'Units','normalized',...
 'Position',[.04 .00 .82 .05],'Callback',@mleOB);
% For ? f? passende skala for lnL:
set(slider,'Value',200);
ekstrem2=mle(slider);
set(slider,'Value',160);
ekstrem1=mle(slider);
ekstrem=-min(ekstrem1,ekstrem2);
k=floor(log10(ekstrem));
if floor(ekstrem*10^(-k)+1)==1
  k=k-1;
end
lnlgrense=-10^k*floor(ekstrem*10^(-k)+1);
% S? startbildet:
mleOB(slider);
mean(x)
%%
% n? random n=30
n=30
x=normrnd(180,6,1,n);
clf;

slider=uicontrol('Style','slider','Min',160,'Max',200,'Units','normalized',...
 'Position',[.04 .00 .82 .05],'Callback',@mleOB);
% For ? f? passende skala for lnL:
set(slider,'Value',200);
ekstrem2=mle(slider);
set(slider,'Value',160);
ekstrem1=mle(slider);
ekstrem=-min(ekstrem1,ekstrem2);
k=floor(log10(ekstrem));
if floor(ekstrem*10^(-k)+1)==1
  k=k-1;
end
lnlgrense=-10^k*floor(ekstrem*10^(-k)+1);
% S? startbildet:
mleOB(slider);

mean(x)