Re: Joining points of ListPlot
- To: mathgroup at smc.vnet.net
- Subject: [mg117409] Re: Joining points of ListPlot
- From: Ray Koopman <koopman at sfu.ca>
- Date: Thu, 17 Mar 2011 06:34:21 -0500 (EST)
- References: <ilnh7k$o97$1@smc.vnet.net>
On Mar 15, 4:06 am, Antonio Mezzacapo <ant.mezzac... at gmail.com> wrote: > Yeah I think you are right Bob, > maybe the attachment isn't reachable to everyone. > > I have uploaded the data here > http://www.easy-share.com/1914242675/AntonioListPlot.txt > <http://www.easy-share.com/1914242675/AntonioListPlot.txt> > > Antonio Further to my previous post, this minimizes the sum of squares of the distances between y and the closest function of x. Clear[a1,b1,c1,a2,b2,c2]; FindMinimum[Tr[Min[{ (a1 + b1(Sqrt[c1^2 + (#[[1]]-Pi)^2]-c1))+{#[[2]],-#[[2]]}, (a2 + b2(Sqrt[c2^2 + (#[[1]]-Pi)^2]-c2))+{#[[2]],-#[[2]]}}^2]&/@rr], {{a1,-.040,-.041},{b1,.360,.361},{c1,.100,.101}, {a2, .190, .191},{b2,.340,.341},{c2,.100,.101}}] {0.00479704, {a1 -> -0.0430633, b1 -> 0.381969, c1 -> 0.139595, a2 -> 0.189032, b2 -> 0.362816, c2 -> 0.160379}} All this deals with only those points whose x is real. What do you want to do with points whose x is complex?