1
$\begingroup$
r Cos[γ[t]] + 1/2 l Sqrt[1 - (r^2 Sin[γ[t]]^2)/l^2]

How can I ask Mathematica to write my expression without l^2 in the denominator such as:

r Cos[γ[t]] + 1/2*Sqrt[l^2 - r^2 Sin[γ[t]]^2]

Sorry, if my question is very simple, but I have been unable to work out an answer.

$\endgroup$

1 Answer 1

5
$\begingroup$
r Cos[γ[t]] + 1/2 l Sqrt[1 - (r^2 Sin[γ[t]]^2)/l^2]
Simplify[%, Assumptions -> {l^2 > 0, l > 0}]

Or:

r Cos[γ[t]] + 1/2 l Sqrt[1 - (r^2 Sin[γ[t]]^2)/l^2]
Simplify[%, Assumptions -> {Re[l] > 0, Im[l] == 0}]

But I am sure this is discussed in Simplify help page.

EDIT

As @BobHanlon pointed out l>0 implies l^2>0, so one should write:

Simplify[%, Assumptions -> {l > 0}]
$\endgroup$
1
  • 1
    $\begingroup$ @Bendesarts You are welcome, but you might also accept it ;) $\endgroup$
    – mattiav27
    Dec 28, 2015 at 13:41

Not the answer you're looking for? Browse other questions tagged or ask your own question.