All pastes #629038 Raw Edit

Untitled

public text v1 · immutable
·published 2007-07-21 21:56 UTC
rendered paste body
fitfun[fun_, tofit_, params_, x_, range_] := 
 Module[{steps = 11}, 
  xvals = Range[range[[1]], 
    range[[2]], (range[[2]] - range[[1]])/steps];
  yvals = fun[#] & /@ xvals;
  sol = FindFit[Thread[{xvals, yvals}], tofit, params, x];
  tofit /. sol]
fitfun[x, a Sqrt[x], {a}, x, {0, 1}]