% Programmet kelvinKohler kan skrives om til å plotte opp Kelvins formel,
% og videre til Kohlerkurver.

r=linspace(0, 0, 0);

%kelvins formel:
sigma = 0.0; %J/m�
n     = 0.0;  %molec/m�
k     = 0.0; %J/K molec
T     = 0.0; %K

a=0.0;
Kelvin=0.0;


%Tar med losningseffekten:
b1=0.0;
b2=0.0;
b3=0.0;
b4=0.0;
b5=0.0;
b6=0.0;


%Kohler
Kohler1=0.0;
Kohler2=0.0;
Kohler3=0.0;
Kohler4=0.0;
Kohler5=0.0;
Kohler6=0.0;


%Plott
%kan om ønskelig brukes til aksene:
%k_max=max([Kohler1, Kohler2, Kohler3, Kohler4, Kohler5, Kohler6]);


