function A13_0

%Anzahl Intervalle
n=8;
%Daten einlesen
load g36.dat;
%Datenbereich in n Intervalle aufspalten
[N,X]=hist(g36,n);
% N enthält die absoluten Häufigkeiten
% X den Mittelpunkt des Intervalls mit der Breite delta
delta=X(2)-X(1);
%relative Häufigkeit pro Intervallbreite
Y=N/sum(N)/delta;
%als Histogramm plotten
figure;
hold on;
bar(X,Y,1,'y');
% so, jetzt geht's weiter mit der Splineberechnung ...

