fit1tsmodel_ucminf function

Numerical optimization of the 1ts model