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?

```

• Prev by Date: Re: three kinds of Euler angular unitary matrices
• Next by Date: Re: A bug in Partition?
• Previous by thread: Re: Joining points of ListPlot
• Next by thread: Re: Joining points of ListPlot