Re: Inverse function solution

From	Murray Eisenberg <murray@math.umass.edu>
Newsgroups	comp.soft-sys.math.mathematica
Subject	Re: Inverse function solution
Date	2014-04-29 05:33 +0000
Message-ID	<ljndj6$au8$1@smc.vnet.net> (permalink)
References	<20140428014444.9FBD16A4E@smc.vnet.net>
Organization	Time-Warner Telecom

Show all headers | View raw

In Mathematica 9.0.1, I'm getting:

      Solve[{x == Cos[u], y == Cos[u + v]}, {u, v}, Reals]
    {{u -> ConditionalExpression[-ArcCos[x] +
     2 \[Pi] C[1], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1],
  v -> ConditionalExpression[
    ArcCos[x] - ArcCos[y] - 2 \[Pi] C[1] +
     2 \[Pi] C[2], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1]}, {u ->
   ConditionalExpression[-ArcCos[x] +
     2 \[Pi] C[1], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1],
  v -> ConditionalExpression[
    ArcCos[x] + ArcCos[y] - 2 \[Pi] C[1] +
     2 \[Pi] C[2], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1]}, {u ->
   ConditionalExpression[
    ArcCos[x] +
     2 \[Pi] C[1], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1],
  v -> ConditionalExpression[-ArcCos[x] - ArcCos[y] - 2 \[Pi] C[1] +
     2 \[Pi] C[2], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1]}, {u ->
   ConditionalExpression[
    ArcCos[x] +
     2 \[Pi] C[1], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1],
  v -> ConditionalExpression[-ArcCos[x] + ArcCos[y] - 2 \[Pi] C[1] +
     2 \[Pi] C[2], (C[1] | C[2]) \[Element] Integers && -1 <= x <=
      1 && -1 <= y <= 1]}}

Or, a bit simpler:

        Reduce[{x == Cos[u], y == Cos[u + v]}, {u, v}, Reals]
    (C[1] | C[2]) \[Element] Integers && -1 <= x <= 1 && -1 <= y <=
  1 && ((u == -ArcCos[x] +
       2 \[Pi] C[1] && (v ==
        ArcCos[x] - ArcCos[y] - 2 \[Pi] C[1] + 2 \[Pi] C[2] ||
       v == ArcCos[x] + ArcCos[y] - 2 \[Pi] C[1] +
         2 \[Pi] C[2])) || (u ==
      ArcCos[x] +
       2 \[Pi] C[1] && (v == -ArcCos[x] - ArcCos[y] - 2 \[Pi] C[1] +
         2 \[Pi] C[2] ||
       v == -ArcCos[x] + ArcCos[y] - 2 \[Pi] C[1] + 2 \[Pi] C[2])))
On 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
>

Murray Eisenberg                                murray@math.umass.edu
Mathematics & Statistics Dept.      
Lederle Graduate Research Tower      phone 240 246-7240 (H)
University of Massachusetts               
710 North Pleasant Street                
Amherst, MA 01003-9305

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

Thread

Re: Inverse function solution Murray Eisenberg <murray@math.umass.edu> - 2014-04-29 05:33 +0000

csiph-web