Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #16871

Re: Inverse function solution

Show all headers | View raw

Am 28.04.2014 03:45, schrieb Narasimham:
> 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?
>

Yes, replace trigonometric functions by rationals of exponentials.

{x ==  Cos[u], y == Cos[u + v]} // TrigExpand // TrigToExp

{x == E^(-I u)/2 + E^(I u)/2,
  y == 1/2 E^(-I u - I v) + 1/2 E^(I u + I v)}

Solve[ {2 x ==  q + 1/q, 2 y == p q + 1/(p q)}, {q, p}]

q-> Exp[I u], p-> Exp[I v]

-- 

Roland Franzius

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

Thread

Inverse function solution Narasimham <mathma18@gmail.com> - 2014-04-28 01:45 +0000
  Re: Inverse function solution Roland Franzius <roland.franzius@uos.de> - 2014-04-29 05:32 +0000

csiph-web