| Author |
Comment/Response |
Henri Garcia
|
 05/01/12 7:41pm
Noodled until I got this to work (appreciate other suggestions):
Fits = Table[Fit[Data[[(i-1)*1000+1;;i*1000]], {1, x}, x], {i, 14}]
(*This gives array of straight lines like a1+b1*x, etc *)
Intercepts = Table[Extract[Fits, {i, 1}], {i, 14}]
(*This pulls out the 14 constant terms *)
Slopes = Table[Extract[Fits, {i, 2}], {i, 14}]
(*This pulls out the x term, but with an x, e.g. "b1 x" *)
SlopeVals = Block[{x = 1}, Slopes]
(* This sets x=1 locally, and then results in just b12...b14). HG
URL: , |
|
