3.137 \(\int d^x x \cos (x) \, dx\)

Optimal. Leaf size=83 \[ \frac {x d^x \sin (x)}{\log ^2(d)+1}-\frac {2 d^x \log (d) \sin (x)}{\left (\log ^2(d)+1\right )^2}+\frac {x d^x \log (d) \cos (x)}{\log ^2(d)+1}-\frac {d^x \log ^2(d) \cos (x)}{\left (\log ^2(d)+1\right )^2}+\frac {d^x \cos (x)}{\left (\log ^2(d)+1\right )^2} \]

[Out]

d^x*cos(x)/(1+ln(d)^2)^2-d^x*cos(x)*ln(d)^2/(1+ln(d)^2)^2+d^x*x*cos(x)*ln(d)/(1+ln(d)^2)-2*d^x*ln(d)*sin(x)/(1
+ln(d)^2)^2+d^x*x*sin(x)/(1+ln(d)^2)

________________________________________________________________________________________

Rubi [A]  time = 0.05, antiderivative size = 83, normalized size of antiderivative = 1.00, number of steps used = 4, number of rules used = 3, integrand size = 7, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.429, Rules used = {4433, 4466, 4432} \[ \frac {x d^x \sin (x)}{\log ^2(d)+1}-\frac {2 d^x \log (d) \sin (x)}{\left (\log ^2(d)+1\right )^2}+\frac {x d^x \log (d) \cos (x)}{\log ^2(d)+1}-\frac {d^x \log ^2(d) \cos (x)}{\left (\log ^2(d)+1\right )^2}+\frac {d^x \cos (x)}{\left (\log ^2(d)+1\right )^2} \]

Antiderivative was successfully verified.

[In]

Int[d^x*x*Cos[x],x]

[Out]

(d^x*Cos[x])/(1 + Log[d]^2)^2 - (d^x*Cos[x]*Log[d]^2)/(1 + Log[d]^2)^2 + (d^x*x*Cos[x]*Log[d])/(1 + Log[d]^2)
- (2*d^x*Log[d]*Sin[x])/(1 + Log[d]^2)^2 + (d^x*x*Sin[x])/(1 + Log[d]^2)

Rule 4432

Int[(F_)^((c_.)*((a_.) + (b_.)*(x_)))*Sin[(d_.) + (e_.)*(x_)], x_Symbol] :> Simp[(b*c*Log[F]*F^(c*(a + b*x))*S
in[d + e*x])/(e^2 + b^2*c^2*Log[F]^2), x] - Simp[(e*F^(c*(a + b*x))*Cos[d + e*x])/(e^2 + b^2*c^2*Log[F]^2), x]
/; FreeQ[{F, a, b, c, d, e}, x] && NeQ[e^2 + b^2*c^2*Log[F]^2, 0]

Rule 4433

Int[Cos[(d_.) + (e_.)*(x_)]*(F_)^((c_.)*((a_.) + (b_.)*(x_))), x_Symbol] :> Simp[(b*c*Log[F]*F^(c*(a + b*x))*C
os[d + e*x])/(e^2 + b^2*c^2*Log[F]^2), x] + Simp[(e*F^(c*(a + b*x))*Sin[d + e*x])/(e^2 + b^2*c^2*Log[F]^2), x]
/; FreeQ[{F, a, b, c, d, e}, x] && NeQ[e^2 + b^2*c^2*Log[F]^2, 0]

Rule 4466

Int[Cos[(d_.) + (e_.)*(x_)]^(n_.)*(F_)^((c_.)*((a_.) + (b_.)*(x_)))*((f_.)*(x_))^(m_.), x_Symbol] :> Module[{u
= IntHide[F^(c*(a + b*x))*Cos[d + e*x]^n, x]}, Dist[(f*x)^m, u, x] - Dist[f*m, Int[(f*x)^(m - 1)*u, x], x]] /
; FreeQ[{F, a, b, c, d, e, f}, x] && IGtQ[n, 0] && GtQ[m, 0]

Rubi steps

