3.2.81 \(\int \frac {\cot (x)}{\log (e^{\sin (x)})} \, dx\) [181]

Optimal. Leaf size=37 \[ \frac {\log \left (\log \left (e^{\sin (x)}\right )\right )}{-\log \left (e^{\sin (x)}\right )+\sin (x)}-\frac {\log (\sin (x))}{-\log \left (e^{\sin (x)}\right )+\sin (x)} \]

[Out]

ln(ln(exp(sin(x))))/(-ln(exp(sin(x)))+sin(x))-ln(sin(x))/(-ln(exp(sin(x)))+sin(x))

________________________________________________________________________________________

Rubi [A]
time = 0.02, antiderivative size = 37, normalized size of antiderivative = 1.00, number of steps used = 5, number of rules used = 4, integrand size = 10, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.400, Rules used = {4423, 2191, 2188, 29} \begin {gather*} \frac {\log \left (\log \left (e^{\sin (x)}\right )\right )}{\sin (x)-\log \left (e^{\sin (x)}\right )}-\frac {\log (\sin (x))}{\sin (x)-\log \left (e^{\sin (x)}\right )} \end {gather*}

Antiderivative was successfully verified.

[In]

Int[Cot[x]/Log[E^Sin[x]],x]

[Out]

Log[Log[E^Sin[x]]]/(-Log[E^Sin[x]] + Sin[x]) - Log[Sin[x]]/(-Log[E^Sin[x]] + Sin[x])

Rule 29

Int[(x_)^(-1), x_Symbol] :> Simp[Log[x], x]

Rule 2188

Int[(u_)^(m_.), x_Symbol] :> With[{c = Simplify[D[u, x]]}, Dist[1/c, Subst[Int[x^m, x], x, u], x]] /; FreeQ[m,
x] && PiecewiseLinearQ[u, x]

Rule 2191

Int[1/((u_)*(v_)), x_Symbol] :> With[{a = Simplify[D[u, x]], b = Simplify[D[v, x]]}, Dist[b/(b*u - a*v), Int[1
/v, x], x] - Dist[a/(b*u - a*v), Int[1/u, x], x] /; NeQ[b*u - a*v, 0]] /; PiecewiseLinearQ[u, v, x]

Rule 4423

Int[(u_)*(F_)[(c_.)*((a_.) + (b_.)*(x_))], x_Symbol] :> With[{d = FreeFactors[Sin[c*(a + b*x)], x]}, Dist[1/(b
*c), Subst[Int[SubstFor[1/x, Sin[c*(a + b*x)]/d, u, x], x], x, Sin[c*(a + b*x)]/d], x] /; FunctionOfQ[Sin[c*(a
+ b*x)]/d, u, x, True]] /; FreeQ[{a, b, c}, x] && (EqQ[F, Cot] || EqQ[F, cot])

Rubi steps

\begin {align*} \int \frac {\cot (x)}{\log \left (e^{\sin (x)}\right )} \, dx &=\text {Subst}\left (\int \frac {1}{x \log \left (e^x\right )} \, dx,x,\sin (x)\right )\\ &=-\frac {\text {Subst}\left (\int \frac {1}{x} \, dx,x,\sin (x)\right )}{-\log \left (e^{\sin (x)}\right )+\sin (x)}+\frac {\text {Subst}\left (\int \frac {1}{\log \left (e^x\right )} \, dx,x,\sin (x)\right )}{-\log \left (e^{\sin (x)}\right )+\sin (x)}\\ &=\frac {\log (\sin (x))}{\log \left (e^{\sin (x)}\right )-\sin (x)}+\frac {\text {Subst}\left (\int \frac {1}{x} \, dx,x,\log \left (e^{\sin (x)}\right )\right )}{-\log \left (e^{\sin (x)}\right )+\sin (x)}\\ &=-\frac {\log \left (\log \left (e^{\sin (x)}\right )\right )}{\log \left (e^{\sin (x)}\right )-\sin (x)}+\frac {\log (\sin (x))}{\log \left (e^{\sin (x)}\right )-\sin (x)}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]
time = 0.03, size = 25, normalized size = 0.68 \begin {gather*} \frac {\log \left (\log \left (e^{\sin (x)}\right )\right )-\log (\sin (x))}{-\log \left (e^{\sin (x)}\right )+\sin (x)} \end {gather*}

Antiderivative was successfully verified.

[In]

Integrate[Cot[x]/Log[E^Sin[x]],x]

[Out]

(Log[Log[E^Sin[x]]] - Log[Sin[x]])/(-Log[E^Sin[x]] + Sin[x])

________________________________________________________________________________________

Maple [A]
time = 0.10, size = 35, normalized size = 0.95

method	result	size
derivativedivides	\(-\frac {\ln \left (\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )\right )}{\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )-\sin \left (x \right )}+\frac {\ln \left (\sin \left (x \right )\right )}{\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )-\sin \left (x \right )}\)	\(35\)
default	\(-\frac {\ln \left (\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )\right )}{\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )-\sin \left (x \right )}+\frac {\ln \left (\sin \left (x \right )\right )}{\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )-\sin \left (x \right )}\)	\(35\)
risch	\(\frac {\ln \left ({\mathrm e}^{i x}+1\right )}{\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )-\sin \left (x \right )}+\frac {\ln \left ({\mathrm e}^{i x}-1\right )}{\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )-\sin \left (x \right )}-\frac {\ln \left (2 i {\mathrm e}^{i x} \ln \left ({\mathrm e}^{-\frac {i {\mathrm e}^{i x}}{2}} {\mathrm e}^{\frac {i {\mathrm e}^{-i x}}{2}}\right )\right )}{\ln \left ({\mathrm e}^{\sin \left (x \right )}\right )-\sin \left (x \right )}\)	\(86\)

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cot(x)/ln(exp(sin(x))),x,method=_RETURNVERBOSE)

[Out]

-1/(ln(exp(sin(x)))-sin(x))*ln(ln(exp(sin(x))))+1/(ln(exp(sin(x)))-sin(x))*ln(sin(x))

________________________________________________________________________________________

Maxima [A]
time = 0.27, size = 6, normalized size = 0.16 \begin {gather*} -\frac {1}{\sin \left (x\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cot(x)/log(exp(sin(x))),x, algorithm="maxima")

[Out]

-1/sin(x)

________________________________________________________________________________________

Fricas [A]
time = 0.36, size = 6, normalized size = 0.16 \begin {gather*} -\frac {1}{\sin \left (x\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cot(x)/log(exp(sin(x))),x, algorithm="fricas")

[Out]

-1/sin(x)

________________________________________________________________________________________

Sympy [F]
time = 0.00, size = 0, normalized size = 0.00 \begin {gather*} \int \frac {\cot {\left (x \right )}}{\log {\left (e^{\sin {\left (x \right )}} \right )}}\, dx \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cot(x)/ln(exp(sin(x))),x)

[Out]

Integral(cot(x)/log(exp(sin(x))), x)

________________________________________________________________________________________

Giac [A]
time = 5.21, size = 6, normalized size = 0.16 \begin {gather*} -\frac {1}{\sin \left (x\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(cot(x)/log(exp(sin(x))),x, algorithm="giac")

[Out]

-1/sin(x)

________________________________________________________________________________________

Mupad [B]
time = 0.37, size = 6, normalized size = 0.16 \begin {gather*} -\frac {1}{\sin \left (x\right )} \end {gather*}

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(cot(x)/log(exp(sin(x))),x)

[Out]

-1/sin(x)

________________________________________________________________________________________