weibull fitting code