N = 5; % Anzahl der Windungen
L = 0.01; % Länge des magnetischen leiters [m]
A = .00005; % Durchmesser des Jochs [m^2]


data=dlmread('7.1.csv'); %Messwertdatei
start = 3; %Überschrift der CSV wird übersprungen
ende = 1999990; %Letzter Messwert der CSV wird übersprungen
t = data(start:ende, 1); %Array mit den Zetstempeln
I = data(start:ende, 2); %Array mit Messwerten (Strom)
U = data(start:ende, 3); %Array mit Messwerten (Spannung)

% Berechnung der mag. Flussdichte über die Spannung der sek. Spule 
flux = cumtrapz(t,U)/N
B = flux/A

% Berechnung der mag. Feldstärke
H = I*N/L;

%Plotten
plot(H,B);
