Message Boards

WOLFRAM COMMUNITY

318 Views

3 Replies

2 Total Likes

View groups...

Follow this post

Share this post:

GROUPS:

Mathematics Algebra Wolfram Language

How to simplify this complex equation

Claudine Walduck

Posted 3 days ago

POSTED BY: Claudine Walduck

3 Replies

Sort By:

Claudine Walduck

Posted 3 days ago

I forgot to add, I need to simplify the top equation so I am left with the bottom equation.

POSTED BY: Claudine Walduck

Mariusz Iwaniuk

Mariusz Iwaniuk, engineer, math hobbyist.

Posted 2 days ago

Exp[I v] == SolveValues[(z - 1)/(z + 1) == (1 + x)/(1 - x)(Exp[I E] - 1)/(Exp[I E] + 1), z][[1]] (Where: z=Exp[I v]) (E^(I v) == -((E^(I E) - x)/(-1 + E^(I E) x))) Another way: func = (Exp[I v] - 1)/(Exp[I v] + 1) - (1 + x)/(1 - x)(Exp[I E] - 1)/(Exp[I E] + 1) // FullSimplify Sol = Solve[func == 0, v] (v /. Sol /. C[1] -> 0)[[1]] Exp[Iv] == Exp[I((v /. Sol /. C[1] -> 0)[[1]])] (E^(I v) == -((E^(I E) - x)/(-1 + E^(I E) x))) Regards M.I.

Exp[I v] == SolveValues[(z - 1)/(z + 1) == (1 + x)/(1 - x)*(Exp[I E] - 1)/(Exp[I E] + 1), z][[1]]

(*Where:   z=Exp[I v]*)

(*E^(I v) == -((E^(I E) - x)/(-1 + E^(I E) x))*)

Another way:

 func = (Exp[I v] - 1)/(Exp[I v] + 1) - (1 + x)/(1 - x)*(Exp[I E] - 1)/(Exp[I E] + 1) // FullSimplify
 Sol = Solve[func == 0, v]
 (v /. Sol /. C[1] -> 0)[[1]]
 Exp[I*v] == Exp[I*((v /. Sol /. C[1] -> 0)[[1]])]

 (*E^(I v) == -((E^(I E) - x)/(-1 + E^(I E) x))*)

Regards M.I.

POSTED BY: Mariusz Iwaniuk

Gianluca Gorni

Gianluca Gorni, University of Udine

Posted 2 days ago

Here is a step-by-step derivation: (E^(I v) - 1)/(E^(I v) + 1) == (1 + x)/(1 - x)*(Exp[I E] - 1)/(Exp[I E] + 1) MultiplySides[%, E^(I v) + 1, GenerateConditions -> False] Collect[%, E^(I v)] AddSides[%, 1 - %[[2, 2]]] Collect[%, E^(I v), Factor] DivideSides[%, %[[1]]/E^(I v), GenerateConditions -> False]

Here is a step-by-step derivation:

(E^(I v) - 1)/(E^(I v) + 1) ==
 (1 + x)/(1 - x)*(Exp[I E] - 1)/(Exp[I E] + 1)
MultiplySides[%, E^(I v) + 1, GenerateConditions -> False]
Collect[%, E^(I v)]
AddSides[%, 1 - %[[2, 2]]]
Collect[%, E^(I v), Factor]
DivideSides[%, %[[1]]/E^(I v), GenerateConditions -> False]

POSTED BY: Gianluca Gorni

Reply to this discussion

Reply Preview

Attachments

Remove Add a file to this post

Follow this discussion

or Discard

Group Abstract

Feedback