function fehler=standardfehler(stichprobengroesse,stichprobenanzahl)

for i=1:stichprobenanzahl
    
    [mittelwert standardabweichung]=stichprobe(stichprobengroesse);
    vektor_mittelwerte(i)=mittelwert;
    
end

fehler=std(vektor_mittelwerte)/sqrt(stichprobengroesse);
hist(vektor_mittelwerte)