function lipo = lipomodel(X,par)
if length(par)==1
    par=[100,par];
end
    lipo = par(1)*exp(-par(2)*X);
end