Re: solving for a second function

*To*: mathgroup at smc.vnet.net*Subject*: [mg102482] Re: solving for a second function*From*: Roger Bagula <roger.bagula at gmail.com>*Date*: Tue, 11 Aug 2009 04:02:39 -0400 (EDT)*References*: <h5bk2l$hj3$1@smc.vnet.net>

There were several nice replies( the best by David Park). A solution was found and it had a different series expansion. The IFS work on kissing figures had one from a Lemniscate from the C.R.C. Mathemaics tables (very old edition 1960's) that was developed. When plotted against the Lemniscate from the complex solutions the result is strange. They don't appear to be the same curve at all? Mathematica: Clear[x, y, x1, y1, a, b, a1, b1] {a, b} = {Sqrt[Abs[(((2*x)^2 - (2*y)^2)/((2*y)^2 + ( 2*x)^2))]]*2* x*y/(x^2 + y^2) , Sqrt[Abs[(((2*x)^2 - (2*y)^2)/(( 2*y)^2 + (2*x)^2))]]*(x^2 - y^2)/(y^2 + x^2)} /. y - > 1; g0 = ParametricPlot[{{a, b}, {a, -b}}, {x, -1, 1}, AspectRatio -> Automatic, PlotRange -> All, Axes -> False, PlotStyle -> Hue[.8]] x = Re[1 + 1/(Cosh[r/2] + I*Sinh[r/2])]; y = Im[1 + 1/(Cosh[r/2] + I*Sinh[r/2])]; g1 = ParametricPlot[{{y, x - 1}, {y, -x + 1}}, { r, -5*Pi, 5*Pi}, AspectRatio -> Automatic, Axes -> False, PlotStyle -> Hue[.6], PlotRange -> All] Show[{g0, g1}] The problem here is are these the same family of curves like ellipses and circles, or is the classical Bernoulli Lemniscate a different curve altogether than this complex one? Maybe the 2d for the IFS was developed wrongly? Roger Bagula