f =     [0.5  1    2.5  4    5].*1000;
T=1./f

%Max ström går att bestämma från max spänning över en känd resistor.
URtop = [2.56 2.56 2.44 2.36 2.32];
IRtop=URtop./1000

%Due to the ramp-like nature of the timevariant voltage over the coil
%(due to internal resistance) the signal has both a min and max in both
%polarities. It is in the middle of this range that the inductance is alone
%causing the voltage (but due to the linear variance in current throught
%the coil)
ULtop=[51 88 192 304 384]./1000;
ULbot=[27 60 160 260 344]./1000;
ULmid = ULbot + ((ULtop - ULbot)./ 2)

%Derivatan är (IRtop./(T./4) eftersom det är under just 1/4 period som triangelvågen går från 0 till max.
%Den uppmätta derivatan går att använda i alla beräkningar eftersom den är
%konstant över hela triangelvågen, bortsett från ombytt tecken.
L = ULmid./(IRtop./(T./4))

%ULmid är där i=0 och den uppmäta spänningen orsakas därmed enbart av
%spolens induktans.

%Resistansen i spolen kan beräknas genom att ta den maximala spänningen den
%orsakar (ULtop - ULmid, största spänning minus spänning orsakad av enbart
%induktans) och sedan dela med den maximala strömmen genom spolen (vilket
%sker vid samma tidpunkt som max spänning).
Rinre = (ULtop - ULmid)./IRtop