\begin {align*} \int d^x x \cos (x) \, dx &=\frac {d^x x \cos (x) \log (d)}{1+\log ^2(d)}+\frac {d^x x \sin (x)}{1+\log ^2(d)}-\int \left (\frac {d^x \cos (x) \log (d)}{1+\log ^2(d)}+\frac {d^x \sin (x)}{1+\log ^2(d)}\right ) \, dx\\ &=\frac {d^x x \cos (x) \log (d)}{1+\log ^2(d)}+\frac {d^x x \sin (x)}{1+\log ^2(d)}-\frac {\int d^x \sin (x) \, dx}{1+\log ^2(d)}-\frac {\log (d) \int d^x \cos (x) \, dx}{1+\log ^2(d)}\\ &=\frac {d^x \cos (x)}{\left (1+\log ^2(d)\right )^2}-\frac {d^x \cos (x) \log ^2(d)}{\left (1+\log ^2(d)\right )^2}+\frac {d^x x \cos (x) \log (d)}{1+\log ^2(d)}-\frac {2 d^x \log (d) \sin (x)}{\left (1+\log ^2(d)\right )^2}+\frac {d^x x \sin (x)}{1+\log ^2(d)}\\ \end {align*}

________________________________________________________________________________________

Mathematica [A]  time = 0.05, size = 49, normalized size = 0.59 \[ \frac {d^x \left (\sin (x) \left (x \log ^2(d)-2 \log (d)+x\right )+\cos (x) \left (x \log ^3(d)+x \log (d)-\log ^2(d)+1\right )\right )}{\left (\log ^2(d)+1\right )^2} \]

Antiderivative was successfully verified.

[In]

Integrate[d^x*x*Cos[x],x]

[Out]

(d^x*(Cos[x]*(1 + x*Log[d] - Log[d]^2 + x*Log[d]^3) + (x - 2*Log[d] + x*Log[d]^2)*Sin[x]))/(1 + Log[d]^2)^2

________________________________________________________________________________________

