Re: Creating a new table using values from a column in another table,
- To: mathgroup at smc.vnet.net
- Subject: [mg66371] Re: Creating a new table using values from a column in another table,
- From: Jean-Marc Gulliet <jeanmarc.gulliet at gmail.com>
- Date: Thu, 11 May 2006 02:14:27 -0400 (EDT)
- Organization: The Open University, Milton Keynes, UK
- References: <e3sgqp$lsf$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
Wonko the Sane wrote:
> Hi all,
>
> I have a question that I have not been able to work out myself, and so
> put it to the group to help. I have a set of data points in a table (2
> columns {{x1,y1},{x2,y2},....,{xn,yn}}) I have performed a fit to the
> data and have a function f[x] which I would now like to evaluate at each
> data point (column 1 of the first table) to get a new table
> {{x1,f[x1]},{x2,f[x2]},....,{xn,f[xn]}}. Is there a way to do this? I
> hope my request is clear
>
> Best Regards
> Michael
>
Hi Michael,
This (In[4]) should do what you want:
In[1]:=
data = Table[{n, Random[] + Sin[n]}, {n, 0, 4*Pi, 4*(Pi/100.)}];
In[2]:=
ListPlot[data, PlotStyle -> PointSize[0.02]];
In[3]:=
func[x_] = Fit[data, {1, Sin[x]}, x]
Out[3]=
0.40600651483282013 + 1.0079803137250567*Sin[x]
In[4]:=
({#1, func[#1]} & ) /@ data[[All,1]];
In[5]:=
ListPlot[%, PlotStyle -> PointSize[0.02]];
Best regards,
Jean-Marc