Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

[Date Index] [Thread Index] [Author Index]

Search the Archive

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


  • Prev by Date: Re: video on Presentations by Williams and Park
  • Next by Date: Re: Generalized Fourier localization theorem?
  • Previous by thread: Re: solving for a second function
  • Next by thread: GreatCircleDistance