|
|
|
|
|
by BrandonS113
1244 days ago
|
|
sure, for parameters par (what is optimized for), data vector x (typical length from 10 to 20), constants n and n2, a typical function is if((1 - par[3]^2)<0 ) return(100)
if(par[1] + par[2] \* par[5] \* sqrt(1 - par[3]^2)<0)
return(500 )
tmp <- (x - par[4])^2 + par[5]^2
tmp2 <- par[1] + par[2] \* (par[3] \* (x - par[4]) +
sqrt(tmp))
result <- ((sqrt(tmp2) - Ce) / n2)^2
result <- sqrt(sum(n \* result) / n)
if(is.na(result)) return(1111)
return(result)
|
|
Generally, it looks like a function where Julia could have a significant performance advantage.