fricas [A]  time = 0.44, size = 58, normalized size = 0.70 \[ \frac {{\left (x \cos \relax (x) \log \relax (d)^{3} + x \cos \relax (x) \log \relax (d) - \cos \relax (x) \log \relax (d)^{2} + {\left (x \log \relax (d)^{2} + x - 2 \, \log \relax (d)\right )} \sin \relax (x) + \cos \relax (x)\right )} d^{x}}{\log \relax (d)^{4} + 2 \, \log \relax (d)^{2} + 1} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(d^x*x*cos(x),x, algorithm="fricas")

[Out]

(x*cos(x)*log(d)^3 + x*cos(x)*log(d) - cos(x)*log(d)^2 + (x*log(d)^2 + x - 2*log(d))*sin(x) + cos(x))*d^x/(log
(d)^4 + 2*log(d)^2 + 1)

________________________________________________________________________________________

giac [C]  time = 1.29, size = 1165, normalized size = 14.04 \[ \text {result too large to display} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(d^x*x*cos(x),x, algorithm="giac")

[Out]

1/2*(2*((pi*x*sgn(d) - pi*x + 2*x)*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) + 2*log(abs(d)))/((2*pi + pi^2*sgn(
d) - pi^2 + 2*log(abs(d))^2 - 2*pi*sgn(d) - 2)^2 + 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) + 2*log(abs(d)))^
2) + (2*pi + pi^2*sgn(d) - pi^2 + 2*log(abs(d))^2 - 2*pi*sgn(d) - 2)*(x*log(abs(d)) - 1)/((2*pi + pi^2*sgn(d)
- pi^2 + 2*log(abs(d))^2 - 2*pi*sgn(d) - 2)^2 + 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) + 2*log(abs(d)))^2))
*cos(1/2*pi*x*sgn(d) - 1/2*pi*x + x) - ((2*pi + pi^2*sgn(d) - pi^2 + 2*log(abs(d))^2 - 2*pi*sgn(d) - 2)*(pi*x*
sgn(d) - pi*x + 2*x)/((2*pi + pi^2*sgn(d) - pi^2 + 2*log(abs(d))^2 - 2*pi*sgn(d) - 2)^2 + 4*(pi*log(abs(d))*sg
n(d) - pi*log(abs(d)) + 2*log(abs(d)))^2) - 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) + 2*log(abs(d)))*(x*log(
abs(d)) - 1)/((2*pi + pi^2*sgn(d) - pi^2 + 2*log(abs(d))^2 - 2*pi*sgn(d) - 2)^2 + 4*(pi*log(abs(d))*sgn(d) - p
i*log(abs(d)) + 2*log(abs(d)))^2))*sin(1/2*pi*x*sgn(d) - 1/2*pi*x + x))*abs(d)^x + 1/2*(2*((pi*x*sgn(d) - pi*x
- 2*x)*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) - 2*log(abs(d)))/((2*pi - pi^2*sgn(d) + pi^2 - 2*log(abs(d))^2
- 2*pi*sgn(d) + 2)^2 + 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) - 2*log(abs(d)))^2) - (2*pi - pi^2*sgn(d) +
pi^2 - 2*log(abs(d))^2 - 2*pi*sgn(d) + 2)*(x*log(abs(d)) - 1)/((2*pi - pi^2*sgn(d) + pi^2 - 2*log(abs(d))^2 -
2*pi*sgn(d) + 2)^2 + 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) - 2*log(abs(d)))^2))*cos(1/2*pi*x*sgn(d) - 1/2*
pi*x - x) + ((2*pi - pi^2*sgn(d) + pi^2 - 2*log(abs(d))^2 - 2*pi*sgn(d) + 2)*(pi*x*sgn(d) - pi*x - 2*x)/((2*pi
- pi^2*sgn(d) + pi^2 - 2*log(abs(d))^2 - 2*pi*sgn(d) + 2)^2 + 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) - 2*l
og(abs(d)))^2) + 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) - 2*log(abs(d)))*(x*log(abs(d)) - 1)/((2*pi - pi^2*
sgn(d) + pi^2 - 2*log(abs(d))^2 - 2*pi*sgn(d) + 2)^2 + 4*(pi*log(abs(d))*sgn(d) - pi*log(abs(d)) - 2*log(abs(d
)))^2))*sin(1/2*pi*x*sgn(d) - 1/2*pi*x - x))*abs(d)^x - 1/2*I*abs(d)^x*((2*pi*x*sgn(d) - 2*pi*x - 4*I*x*log(ab
s(d)) + 4*x + 4*I)*e^(1/2*I*pi*x*sgn(d) - 1/2*I*pi*x + I*x)/(8*pi + 4*pi^2*sgn(d) + 8*I*pi*log(abs(d))*sgn(d)
- 4*pi^2 - 8*I*pi*log(abs(d)) + 8*log(abs(d))^2 - 8*pi*sgn(d) + 16*I*log(abs(d)) - 8) + (2*pi*x*sgn(d) - 2*pi*
x + 4*I*x*log(abs(d)) + 4*x - 4*I)*e^(-1/2*I*pi*x*sgn(d) + 1/2*I*pi*x - I*x)/(8*pi + 4*pi^2*sgn(d) - 8*I*pi*lo
g(abs(d))*sgn(d) - 4*pi^2 + 8*I*pi*log(abs(d)) + 8*log(abs(d))^2 - 8*pi*sgn(d) - 16*I*log(abs(d)) - 8)) + 1/2*
I*abs(d)^x*((2*pi*x*sgn(d) - 2*pi*x - 4*I*x*log(abs(d)) - 4*x + 4*I)*e^(1/2*I*pi*x*sgn(d) - 1/2*I*pi*x - I*x)/
(8*pi - 4*pi^2*sgn(d) - 8*I*pi*log(abs(d))*sgn(d) + 4*pi^2 + 8*I*pi*log(abs(d)) - 8*log(abs(d))^2 - 8*pi*sgn(d
) + 16*I*log(abs(d)) + 8) + (2*pi*x*sgn(d) - 2*pi*x + 4*I*x*log(abs(d)) - 4*x - 4*I)*e^(-1/2*I*pi*x*sgn(d) + 1
/2*I*pi*x + I*x)/(8*pi - 4*pi^2*sgn(d) + 8*I*pi*log(abs(d))*sgn(d) + 4*pi^2 - 8*I*pi*log(abs(d)) - 8*log(abs(d
))^2 - 8*pi*sgn(d) - 16*I*log(abs(d)) + 8))

