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

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

[Out]

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

________________________________________________________________________________________

Rubi [A]  time = 0.01, antiderivative size = 31, normalized size of antiderivative = 1.00, number of steps used = 1, number of rules used = 1, integrand size = 6, \(\frac {\text {number of rules}}{\text {integrand size}}\) = 0.167, Rules used = {4433} \[ \frac {d^x \sin (x)}{\log ^2(d)+1}+\frac {d^x \log (d) \cos (x)}{\log ^2(d)+1} \]

Antiderivative was successfully verified.

[In]

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

[Out]

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

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]

Rubi steps

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

________________________________________________________________________________________

Mathematica [A]  time = 0.02, size = 20, normalized size = 0.65 \[ \frac {d^x (\log (d) \cos (x)+\sin (x))}{\log ^2(d)+1} \]

Antiderivative was successfully verified.

[In]

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

[Out]

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

________________________________________________________________________________________

fricas [A]  time = 0.42, size = 20, normalized size = 0.65 \[ \frac {{\left (\cos \relax (x) \log \relax (d) + \sin \relax (x)\right )} d^{x}}{\log \relax (d)^{2} + 1} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

giac [C]  time = 1.18, size = 329, normalized size = 10.61 \[ {\left | d \right |}^{x} {\left (\frac {2 \, \cos \left (\frac {1}{2} \, \pi x \mathrm {sgn}\relax (d) - \frac {1}{2} \, \pi x + x\right ) \log \left ({\left | d \right |}\right )}{{\left (\pi - \pi \mathrm {sgn}\relax (d) - 2\right )}^{2} + 4 \, \log \left ({\left | d \right |}\right )^{2}} - \frac {{\left (\pi - \pi \mathrm {sgn}\relax (d) - 2\right )} \sin \left (\frac {1}{2} \, \pi x \mathrm {sgn}\relax (d) - \frac {1}{2} \, \pi x + x\right )}{{\left (\pi - \pi \mathrm {sgn}\relax (d) - 2\right )}^{2} + 4 \, \log \left ({\left | d \right |}\right )^{2}}\right )} + {\left | d \right |}^{x} {\left (\frac {2 \, \cos \left (\frac {1}{2} \, \pi x \mathrm {sgn}\relax (d) - \frac {1}{2} \, \pi x - x\right ) \log \left ({\left | d \right |}\right )}{{\left (\pi - \pi \mathrm {sgn}\relax (d) + 2\right )}^{2} + 4 \, \log \left ({\left | d \right |}\right )^{2}} - \frac {{\left (\pi - \pi \mathrm {sgn}\relax (d) + 2\right )} \sin \left (\frac {1}{2} \, \pi x \mathrm {sgn}\relax (d) - \frac {1}{2} \, \pi x - x\right )}{{\left (\pi - \pi \mathrm {sgn}\relax (d) + 2\right )}^{2} + 4 \, \log \left ({\left | d \right |}\right )^{2}}\right )} - \frac {1}{2} i \, {\left | d \right |}^{x} {\left (-\frac {2 i \, e^{\left (\frac {1}{2} i \, \pi x \mathrm {sgn}\relax (d) - \frac {1}{2} i \, \pi x + i \, x\right )}}{-2 i \, \pi + 2 i \, \pi \mathrm {sgn}\relax (d) + 4 \, \log \left ({\left | d \right |}\right ) + 4 i} + \frac {2 i \, e^{\left (-\frac {1}{2} i \, \pi x \mathrm {sgn}\relax (d) + \frac {1}{2} i \, \pi x - i \, x\right )}}{2 i \, \pi - 2 i \, \pi \mathrm {sgn}\relax (d) + 4 \, \log \left ({\left | d \right |}\right ) - 4 i}\right )} - \frac {1}{2} i \, {\left | d \right |}^{x} {\left (-\frac {2 i \, e^{\left (\frac {1}{2} i \, \pi x \mathrm {sgn}\relax (d) - \frac {1}{2} i \, \pi x - i \, x\right )}}{-2 i \, \pi + 2 i \, \pi \mathrm {sgn}\relax (d) + 4 \, \log \left ({\left | d \right |}\right ) - 4 i} + \frac {2 i \, e^{\left (-\frac {1}{2} i \, \pi x \mathrm {sgn}\relax (d) + \frac {1}{2} i \, \pi x + i \, x\right )}}{2 i \, \pi - 2 i \, \pi \mathrm {sgn}\relax (d) + 4 \, \log \left ({\left | d \right |}\right ) + 4 i}\right )} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

abs(d)^x*(2*cos(1/2*pi*x*sgn(d) - 1/2*pi*x + x)*log(abs(d))/((pi - pi*sgn(d) - 2)^2 + 4*log(abs(d))^2) - (pi -
pi*sgn(d) - 2)*sin(1/2*pi*x*sgn(d) - 1/2*pi*x + x)/((pi - pi*sgn(d) - 2)^2 + 4*log(abs(d))^2)) + abs(d)^x*(2*
cos(1/2*pi*x*sgn(d) - 1/2*pi*x - x)*log(abs(d))/((pi - pi*sgn(d) + 2)^2 + 4*log(abs(d))^2) - (pi - pi*sgn(d) +
2)*sin(1/2*pi*x*sgn(d) - 1/2*pi*x - x)/((pi - pi*sgn(d) + 2)^2 + 4*log(abs(d))^2)) - 1/2*I*abs(d)^x*(-2*I*e^(
1/2*I*pi*x*sgn(d) - 1/2*I*pi*x + I*x)/(-2*I*pi + 2*I*pi*sgn(d) + 4*log(abs(d)) + 4*I) + 2*I*e^(-1/2*I*pi*x*sgn
(d) + 1/2*I*pi*x - I*x)/(2*I*pi - 2*I*pi*sgn(d) + 4*log(abs(d)) - 4*I)) - 1/2*I*abs(d)^x*(-2*I*e^(1/2*I*pi*x*s
gn(d) - 1/2*I*pi*x - I*x)/(-2*I*pi + 2*I*pi*sgn(d) + 4*log(abs(d)) - 4*I) + 2*I*e^(-1/2*I*pi*x*sgn(d) + 1/2*I*
pi*x + I*x)/(2*I*pi - 2*I*pi*sgn(d) + 4*log(abs(d)) + 4*I))

________________________________________________________________________________________

maple [B]  time = 0.03, size = 71, normalized size = 2.29 \[ \frac {-\frac {{\mathrm e}^{x \ln \relax (d )} \ln \relax (d ) \left (\tan ^{2}\left (\frac {x}{2}\right )\right )}{\ln \relax (d )^{2}+1}+\frac {{\mathrm e}^{x \ln \relax (d )} \ln \relax (d )}{\ln \relax (d )^{2}+1}+\frac {2 \,{\mathrm e}^{x \ln \relax (d )} \tan \left (\frac {x}{2}\right )}{\ln \relax (d )^{2}+1}}{\tan ^{2}\left (\frac {x}{2}\right )+1} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

maxima [A]  time = 0.43, size = 24, normalized size = 0.77 \[ \frac {d^{x} \cos \relax (x) \log \relax (d) + d^{x} \sin \relax (x)}{\log \relax (d)^{2} + 1} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

mupad [B]  time = 0.02, size = 20, normalized size = 0.65 \[ \frac {d^x\,\left (\sin \relax (x)+\ln \relax (d)\,\cos \relax (x)\right )}{{\ln \relax (d)}^2+1} \]

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________

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

Verification of antiderivative is not currently implemented for this CAS.

[In]

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

[Out]

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

________________________________________________________________________________________