Re : intersection point from listplots
- To: mathgroup at smc.vnet.net
- Subject: [mg55596] Re : [mg55588] intersection point from listplots
- From: "Jaccard Florian" <Florian.Jaccard at he-arc.ch>
- Date: Wed, 30 Mar 2005 04:28:56 -0500 (EST)
- Sender: owner-wri-mathgroup at wolfram.com
I would use Interpolation. For example : In[21]:= data1 = Table[{i, i^2}, {i, 1, 10}]; data2 = Table[{i, 10*Log[i] + 3}, {i, 1, 10}]; In[16]:= << "Graphics`MultipleListPlot`" In[27]:= MultipleListPlot[{data1, data2}, PlotJoined -> True]; In[25]:= f = Interpolation[data1]; g = Interpolation[data2]; In[26]:= FindRoot[f[x] == g[x], {x, 4}] Out[26]= {x -> 4.151786254957007} Meilleures salutations F.Jaccard -----Message d'origine----- De : Tun Myint Aung [mailto:TMA at nus.edu.sg] Envoyé : mercredi, 30. mars 2005 10:22 À : mathgroup at smc.vnet.net Objet : [mg55588] intersection point from listplots Hi, I have two sets of lists for two curves. I can plot using ListPlot. What I want to know is how to get the intersection point in Mathematica. Any idea! Thank in advance! With Regards, Tun Myint Aung (Graduate Student) Civil Engineering Department National University of Singapore E1A 02-18 E-mail: g0202015 at nus.edu.sg (or) tma at nus.edu.sg