________________________________________________________________________________________

maple [A]  time = 0.04, size = 142, normalized size = 1.71 \[ \frac {-\frac {x \,{\mathrm e}^{x \ln \relax (d )} \ln \relax (d ) \left (\tan ^{2}\left (\frac {x}{2}\right )\right )}{\ln \relax (d )^{2}+1}+\frac {x \,{\mathrm e}^{x \ln \relax (d )} \ln \relax (d )}{\ln \relax (d )^{2}+1}+\frac {2 x \,{\mathrm e}^{x \ln \relax (d )} \tan \left (\frac {x}{2}\right )}{\ln \relax (d )^{2}+1}-\frac {4 \,{\mathrm e}^{x \ln \relax (d )} \ln \relax (d ) \tan \left (\frac {x}{2}\right )}{\left (\ln \relax (d )^{2}+1\right )^{2}}+\frac {\left (\ln \relax (d )^{2}-1\right ) {\mathrm e}^{x \ln \relax (d )} \left (\tan ^{2}\left (\frac {x}{2}\right )\right )}{\left (\ln \relax (d )^{2}+1\right )^{2}}-\frac {\left (\ln \relax (d )^{2}-1\right ) {\mathrm e}^{x \ln \relax (d )}}{\left (\ln \relax (d )^{2}+1\right )^{2}}}{\tan ^{2}\left (\frac {x}{2}\right )+1} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(d^x*x*cos(x),x)

[Out]

((ln(d)^2-1)/(ln(d)^2+1)^2*exp(x*ln(d))*tan(1/2*x)^2+ln(d)/(ln(d)^2+1)*x*exp(x*ln(d))-(ln(d)^2-1)/(ln(d)^2+1)^
2*exp(x*ln(d))-4/(ln(d)^2+1)^2*ln(d)*exp(x*ln(d))*tan(1/2*x)+2/(ln(d)^2+1)*x*exp(x*ln(d))*tan(1/2*x)-ln(d)/(ln
(d)^2+1)*x*exp(x*ln(d))*tan(1/2*x)^2)/(tan(1/2*x)^2+1)

________________________________________________________________________________________

maxima [A]  time = 0.47, size = 58, normalized size = 0.70 \[ \frac {{\left ({\left (\log \relax (d)^{3} + \log \relax (d)\right )} x - \log \relax (d)^{2} + 1\right )} d^{x} \cos \relax (x) + {\left ({\left (\log \relax (d)^{2} + 1\right )} x - 2 \, \log \relax (d)\right )} d^{x} \sin \relax (x)}{\log \relax (d)^{4} + 2 \, \log \relax (d)^{2} + 1} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(d^x*x*cos(x),x, algorithm="maxima")

[Out]

(((log(d)^3 + log(d))*x - log(d)^2 + 1)*d^x*cos(x) + ((log(d)^2 + 1)*x - 2*log(d))*d^x*sin(x))/(log(d)^4 + 2*l
og(d)^2 + 1)

________________________________________________________________________________________

mupad [B]  time = 0.21, size = 55, normalized size = 0.66 \[ \frac {d^x\,\left (\cos \relax (x)-2\,\ln \relax (d)\,\sin \relax (x)-{\ln \relax (d)}^2\,\cos \relax (x)+x\,\sin \relax (x)+x\,\ln \relax (d)\,\cos \relax (x)+x\,{\ln \relax (d)}^3\,\cos \relax (x)+x\,{\ln \relax (d)}^2\,\sin \relax (x)\right )}{{\left ({\ln \relax (d)}^2+1\right )}^2} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

int(d^x*x*cos(x),x)

[Out]

(d^x*(cos(x) - 2*log(d)*sin(x) - log(d)^2*cos(x) + x*sin(x) + x*log(d)*cos(x) + x*log(d)^3*cos(x) + x*log(d)^2
*sin(x)))/(log(d)^2 + 1)^2

________________________________________________________________________________________

sympy [A]  time = 3.24, size = 304, normalized size = 3.66 \[ \begin {cases} \frac {i x^{2} e^{- i x} \sin {\relax (x )}}{4} + \frac {x^{2} e^{- i x} \cos {\relax (x )}}{4} + \frac {x e^{- i x} \sin {\relax (x )}}{4} + \frac {i x e^{- i x} \cos {\relax (x )}}{4} + \frac {e^{- i x} \cos {\relax (x )}}{4} & \text {for}\: d = e^{- i} \\- \frac {i x^{2} e^{i x} \sin {\relax (x )}}{4} + \frac {x^{2} e^{i x} \cos {\relax (x )}}{4} + \frac {x e^{i x} \sin {\relax (x )}}{4} - \frac {i x e^{i x} \cos {\relax (x )}}{4} + \frac {e^{i x} \cos {\relax (x )}}{4} & \text {for}\: d = e^{i} \\\frac {d^{x} x \log {\relax (d )}^{3} \cos {\relax (x )}}{\log {\relax (d )}^{4} + 2 \log {\relax (d )}^{2} + 1} + \frac {d^{x} x \log {\relax (d )}^{2} \sin {\relax (x )}}{\log {\relax (d )}^{4} + 2 \log {\relax (d )}^{2} + 1} + \frac {d^{x} x \log {\relax (d )} \cos {\relax (x )}}{\log {\relax (d )}^{4} + 2 \log {\relax (d )}^{2} + 1} + \frac {d^{x} x \sin {\relax (x )}}{\log {\relax (d )}^{4} + 2 \log {\relax (d )}^{2} + 1} - \frac {d^{x} \log {\relax (d )}^{2} \cos {\relax (x )}}{\log {\relax (d )}^{4} + 2 \log {\relax (d )}^{2} + 1} - \frac {2 d^{x} \log {\relax (d )} \sin {\relax (x )}}{\log {\relax (d )}^{4} + 2 \log {\relax (d )}^{2} + 1} + \frac {d^{x} \cos {\relax (x )}}{\log {\relax (d )}^{4} + 2 \log {\relax (d )}^{2} + 1} & \text {otherwise} \end {cases} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

integrate(d**x*x*cos(x),x)

[Out]

Piecewise((I*x**2*exp(-I*x)*sin(x)/4 + x**2*exp(-I*x)*cos(x)/4 + x*exp(-I*x)*sin(x)/4 + I*x*exp(-I*x)*cos(x)/4
+ exp(-I*x)*cos(x)/4, Eq(d, exp(-I))), (-I*x**2*exp(I*x)*sin(x)/4 + x**2*exp(I*x)*cos(x)/4 + x*exp(I*x)*sin(x
)/4 - I*x*exp(I*x)*cos(x)/4 + exp(I*x)*cos(x)/4, Eq(d, exp(I))), (d**x*x*log(d)**3*cos(x)/(log(d)**4 + 2*log(d
)**2 + 1) + d**x*x*log(d)**2*sin(x)/(log(d)**4 + 2*log(d)**2 + 1) + d**x*x*log(d)*cos(x)/(log(d)**4 + 2*log(d)
**2 + 1) + d**x*x*sin(x)/(log(d)**4 + 2*log(d)**2 + 1) - d**x*log(d)**2*cos(x)/(log(d)**4 + 2*log(d)**2 + 1) -
2*d**x*log(d)*sin(x)/(log(d)**4 + 2*log(d)**2 + 1) + d**x*cos(x)/(log(d)**4 + 2*log(d)**2 + 1), True))

________________________________________________________________________________________