I am trying to find an explicit solution to a trigonometric equation. It is running for a long time and I didn't get any result, but Maple solves it quickly. Why ?
Solve[ γ == ArcCos[ Cos[α] Sec[θ] ] + ArcCos[ Cos[β] Sec[θ] ], θ]
$\begingroup$
$\endgroup$
1
-
$\begingroup$ If you're looking for a numeric solution please say so explicitly. $\endgroup$– b.gates.you.know.whatSep 23, 2012 at 10:52
Add a comment
|
2 Answers
$\begingroup$
$\endgroup$
1
If you're after a symbolic solution you might try taking the Cos of both sides :
Solve[ Cos[ γ] == TrigExpand[ Cos[ ArcCos[ Cos[α] Sec[θ] ] + ArcCos[ Cos[β] Sec[θ]] ]],
θ, Reals]
or
Reduce[ Cos[γ] == TrigExpand[ Cos[ ArcCos[ Cos[α] Sec[θ] ] + ArcCos[ Cos[β] Sec[θ]]] ],
θ, Reals]
answered Sep 23, 2012 at 10:52
-
$\begingroup$ @chyanog You still didn't say, does the other software solve your equation symbolically ? $\endgroup$ Sep 23, 2012 at 15:26
$\begingroup$
$\endgroup$
Or like this:
Solve[Cos /@ (γ == ArcCos[Cos[α] Sec[θ]] + ArcCos[Cos[β] Sec[θ]] ), θ,
InverseFunctions -> True]