30 f = par[1]*pow(sqrt(x[0]*x[0]+1),par[3])/pow(x[0],par[3]) *
31 (par[2]-par[6]*log(pow(1/x[0],par[4])) ) - par[5]+
exp(par[7]+par[8]*x[0]);
32 else if( par[0] == 2 )
33 f = par[1]*pow(x[0],3)+par[2]*x[0]*x[0]+par[3]*x[0]+par[4];
34 else if( par[0] == 3 )
35 f = -1.0*par[1]*log(par[4]+pow(1/x[0],par[2]))+par[3];