Re: Inverse function solution

Path	csiph.com!v102.xanadu-bbs.net!xanadu-bbs.net!news.glorb.com!news-out.readnews.com!news-xxxfer.readnews.com!newspump.sol.net!post2.nntp.sol.net!posts.news.twtelecom.net!nnrp3.twtelecom.net!not-for-mail
From	Bob Hanlon <hanlonr357@gmail.com>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Inverse function solution
Date	Tue, 29 Apr 2014 05:32:24 +0000 (UTC)
Sender	steve@smc.vnet.net
Approved	Steven M. Christensen <steve@smc.vnet.net>, Moderator
Message-ID	<ljndh8$aqa$1@smc.vnet.net> (permalink)
References	<20140428014444.9FBD16A4E@smc.vnet.net>
Lines	54
Organization	Time-Warner Telecom
NNTP-Posting-Date	29 Apr 2014 05:38:36 GMT
NNTP-Posting-Host	a389f3d2.news.twtelecom.net
X-Trace	DXC=2i8F?ZIQ;V<WV@`bFQ>LQ9C_A=>8kQj6=;[h;PUXBgb4R?JXX0Glei>EFiONJ7[Go6e\3R`MFH@]9
X-Complaints-To	abuse@twtelecom.net
Xref	csiph.com comp.soft-sys.math.mathematica:16869

Show key headers only | View raw

$Version


"9.0 for Mac OS X x86 (64-bit) (January 24, 2013)"


sol = Assuming[
  {-1 <= x <= 1, -1 <= y <= 1, C[1] == 0, C[2] == 0},
  Solve[{x == Cos[u], y == Cos[u + v]}, {u, v}] //
   Simplify]


{{u -> ArcTan[x, -Sqrt[1 - x^2]],
     v -> ArcTan[Sqrt[1 - x^2]*(x*y -
              Sqrt[(-1 + x^2)*(-1 + y^2)]),
         y - x^2*y + x*Sqrt[(-1 + x^2)*(-1 + y^2)]]},
   {u -> ArcTan[x, -Sqrt[1 - x^2]],
     v -> ArcTan[Sqrt[1 - x^2]*(x*y +
              Sqrt[(-1 + x^2)*(-1 + y^2)]),
         y - x^2*y - x*Sqrt[(-1 + x^2)*(-1 + y^2)]]},
   {u -> ArcTan[x, Sqrt[1 - x^2]],
     v -> ArcTan[x*y - Sqrt[(-1 + x^2)*(-1 + y^2)],
         -((y - x^2*y + x*Sqrt[(-1 + x^2)*(-1 + y^2)])/
              Sqrt[1 - x^2])]}, {u -> ArcTan[x, Sqrt[1 - x^2]],
     v -> ArcTan[Sqrt[1 - x^2]*(x*y +
              Sqrt[(-1 + x^2)*(-1 + y^2)]), (-1 + x^2)*y +
           x*Sqrt[(-1 + x^2)*(-1 + y^2)]]}}



Bob Hanlon




On Sun, Apr 27, 2014 at 9:44 PM, Narasimham <mathma18@gmail.com> wrote:

> Solve[ {x == Cos[u], y == Cos[u + v] }, {u, v} ]
>
> Its closed/analytic solution is not possible, even numerically.
>
> The known solutions are ellipses from sine waves with a phase difference,
> having x^2, x y and y^2 terms, as also sketched in Lissajous curves:
>
> ParametricPlot[{Cos[u], Cos[u + v]}, {u, -Pi, Pi}, {v, -Pi, Pi}]
>
> Can there be a work around?
>
> Narasimham
>
>

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar

Thread

Re: Inverse function solution Bob Hanlon <hanlonr357@gmail.com> - 2014-04-29 05:32 +0000

csiph-web