Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'stripping off coefficients' topicStudent Support Forum > General > Archives > "stripping off coefficients"

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
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: ,

Subject (listing for 'stripping off coefficients')
Author Date Posted
stripping off coefficients Henri Garcia 04/30/12 8:42pm
Re: stripping off coefficients Patrick 05/01/12 2:49pm
Re: stripping off coefficients Henri Garcia 05/01/12 7:41pm
Re: Re: stripping off coefficients Peter Pein 05/03/12 04:46am
Re: Re: Re: stripping off coefficients Henri Garcia 05/05/12 5:12pm
Re: stripping off coefficients yehuda ben-s... 05/02/12 09:32am
Re: Re: stripping off coefficients Henri Garcia 05/05/12 5:14pm
< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic