1(* ::Package:: *)
2
3(* ::Title:: *)
4(*Integration Problems Involving Hyperbolic Sines*)
5
6
7(* ::Subsection::Closed:: *)
8(*Sinh[a+b x]^n	*)
9
10
11{Sinh[a + b*x], x, 1, Cosh[a + b*x]/b}
12{Sinh[a + b*x]^2, x, 1, -(x/2) + (Cosh[a + b*x]*Sinh[a + b*x])/(2*b)}
13{Sinh[a + b*x]^3, x, 2, -(Cosh[a + b*x]/b) + Cosh[a + b*x]^3/(3*b)}
14{Sinh[a + b*x]^4, x, 2, (3*x)/8 - (3*Cosh[a + b*x]*Sinh[a + b*x])/(8*b) + (Cosh[a + b*x]*Sinh[a + b*x]^3)/(4*b)}
15{Sinh[a + b*x]^5, x, 2, Cosh[a + b*x]/b - (2*Cosh[a + b*x]^3)/(3*b) + Cosh[a + b*x]^5/(5*b)}
16
17
18{Sinh[a + b*x]^(7/2), x, 4, (10*I*EllipticF[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[I*Sinh[a + b*x]])/(21*b*Sqrt[Sinh[a + b*x]]) - (10*Cosh[a + b*x]*Sqrt[Sinh[a + b*x]])/(21*b) + (2*Cosh[a + b*x]*Sinh[a + b*x]^(5/2))/(7*b)}
19{Sinh[a + b*x]^(5/2), x, 3, -((6*I*EllipticE[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[Sinh[a + b*x]])/(5*b*Sqrt[I*Sinh[a + b*x]])) + (2*Cosh[a + b*x]*Sinh[a + b*x]^(3/2))/(5*b)}
20{Sinh[a + b*x]^(3/2), x, 3, -((2*I*EllipticF[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[I*Sinh[a + b*x]])/(3*b*Sqrt[Sinh[a + b*x]])) + (2*Cosh[a + b*x]*Sqrt[Sinh[a + b*x]])/(3*b)}
21{Sinh[a + b*x]^(1/2), x, 2, (2*I*EllipticE[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[Sinh[a + b*x]])/(b*Sqrt[I*Sinh[a + b*x]])}
22{1/Sinh[a + b*x]^(1/2), x, 2, (2*I*EllipticF[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[I*Sinh[a + b*x]])/(b*Sqrt[Sinh[a + b*x]])}
23{1/Sinh[a + b*x]^(3/2), x, 3, -((2*Cosh[a + b*x])/(b*Sqrt[Sinh[a + b*x]])) + (2*I*EllipticE[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[Sinh[a + b*x]])/(b*Sqrt[I*Sinh[a + b*x]])}
24{1/Sinh[a + b*x]^(5/2), x, 3, -((2*Cosh[a + b*x])/(3*b*Sinh[a + b*x]^(3/2))) - (2*I*EllipticF[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[I*Sinh[a + b*x]])/(3*b*Sqrt[Sinh[a + b*x]])}
25{1/Sinh[a + b*x]^(7/2), x, 4, -((2*Cosh[a + b*x])/(5*b*Sinh[a + b*x]^(5/2))) + (6*Cosh[a + b*x])/(5*b*Sqrt[Sinh[a + b*x]]) - (6*I*EllipticE[Pi/4 - (1/2)*I*(a + b*x), 2]*Sqrt[Sinh[a + b*x]])/(5*b*Sqrt[I*Sinh[a + b*x]])}
26
27
28(* ::Subsection::Closed:: *)
29(*x^m Sinh[a+b x]^n*)
30
31
32(* Integrands of the form x^m*Sinh[a+b*x]^n where m and n are integers *)
33{x*Sinh[a + b*x], x, 2, (x*Cosh[a + b*x])/b - Sinh[a + b*x]/b^2}
34{x*Sinh[a + b*x]^2, x, 2, -(x^2/4) + (x*Cosh[a + b*x]*Sinh[a + b*x])/(2*b) - Sinh[a + b*x]^2/(4*b^2)}
35{x*Sinh[a + b*x]^3, x, 3, -((2*x*Cosh[a + b*x])/(3*b)) + (2*Sinh[a + b*x])/(3*b^2) + (x*Cosh[a + b*x]*Sinh[a + b*x]^2)/(3*b) - Sinh[a + b*x]^3/(9*b^2)}
36
37{x^2*Sinh[a + b*x], x, 3, (2*Cosh[a + b*x])/b^3 + (x^2*Cosh[a + b*x])/b - (2*x*Sinh[a + b*x])/b^2}
38{x^2*Sinh[a + b*x]^2, x, 3, -(x/(4*b^2)) - x^3/6 + (Cosh[a + b*x]*Sinh[a + b*x])/(4*b^3) + (x^2*Cosh[a + b*x]*Sinh[a + b*x])/(2*b) - (x*Sinh[a + b*x]^2)/(2*b^2)}
39{x^2*Sinh[a + b*x]^3, x, 6, -((14*Cosh[a + b*x])/(9*b^3)) - (2*x^2*Cosh[a + b*x])/(3*b) + (2*Cosh[a + b*x]^3)/(27*b^3) + (4*x*Sinh[a + b*x])/(3*b^2) + (x^2*Cosh[a + b*x]*Sinh[a + b*x]^2)/(3*b) - (2*x*Sinh[a + b*x]^3)/(9*b^2)}
40
41{x^3*Sinh[a + b*x], x, 4, (6*x*Cosh[a + b*x])/b^3 + (x^3*Cosh[a + b*x])/b - (6*Sinh[a + b*x])/b^4 - (3*x^2*Sinh[a + b*x])/b^2}
42{x^3*Sinh[a + b*x]^2, x, 4, -((3*x^2)/(8*b^2)) - x^4/8 + (3*x*Cosh[a + b*x]*Sinh[a + b*x])/(4*b^3) + (x^3*Cosh[a + b*x]*Sinh[a + b*x])/(2*b) - (3*Sinh[a + b*x]^2)/(8*b^4) - (3*x^2*Sinh[a + b*x]^2)/(4*b^2)}
43{x^3*Sinh[a + b*x]^3, x, 8, -((40*x*Cosh[a + b*x])/(9*b^3)) - (2*x^3*Cosh[a + b*x])/(3*b) + (40*Sinh[a + b*x])/(9*b^4) + (2*x^2*Sinh[a + b*x])/b^2 + (2*x*Cosh[a + b*x]*Sinh[a + b*x]^2)/(9*b^3) + (x^3*Cosh[a + b*x]*Sinh[a + b*x]^2)/(3*b) - (2*Sinh[a + b*x]^3)/(27*b^4) - (x^2*Sinh[a + b*x]^3)/(3*b^2)}
44
45{Sinh[a + b*x^n]/x, x, 3, (CoshIntegral[b*x^n]*Sinh[a])/n + (Cosh[a]*SinhIntegral[b*x^n])/n}
46{Sinh[a + b*x^n]^2/x, x, 7, (Cosh[2*a]*CoshIntegral[2*b*x^n])/(2*n) - Log[x]/2 + (Sinh[2*a]*SinhIntegral[2*b*x^n])/(2*n), (Cosh[2*a]*CoshIntegral[2*b*x^n])/(2*n) - Log[x^n]/(2*n) + (Sinh[2*a]*SinhIntegral[2*b*x^n])/(2*n)}
47{Sinh[a + b*x^n]^3/x, x, 9, -((3*CoshIntegral[b*x^n]*Sinh[a])/(4*n)) + (CoshIntegral[3*b*x^n]*Sinh[3*a])/(4*n) - (3*Cosh[a]*SinhIntegral[b*x^n])/(4*n) + (Cosh[3*a]*SinhIntegral[3*b*x^n])/(4*n)}
48
49{Sinh[a + b*x]/x^2, x, 4, b*Cosh[a]*CoshIntegral[b*x] - Sinh[a + b*x]/x + b*Sinh[a]*SinhIntegral[b*x]}
50{Sinh[a + b*x]^2/x^2, x, 7, 1/(2*x) - Cosh[2*a + 2*b*x]/(2*x) + b*CoshIntegral[2*b*x]*Sinh[2*a] + b*Cosh[2*a]*SinhIntegral[2*b*x]}
51{Sinh[a + b*x]^3/x^2, x, 10, (-(3/4))*b*Cosh[a]*CoshIntegral[b*x] + (3/4)*b*Cosh[3*a]*CoshIntegral[3*b*x] + (3*Sinh[a + b*x])/(4*x) - Sinh[3*a + 3*b*x]/(4*x) - (3/4)*b*Sinh[a]*SinhIntegral[b*x] + (3/4)*b*Sinh[3*a]*SinhIntegral[3*b*x]}
52
53{Sinh[a + b*x]/x^3, x, 5, -((b*Cosh[a + b*x])/(2*x)) + (1/2)*b^2*CoshIntegral[b*x]*Sinh[a] - Sinh[a + b*x]/(2*x^2) + (1/2)*b^2*Cosh[a]*SinhIntegral[b*x]}
54{Sinh[a + b*x]^2/x^3, x, 8, b^2*Cosh[2*a]*CoshIntegral[2*b*x] - (b*Cosh[a + b*x]*Sinh[a + b*x])/x - Sinh[a + b*x]^2/(2*x^2) + b^2*Sinh[2*a]*SinhIntegral[2*b*x]}
55{Sinh[a + b*x]^3/x^3, x, 12, (-(3/8))*b^2*CoshIntegral[b*x]*Sinh[a] + (9/8)*b^2*CoshIntegral[3*b*x]*Sinh[3*a] - (3*b*Cosh[a + b*x]*Sinh[a + b*x]^2)/(2*x) - Sinh[a + b*x]^3/(2*x^2) - (3/8)*b^2*Cosh[a]*SinhIntegral[b*x] + (9/8)*b^2*Cosh[3*a]*SinhIntegral[3*b*x]}
56
57
58{x*Sinh[a + b*x^2]^7, x, 3, -(Cosh[a + b*x^2]/(2*b)) + Cosh[a + b*x^2]^3/(2*b) - (3*Cosh[a + b*x^2]^5)/(10*b) + Cosh[a + b*x^2]^7/(14*b)}
59
60
61{Sinh[x]/Sqrt[x], x, 4, (-(1/2))*Sqrt[Pi]*Erf[Sqrt[x]] + (1/2)*Sqrt[Pi]*Erfi[Sqrt[x]]}
62{Sqrt[x]*Sinh[x], x, 5, Sqrt[x]*Cosh[x] - (1/4)*Sqrt[Pi]*Erf[Sqrt[x]] - (1/4)*Sqrt[Pi]*Erfi[Sqrt[x]]}
63
64
65{Sinh[x]^(3/2)/x^3, x, 1, (3/8)*Int[1/(x*Sqrt[Sinh[x]]), x] + (9/8)*Int[Sinh[x]^(3/2)/x, x] - (3*Cosh[x]*Sqrt[Sinh[x]])/(4*x) - Sinh[x]^(3/2)/(2*x^2)}
66
67
68(* ::Subsection::Closed:: *)
69(*(a Sinh[a+b x]^n)^m*)
70
71
72(* Integrands of the form (a*Sinh[x]^2)^m where m is a half-integer *)
73{(a*Sinh[x]^2)^(5/2),x, 3, a^2*Coth[x]*Sqrt[a*Sinh[x]^2] - (2/3)*a^2*Cosh[x]^2*Coth[x]*Sqrt[a*Sinh[x]^2] + (1/5)*a^2*Cosh[x]^4*Coth[x]*Sqrt[a*Sinh[x]^2]}
74{(a*Sinh[x]^2)^(3/2),x, 3, (-a)*Coth[x]*Sqrt[a*Sinh[x]^2] + (1/3)*a*Cosh[x]^2*Coth[x]*Sqrt[a*Sinh[x]^2]}
75{(a*Sinh[x]^2)^(1/2), x, 2, Coth[x]*Sqrt[a*Sinh[x]^2]}
76{1/(a*Sinh[x]^2)^(1/2), x, 2, -((ArcCoth[Cosh[x]]*Sinh[x])/Sqrt[a*Sinh[x]^2])}
77{1/(a*Sinh[x]^2)^(3/2), x, 3, -(Coth[x]/(2*a*Sqrt[a*Sinh[x]^2])) + (ArcCoth[Cosh[x]]*Sinh[x])/(2*a*Sqrt[a*Sinh[x]^2])}
78{1/(a*Sinh[x]^2)^(5/2), x, 4, (3*Coth[x])/(8*a^2*Sqrt[a*Sinh[x]^2]) - (Coth[x]*Csch[x]^2)/(4*a^2*Sqrt[a*Sinh[x]^2]) - (3*ArcCoth[Cosh[x]]*Sinh[x])/(8*a^2*Sqrt[a*Sinh[x]^2])}
79
80
81(* Integrands of the form (a*Sinh[x]^4)^m where m is a half-integer *)
82{(a*Sinh[x]^3)^(5/2),x, 7, (2*a^2*Csch[x]^2*Sqrt[a*Sinh[x]^3]*(195*I*EllipticF[Pi/4 - (I*x)/2, 2]*Sqrt[I*Sinh[x]] - Cosh[x]*Sinh[x]*(195 - 117*Sinh[x]^2 + 91*Sinh[x]^4 - 77*Sinh[x]^6)))/1155}
83{(a*Sinh[x]^3)^(3/2),x, 5, (2/45)*a*Csch[x]*Sqrt[a*Sinh[x]^3]*((21*I*EllipticE[Pi/4 - (I*x)/2, 2])/Sqrt[I*Sinh[x]] - 7*Cosh[x]*Sinh[x] + 5*Cosh[x]*Sinh[x]^3)}
84{(a*Sinh[x]^3)^(1/2), x, 4, (-(2/3))*Csch[x]^2*Sqrt[a*Sinh[x]^3]*(I*EllipticF[Pi/4 - (I*x)/2, 2]*Sqrt[I*Sinh[x]] - Cosh[x]*Sinh[x])}
85{1/(a*Sinh[x]^3)^(1/2), x, 4, -((2*Sinh[x]*(Cosh[x] - (I*EllipticE[Pi/4 - (I*x)/2, 2]*Sinh[x])/Sqrt[I*Sinh[x]]))/Sqrt[a*Sinh[x]^3])}
86{1/(a*Sinh[x]^3)^(3/2),x, 5, (2*(5*Coth[x] - 3*Coth[x]*Csch[x]^2 + 5*I*EllipticF[Pi/4 - (I*x)/2, 2]*Sqrt[I*Sinh[x]])*Sinh[x])/(21*a*Sqrt[a*Sinh[x]^3])}
87{1/(a*Sinh[x]^3)^(5/2),x, 7, -((2*Csch[x]^5*(45*Cosh[x] - 11*Sinh[x]^2*(5*Cosh[x] - 7*Sinh[x]^2*(Cosh[x] - 3*Sinh[x]^2*(Cosh[x] - (I*EllipticE[Pi/4 - (I*x)/2, 2]*Sinh[x])/Sqrt[I*Sinh[x]])))))/(585*a^2*Sqrt[a*Sinh[x]^3]))}
88
89
90(* Integrands of the form (a*Sinh[x]^4)^m where m is a half-integer *)
91{(a*Sinh[x]^4)^(5/2),x, 6, (63/256)*a^2*Coth[x]*Sqrt[a*Sinh[x]^4] - (63/256)*a^2*x*Csch[x]^2*Sqrt[a*Sinh[x]^4] - (21/128)*a^2*Cosh[x]*Sinh[x]*Sqrt[a*Sinh[x]^4] + (21/160)*a^2*Cosh[x]*Sinh[x]^3*Sqrt[a*Sinh[x]^4] - (9/80)*a^2*Cosh[x]*Sinh[x]^5*Sqrt[a*Sinh[x]^4] + (1/10)*a^2*Cosh[x]*Sinh[x]^7*Sqrt[a*Sinh[x]^4]}
92{(a*Sinh[x]^4)^(3/2),x, 4, (5/16)*a*Coth[x]*Sqrt[a*Sinh[x]^4] - (5/16)*a*x*Csch[x]^2*Sqrt[a*Sinh[x]^4] - (5/24)*a*Cosh[x]*Sinh[x]*Sqrt[a*Sinh[x]^4] + (1/6)*a*Cosh[x]*Sinh[x]^3*Sqrt[a*Sinh[x]^4]}
93{(a*Sinh[x]^4)^(1/2), x, 2, (1/2)*Coth[x]*Sqrt[a*Sinh[x]^4] - (1/2)*x*Csch[x]^2*Sqrt[a*Sinh[x]^4]}
94{1/(a*Sinh[x]^4)^(1/2), x, 2, -((Cosh[x]*Sinh[x])/Sqrt[a*Sinh[x]^4])}
95{1/(a*Sinh[x]^4)^(3/2),x, 4, (2*Cosh[x]^2*Coth[x])/(3*a*Sqrt[a*Sinh[x]^4]) - (Cosh[x]^2*Coth[x]^3)/(5*a*Sqrt[a*Sinh[x]^4]) - (Cosh[x]*Sinh[x])/(a*Sqrt[a*Sinh[x]^4])}
96{1/(a*Sinh[x]^4)^(5/2),x, 4, (4*Cosh[x]^2*Coth[x])/(3*a^2*Sqrt[a*Sinh[x]^4]) - (6*Cosh[x]^2*Coth[x]^3)/(5*a^2*Sqrt[a*Sinh[x]^4]) + (4*Cosh[x]^2*Coth[x]^5)/(7*a^2*Sqrt[a*Sinh[x]^4]) - (Cosh[x]^2*Coth[x]^7)/(9*a^2*Sqrt[a*Sinh[x]^4]) - (Cosh[x]*Sinh[x])/(a^2*Sqrt[a*Sinh[x]^4])}
97
98
99(* ::Subsection::Closed:: *)
100(*(a+b Sinh[c+d x])^n*)
101
102
103(* Integrands of the form (a+b*Sinh[c+d*x])^n where n is an integer *)
104{(a + b*Sinh[c + d*x])^4, x, 8, a^4*x - 3*a^2*b^2*x + (3*b^4*x)/8 + (4*a^3*b*Cosh[c + d*x])/d - (4*a*b^3*Cosh[c + d*x])/d + (4*a*b^3*Cosh[c + d*x]^3)/(3*d) + (3*a^2*b^2*Cosh[c + d*x]*Sinh[c + d*x])/d - (3*b^4*Cosh[c + d*x]*Sinh[c + d*x])/(8*d) + (b^4*Cosh[c + d*x]*Sinh[c + d*x]^3)/(4*d)}
105{(a + b*Sinh[c + d*x])^3, x, 6, a^3*x - (3/2)*a*b^2*x + (3*a^2*b*Cosh[c + d*x])/d - (b^3*Cosh[c + d*x])/d + (b^3*Cosh[c + d*x]^3)/(3*d) + (3*a*b^2*Cosh[c + d*x]*Sinh[c + d*x])/(2*d)}
106{(a + b*Sinh[c + d*x])^2, x, 4, a^2*x - (b^2*x)/2 + (2*a*b*Cosh[c + d*x])/d + (b^2*Cosh[c + d*x]*Sinh[c + d*x])/(2*d)}
107{(a + b*Sinh[c + d*x]), x, 2, a*x + (b*Cosh[c + d*x])/d}
108{1/(a + b*Sinh[c + d*x]), x, 1, -((2*ArcTanh[(b - a*Tanh[(1/2)*(c + d*x)])/Sqrt[a^2 + b^2]])/(Sqrt[a^2 + b^2]*d))}
109{1/(a + b*Sinh[c + d*x])^2, x, 2, -((2*a*ArcTanh[(b - a*Tanh[(1/2)*(c + d*x)])/Sqrt[a^2 + b^2]])/((a^2 + b^2)^(3/2)*d)) - (b*Cosh[c + d*x])/((a^2 + b^2)*d*(a + b*Sinh[c + d*x]))}
110{1/(a + b*Sinh[c + d*x])^3, x, 3, -(((2*a^2 - b^2)*ArcTanh[(b - a*Tanh[(1/2)*(c + d*x)])/Sqrt[a^2 + b^2]])/((a^2 + b^2)^(5/2)*d)) - (b*Cosh[c + d*x])/(2*(a^2 + b^2)*d*(a + b*Sinh[c + d*x])^2) - (3*a*b*Cosh[c + d*x])/(2*(a^2 + b^2)^2*d*(a + b*Sinh[c + d*x]))}
111{1/(a + b*Sinh[c + d*x])^4, x, 4, -((a*(2*a^2 - 3*b^2)*ArcTanh[(b - a*Tanh[(1/2)*(c + d*x)])/Sqrt[a^2 + b^2]])/((a^2 + b^2)^(7/2)*d)) - (b*Cosh[c + d*x])/(3*(a^2 + b^2)*d*(a + b*Sinh[c + d*x])^3) - (5*a*b*Cosh[c + d*x])/(6*(a^2 + b^2)^2*d*(a + b*Sinh[c + d*x])^2) - (b*(11*a^2 - 4*b^2)*Cosh[c + d*x])/(6*(a^2 + b^2)^3*d*(a + b*Sinh[c + d*x]))}
112
113{1/(1 + I*Sinh[c + d*x]), x, 1, -(Cosh[c + d*x]/(d*(I - Sinh[c + d*x])))}
114{1/(1 + I*Sinh[c + d*x])^2, x, 2, -(Cosh[c + d*x]/(3*d*(I - Sinh[c + d*x]))) + (I*Cosh[c + d*x])/(3*d*(1 + I*Sinh[c + d*x])^2)}
115{1/(1 + I*Sinh[c + d*x])^3, x, 3, -((2*Cosh[c + d*x])/(15*d*(I - Sinh[c + d*x]))) + (I*Cosh[c + d*x])/(5*d*(1 + I*Sinh[c + d*x])^3) + (2*I*Cosh[c + d*x])/(15*d*(1 + I*Sinh[c + d*x])^2)}
116{1/(1 + I*Sinh[c + d*x])^4, x, 4, -((2*Cosh[c + d*x])/(35*d*(I - Sinh[c + d*x]))) + (I*Cosh[c + d*x])/(7*d*(1 + I*Sinh[c + d*x])^4) + (3*I*Cosh[c + d*x])/(35*d*(1 + I*Sinh[c + d*x])^3) + (2*I*Cosh[c + d*x])/(35*d*(1 + I*Sinh[c + d*x])^2)}
117
118{1/(1 - I*Sinh[c + d*x]), x, 1, Cosh[c + d*x]/(d*(I + Sinh[c + d*x]))}
119{1/(1 - I*Sinh[c + d*x])^2, x, 2, -((I*Cosh[c + d*x])/(3*d*(1 - I*Sinh[c + d*x])^2)) + Cosh[c + d*x]/(3*d*(I + Sinh[c + d*x]))}
120{1/(1 - I*Sinh[c + d*x])^3, x, 3, -((I*Cosh[c + d*x])/(5*d*(1 - I*Sinh[c + d*x])^3)) - (2*I*Cosh[c + d*x])/(15*d*(1 - I*Sinh[c + d*x])^2) + (2*Cosh[c + d*x])/(15*d*(I + Sinh[c + d*x]))}
121{1/(1 - I*Sinh[c + d*x])^4, x, 4, -((I*Cosh[c + d*x])/(7*d*(1 - I*Sinh[c + d*x])^4)) - (3*I*Cosh[c + d*x])/(35*d*(1 - I*Sinh[c + d*x])^3) - (2*I*Cosh[c + d*x])/(35*d*(1 - I*Sinh[c + d*x])^2) + (2*Cosh[c + d*x])/(35*d*(I + Sinh[c + d*x]))}
122
123{1/(3 + 5*I*Sinh[c + d*x]), x, 1, ArcTan[(1/4)*(5*I - 3*Tanh[(1/2)*(c + d*x)])]/(2*d)}
124{1/(3 + 5*I*Sinh[c + d*x])^2, x, 2, -((3*ArcTan[(1/4)*(5*I - 3*Tanh[(1/2)*(c + d*x)])])/(32*d)) + (5*I*Cosh[c + d*x])/(16*d*(3 + 5*I*Sinh[c + d*x]))}
125{1/(3 + 5*I*Sinh[c + d*x])^3, x, 3, (43*ArcTan[(1/4)*(5*I - 3*Tanh[(1/2)*(c + d*x)])])/(1024*d) + (5*I*Cosh[c + d*x])/(32*d*(3 + 5*I*Sinh[c + d*x])^2) - (45*I*Cosh[c + d*x])/(512*d*(3 + 5*I*Sinh[c + d*x]))}
126{1/(3 + 5*I*Sinh[c + d*x])^4, x, 4, -((279*ArcTan[(1/4)*(5*I - 3*Tanh[(1/2)*(c + d*x)])])/(16384*d)) + (5*I*Cosh[c + d*x])/(48*d*(3 + 5*I*Sinh[c + d*x])^3) - (25*I*Cosh[c + d*x])/(512*d*(3 + 5*I*Sinh[c + d*x])^2) + (995*I*Cosh[c + d*x])/(24576*d*(3 + 5*I*Sinh[c + d*x]))}
127
128{1/(5 + 3*I*Sinh[c + d*x]), x, 1, -(ArcTanh[(1/4)*(3*I - 5*Tanh[(1/2)*(c + d*x)])]/(2*d))}
129{1/(5 + 3*I*Sinh[c + d*x])^2, x, 2, -((5*ArcTanh[(1/4)*(3*I - 5*Tanh[(1/2)*(c + d*x)])])/(32*d)) - (3*I*Cosh[c + d*x])/(16*d*(5 + 3*I*Sinh[c + d*x]))}
130{1/(5 + 3*I*Sinh[c + d*x])^3, x, 3, -((59*ArcTanh[(1/4)*(3*I - 5*Tanh[(1/2)*(c + d*x)])])/(1024*d)) - (3*I*Cosh[c + d*x])/(32*d*(5 + 3*I*Sinh[c + d*x])^2) - (45*I*Cosh[c + d*x])/(512*d*(5 + 3*I*Sinh[c + d*x]))}
131{1/(5 + 3*I*Sinh[c + d*x])^4, x, 4, -((385*ArcTanh[(1/4)*(3*I - 5*Tanh[(1/2)*(c + d*x)])])/(16384*d)) - (I*Cosh[c + d*x])/(16*d*(5 + 3*I*Sinh[c + d*x])^3) - (25*I*Cosh[c + d*x])/(512*d*(5 + 3*I*Sinh[c + d*x])^2) - (311*I*Cosh[c + d*x])/(8192*d*(5 + 3*I*Sinh[c + d*x]))}
132
133
134(* Integrands of the form (I*Sinh[x])^m where m is a half-integer *)
135{(I*Sinh[x])^(7/2), x, 3, (10/21)*I*EllipticF[Pi/4 - (I*x)/2, 2] + (10/21)*I*Cosh[x]*Sqrt[I*Sinh[x]] + (2/7)*I*Cosh[x]*(I*Sinh[x])^(5/2)}
136{(I*Sinh[x])^(5/2), x, 2, (6/5)*I*EllipticE[Pi/4 - (I*x)/2, 2] + (2/5)*I*Cosh[x]*(I*Sinh[x])^(3/2)}
137{(I*Sinh[x])^(3/2),x, 2, (2/3)*I*EllipticF[Pi/4 - (I*x)/2, 2] + (2/3)*I*Cosh[x]*Sqrt[I*Sinh[x]]}
138{(I*Sinh[x])^(1/2), x, 1, 2*I*EllipticE[Pi/4 - (I*x)/2, 2]}
139{1/(I*Sinh[x])^(1/2), x, 1, 2*I*EllipticF[Pi/4 - (I*x)/2, 2]}
140{1/(I*Sinh[x])^(3/2), x, 2, -2*I*EllipticE[Pi/4 - (I*x)/2, 2] + (2*I*Cosh[x])/Sqrt[I*Sinh[x]]}
141{1/(I*Sinh[x])^(5/2), x, 2, (2/3)*I*EllipticF[Pi/4 - (I*x)/2, 2] + (2*I*Cosh[x])/(3*(I*Sinh[x])^(3/2))}
142{1/(I*Sinh[x])^(7/2), x, 3, (-(6/5))*I*EllipticE[Pi/4 - (I*x)/2, 2] + (2*I*Cosh[x])/(5*(I*Sinh[x])^(5/2)) + (6*I*Cosh[x])/(5*Sqrt[I*Sinh[x]])}
143
144
145(* Integrands of the form (a*Sinh[x])^m where m is a half-integer *)
146{(a*Sinh[x])^(7/2), x, 4, (10*I*a^4*EllipticF[Pi/4 - (I*x)/2, 2]*Sqrt[I*Sinh[x]])/(21*Sqrt[a*Sinh[x]]) - (10/21)*a^3*Cosh[x]*Sqrt[a*Sinh[x]] + (2/7)*a*Cosh[x]*(a*Sinh[x])^(5/2)}
147{(a*Sinh[x])^(5/2), x, 3, -((6*I*a^2*EllipticE[Pi/4 - (I*x)/2, 2]*Sqrt[a*Sinh[x]])/(5*Sqrt[I*Sinh[x]])) + (2/5)*a*Cosh[x]*(a*Sinh[x])^(3/2)}
148{(a*Sinh[x])^(3/2),x, 3, -((2*I*a^2*EllipticF[Pi/4 - (I*x)/2, 2]*Sqrt[I*Sinh[x]])/(3*Sqrt[a*Sinh[x]])) + (2/3)*a*Cosh[x]*Sqrt[a*Sinh[x]]}
149{(a*Sinh[x])^(1/2), x, 2, (2*I*EllipticE[Pi/4 - (I*x)/2, 2]*Sqrt[a*Sinh[x]])/Sqrt[I*Sinh[x]]}
150{1/(a*Sinh[x])^(1/2), x, 2, (2*I*EllipticF[Pi/4 - (I*x)/2, 2]*Sqrt[I*Sinh[x]])/Sqrt[a*Sinh[x]]}
151{1/(a*Sinh[x])^(3/2), x, 3, -((2*Cosh[x])/(a*Sqrt[a*Sinh[x]])) + (2*I*EllipticE[Pi/4 - (I*x)/2, 2]*Sqrt[a*Sinh[x]])/(a^2*Sqrt[I*Sinh[x]])}
152{1/(a*Sinh[x])^(5/2), x, 3, -((2*Cosh[x])/(3*a*(a*Sinh[x])^(3/2))) - (2*I*EllipticF[Pi/4 - (I*x)/2, 2]*Sqrt[I*Sinh[x]])/(3*a^2*Sqrt[a*Sinh[x]])}
153{1/(a*Sinh[x])^(7/2), x, 4, -((2*Cosh[x])/(5*a*(a*Sinh[x])^(5/2))) + (6*Cosh[x])/(5*a^3*Sqrt[a*Sinh[x]]) - (6*I*EllipticE[Pi/4 - (I*x)/2, 2]*Sqrt[a*Sinh[x]])/(5*a^4*Sqrt[I*Sinh[x]])}
154
155
156(* Integrands of the form (a+b*Sinh[c+d*x])^n where n is a half- integer*)
157{(a + b*Sinh[x])^(5/2), x, 7, (16/15)*a*b*Cosh[x]*Sqrt[a + b*Sinh[x]] + (2/5)*b*Cosh[x]*(a + b*Sinh[x])^(3/2) + (2*I*(23*a^2 - 9*b^2)*EllipticE[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[a + b*Sinh[x]])/(15*Sqrt[(a + b*Sinh[x])/(a - I*b)]) - (16*I*a*(a^2 + b^2)*EllipticF[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[(a + b*Sinh[x])/(a - I*b)])/(15*Sqrt[a + b*Sinh[x]])}
158{(a + b*Sinh[x])^(3/2), x, 6, (2/3)*b*Cosh[x]*Sqrt[a + b*Sinh[x]] + (8*I*a*EllipticE[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[a + b*Sinh[x]])/(3*Sqrt[(a + b*Sinh[x])/(a - I*b)]) - (2*I*(a^2 + b^2)*EllipticF[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[(a + b*Sinh[x])/(a - I*b)])/(3*Sqrt[a + b*Sinh[x]])}
159{(a + b*Sinh[x])^(1/2), x, 2, (2*I*EllipticE[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[a + b*Sinh[x]])/Sqrt[(a + b*Sinh[x])/(a - I*b)]}
160{1/(a + b*Sinh[x])^(1/2), x, 2, (2*I*EllipticF[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[(a + b*Sinh[x])/(a - I*b)])/Sqrt[a + b*Sinh[x]]}
161{1/(a + b*Sinh[x])^(3/2), x, 3, -((2*b*Cosh[x])/((a^2 + b^2)*Sqrt[a + b*Sinh[x]])) + (2*I*EllipticE[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[a + b*Sinh[x]])/((a^2 + b^2)*Sqrt[(a + b*Sinh[x])/(a - I*b)])}
162{1/(a + b*Sinh[x])^(5/2), x, 7, -((2*b*Cosh[x])/(3*(a^2 + b^2)*(a + b*Sinh[x])^(3/2))) - (8*a*b*Cosh[x])/(3*(a^2 + b^2)^2*Sqrt[a + b*Sinh[x]]) + (8*I*a*EllipticE[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[a + b*Sinh[x]])/(3*(a^2 + b^2)^2*Sqrt[(a + b*Sinh[x])/(a - I*b)]) - (2*I*EllipticF[Pi/4 - (I*x)/2, -((2*I*b)/(a - I*b))]*Sqrt[(a + b*Sinh[x])/(a - I*b)])/(3*(a^2 + b^2)*Sqrt[a + b*Sinh[x]])}
163
164{(a + a*I*Sinh[c + d*x])^(5/2), x, 3, (64*I*a^3*Cosh[c + d*x])/(15*d*Sqrt[a + I*a*Sinh[c + d*x]]) + (16*I*a^2*Cosh[c + d*x]*Sqrt[a + I*a*Sinh[c + d*x]])/(15*d) + (2*I*a*Cosh[c + d*x]*(a + I*a*Sinh[c + d*x])^(3/2))/(5*d)}
165{(a + a*I*Sinh[c + d*x])^(3/2), x, 2, (8*I*a^2*Cosh[c + d*x])/(3*d*Sqrt[a + I*a*Sinh[c + d*x]]) + (2*I*a*Cosh[c + d*x]*Sqrt[a + I*a*Sinh[c + d*x]])/(3*d)}
166{(a + a*I*Sinh[c + d*x])^(1/2), x, 1, (2*I*a*Cosh[c + d*x])/(d*Sqrt[a + I*a*Sinh[c + d*x]])}
167{1/(a + a*I*Sinh[c + d*x])^(1/2), x, 1, (2*I*ArcTanh[Sin[Pi/4 - (1/2)*I*(c + d*x)]]*Cos[Pi/4 - (1/2)*I*(c + d*x)])/(d*Sqrt[a + I*a*Sinh[c + d*x]])}
168{1/(a + a*I*Sinh[c + d*x])^(3/2), x, 2, (I*Cosh[c + d*x])/(2*d*(a + I*a*Sinh[c + d*x])^(3/2)) + (I*ArcTanh[Sin[Pi/4 - (1/2)*I*(c + d*x)]]*Cos[Pi/4 - (1/2)*I*(c + d*x)])/(2*a*d*Sqrt[a + I*a*Sinh[c + d*x]])}
169{1/(a + a*I*Sinh[c + d*x])^(5/2), x, 3, (I*Cosh[c + d*x])/(4*d*(a + I*a*Sinh[c + d*x])^(5/2)) + (3*I*Cosh[c + d*x])/(16*a*d*(a + I*a*Sinh[c + d*x])^(3/2)) + (3*I*ArcTanh[Sin[Pi/4 - (1/2)*I*(c + d*x)]]*Cos[Pi/4 - (1/2)*I*(c + d*x)])/(16*a^2*d*Sqrt[a + I*a*Sinh[c + d*x]])}
170
171
172(* ::Subsection::Closed:: *)
173(*x^m (a+b Sinh[c+d x])^n*)
174
175
176(* Integrands of the form x^m/(a+b*Sinh[x]) where m is an integer *)
177{x/(a + b*Sinh[x]), x, 8, (x*Log[1 + (b*E^x)/(a - Sqrt[a^2 + b^2])])/Sqrt[a^2 + b^2] - (x*Log[1 + (b*E^x)/(a + Sqrt[a^2 + b^2])])/Sqrt[a^2 + b^2] + PolyLog[2, -((b*E^x)/(a - Sqrt[a^2 + b^2]))]/Sqrt[a^2 + b^2] - PolyLog[2, -((b*E^x)/(a + Sqrt[a^2 + b^2]))]/Sqrt[a^2 + b^2]}
178{x^2/(a + b*Sinh[x]), x, 10, (x^2*Log[1 + (b*E^x)/(a - Sqrt[a^2 + b^2])])/Sqrt[a^2 + b^2] - (x^2*Log[1 + (b*E^x)/(a + Sqrt[a^2 + b^2])])/Sqrt[a^2 + b^2] + (2*x*PolyLog[2, -((b*E^x)/(a - Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] - (2*x*PolyLog[2, -((b*E^x)/(a + Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] - (2*PolyLog[3, -((b*E^x)/(a - Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] + (2*PolyLog[3, -((b*E^x)/(a + Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2]}
179{x^3/(a + b*Sinh[x]), x, 12, (x^3*Log[1 + (b*E^x)/(a - Sqrt[a^2 + b^2])])/Sqrt[a^2 + b^2] - (x^3*Log[1 + (b*E^x)/(a + Sqrt[a^2 + b^2])])/Sqrt[a^2 + b^2] + (3*x^2*PolyLog[2, -((b*E^x)/(a - Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] - (3*x^2*PolyLog[2, -((b*E^x)/(a + Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] - (6*x*PolyLog[3, -((b*E^x)/(a - Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] + (6*x*PolyLog[3, -((b*E^x)/(a + Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] + (6*PolyLog[4, -((b*E^x)/(a - Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2] - (6*PolyLog[4, -((b*E^x)/(a + Sqrt[a^2 + b^2]))])/Sqrt[a^2 + b^2]}
180
181{x/(1 + I*Sinh[x]), x, 3, -2*Log[Cos[Pi/4 - (I*x)/2]] + I*x*Tan[Pi/4 - (I*x)/2]}
182{x^2/(1 + I*Sinh[x]), x, 6, x^2 - 4*x*Log[1 + E^((I*Pi)/2 + x)] - 4*PolyLog[2, -E^((I*Pi)/2 + x)] + I*x^2*Tan[Pi/4 - (I*x)/2]}
183{x^3/(1 + I*Sinh[x]), x, 7, x^3 - 6*x^2*Log[1 + E^((I*Pi)/2 + x)] - 12*x*PolyLog[2, -E^((I*Pi)/2 + x)] + 12*PolyLog[3, -E^((I*Pi)/2 + x)] + I*x^3*Tan[Pi/4 - (I*x)/2]}
184
185{x/(1 - I*Sinh[x]), x, 3, -2*Log[Cos[Pi/4 + (I*x)/2]] - I*x*Tan[Pi/4 + (I*x)/2]}
186{x^2/(1 - I*Sinh[x]), x, 6, -x^2 - 4*x*Log[1 + E^((I*Pi)/2 - x)] + 4*PolyLog[2, -E^((I*Pi)/2 - x)] - I*x^2*Tan[Pi/4 + (I*x)/2]}
187{x^3/(1 - I*Sinh[x]), x, 7, -x^3 - 6*x^2*Log[1 + E^((I*Pi)/2 - x)] + 12*x*PolyLog[2, -E^((I*Pi)/2 - x)] + 12*PolyLog[3, -E^((I*Pi)/2 - x)] - I*x^3*Tan[Pi/4 + (I*x)/2]}
188
189
190{x/(a + b*Sinh[c + d*x])^2, x, 12, (a*x*Log[1 + (b*E^(c + d*x))/(a - Sqrt[a^2 + b^2])])/((a^2 + b^2)^(3/2)*d) - (a*x*Log[1 + (b*E^(c + d*x))/(a + Sqrt[a^2 + b^2])])/((a^2 + b^2)^(3/2)*d) + Log[a + b*Sinh[c + d*x]]/((a^2 + b^2)*d^2) + (a*PolyLog[2, -((b*E^(c + d*x))/(a - Sqrt[a^2 + b^2]))])/((a^2 + b^2)^(3/2)*d^2) - (a*PolyLog[2, -((b*E^(c + d*x))/(a + Sqrt[a^2 + b^2]))])/((a^2 + b^2)^(3/2)*d^2) - (b*x*Cosh[c + d*x])/((a^2 + b^2)*d*(a + b*Sinh[c + d*x]))}
191{(e + f*x)/(a + b*Sinh[c + d*x])^2, x, 16, -((2*a*e*ArcTanh[(b - a*Tanh[(1/2)*(c + d*x)])/Sqrt[a^2 + b^2]])/((a^2 + b^2)^(3/2)*d)) + (a*f*x*Log[1 + (b*E^(c + d*x))/(a - Sqrt[a^2 + b^2])])/((a^2 + b^2)^(3/2)*d) - (a*f*x*Log[1 + (b*E^(c + d*x))/(a + Sqrt[a^2 + b^2])])/((a^2 + b^2)^(3/2)*d) + (f*Log[a + b*Sinh[c + d*x]])/((a^2 + b^2)*d^2) + (a*f*PolyLog[2, -((b*E^(c + d*x))/(a - Sqrt[a^2 + b^2]))])/((a^2 + b^2)^(3/2)*d^2) - (a*f*PolyLog[2, -((b*E^(c + d*x))/(a + Sqrt[a^2 + b^2]))])/((a^2 + b^2)^(3/2)*d^2) - (b*e*Cosh[c + d*x])/((a^2 + b^2)*d*(a + b*Sinh[c + d*x])) - (b*f*x*Cosh[c + d*x])/((a^2 + b^2)*d*(a + b*Sinh[c + d*x]))}
192
193
194(* Integrands of the form x^m*(a+a*I*Sinh[x])^n where m is an integer and n is a half-integer *)
195{x^3*Sqrt[a + a*I*Sinh[x]], x, 5, -96*Sqrt[a + I*a*Sinh[x]] - 12*x^2*Sqrt[a + I*a*Sinh[x]] + 48*I*x*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2] + 2*I*x^3*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2]}
196{x^2*Sqrt[a + a*I*Sinh[x]], x, 4, -8*x*Sqrt[a + I*a*Sinh[x]] + 16*I*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2] + 2*I*x^2*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2]}
197{x*Sqrt[a + a*I*Sinh[x]], x, 3, -4*Sqrt[a + I*a*Sinh[x]] + 2*I*x*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2]}
198{Sqrt[a + a*I*Sinh[x]], x, 1, (2*I*a*Cosh[x])/Sqrt[a + I*a*Sinh[x]]}
199{Sqrt[a + a*I*Sinh[x]]/x, x, 5, (CoshIntegral[x/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/Sqrt[2] + (I*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[x/2])/Sqrt[2]}
200{Sqrt[a + a*I*Sinh[x]]/x^2, x, 6, -(Sqrt[a + I*a*Sinh[x]]/x) + (I*CoshIntegral[x/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*Sqrt[2]) + (Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[x/2])/(2*Sqrt[2])}
201{Sqrt[a + a*I*Sinh[x]]/x^3, x, 7, -(Sqrt[a + I*a*Sinh[x]]/(2*x^2)) + (CoshIntegral[x/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(8*Sqrt[2]) + (I*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[x/2])/(8*Sqrt[2]) - (I*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2])/(4*x)}
202
203{x^3*(a + a*I*Sinh[x])^(3/2), x, 9, (-(1280/9))*a*Sqrt[a + I*a*Sinh[x]] - 16*a*x^2*Sqrt[a + I*a*Sinh[x]] - (64/27)*a*Cos[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]] - (8/3)*a*x^2*Cos[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]] + (32/9)*I*a*x*Cos[Pi/4 - (I*x)/2]*Sin[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]] + (4/3)*I*a*x^3*Cos[Pi/4 - (I*x)/2]*Sin[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]] + (640/9)*I*a*x*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2] + (8/3)*I*a*x^3*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2]}
204{x^2*(a + a*I*Sinh[x])^(3/2), x, 7, (-(32/3))*a*x*Sqrt[a + I*a*Sinh[x]] - (16/9)*a*x*Cos[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]] + (4/3)*I*a*x^2*Cos[Pi/4 - (I*x)/2]*Sin[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]] + (224/9)*I*a*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2] + (8/3)*I*a*x^2*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2] - (32/27)*I*a*Sin[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2]}
205{x*(a + a*I*Sinh[x])^(3/2), x, 4, (-(16/3))*a*Sqrt[a + I*a*Sinh[x]] - (8/9)*a*Cos[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]] + (4/3)*I*a*x*Cos[Pi/4 - (I*x)/2]*Sin[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]] + (8/3)*I*a*x*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2]}
206{(a + a*I*Sinh[x])^(3/2), x, 2, (8*I*a^2*Cosh[x])/(3*Sqrt[a + I*a*Sinh[x]]) + (2/3)*I*a*Cosh[x]*Sqrt[a + I*a*Sinh[x]]}
207{(a + a*I*Sinh[x])^(3/2)/x, x, 11, (3*a*CoshIntegral[x/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*Sqrt[2]) - (a*CoshIntegral[(3*x)/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*Sqrt[2]) + (3*I*a*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[x/2])/(2*Sqrt[2]) + (I*a*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[(3*x)/2])/(2*Sqrt[2])}
208{(a + a*I*Sinh[x])^(3/2)/x^2, x, 13, (a*Cos[Pi/4 + (3*I*x)/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*x) + (3*I*a*CoshIntegral[x/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(4*Sqrt[2]) + (3*I*a*CoshIntegral[(3*x)/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(4*Sqrt[2]) - (3*a*Sec[Pi/4 - (I*x)/2]*Sin[Pi/4 + (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*x) + (3*a*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[x/2])/(4*Sqrt[2]) - (3*a*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[(3*x)/2])/(4*Sqrt[2])}
209{(a + a*I*Sinh[x])^(3/2)/x^3, x, 16, -((a*Cos[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]])/x^2) + (3*a*CoshIntegral[x/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(16*Sqrt[2]) - (9*a*CoshIntegral[(3*x)/2]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(16*Sqrt[2]) - (3*I*a*Cos[Pi/4 - (I*x)/2]*Sin[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*x) + (3*I*a*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[x/2])/(16*Sqrt[2]) + (9*I*a*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]]*SinhIntegral[(3*x)/2])/(16*Sqrt[2])}
210
211{x^3/Sqrt[a + a*I*Sinh[x]], x, 9, (2*x^3*ArcTan[E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a - (6*I*x^2*PolyLog[2, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a + (6*I*x^2*PolyLog[2, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a + (24*I*x*PolyLog[3, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a - (24*I*x*PolyLog[3, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a - (48*I*PolyLog[4, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a + (48*I*PolyLog[4, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a}
212{x^2/Sqrt[a + a*I*Sinh[x]], x, 7, (2*x^2*ArcTan[E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a - (4*I*x*PolyLog[2, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a + (4*I*x*PolyLog[2, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a + (8*I*PolyLog[3, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a - (8*I*PolyLog[3, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a}
213{x/Sqrt[a + a*I*Sinh[x]], x, 5, (2*x*ArcTan[E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a - (2*I*PolyLog[2, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a + (2*I*PolyLog[2, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a}
214{1/Sqrt[a + a*I*Sinh[x]], x, 1, (2*I*ArcTanh[Sin[Pi/4 - (I*x)/2]]*Cos[Pi/4 - (I*x)/2])/Sqrt[a + I*a*Sinh[x]]}
215{1/(x*Sqrt[a + a*I*Sinh[x]]), x, 2, (Int[Csc[Pi/4 + (I*x)/2]/x, x]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*a)}
216
217(* {x^3/(a + a*I*Sinh[x])^(3/2), x, 14, (3*I*(8 - x^2)*Csc[(1/4)*(Pi + 2*I*x)]*PolyLog[2, (-I)*E^((I*Pi)/4 + x/2)]*Sqrt[a + I*a*Sinh[x]])/(2*a^2) - (3*I*(8 - x^2)*Csc[(1/4)*(Pi + 2*I*x)]*PolyLog[2, I*E^((I*Pi)/4 + x/2)]*Sqrt[a + I*a*Sinh[x]])/(2*a^2) - (12*x*ArcTan[E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 + (x^3*ArcTan[E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*a^2) + (6*I*x*PolyLog[3, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 - (6*I*x*PolyLog[3, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 - (12*I*PolyLog[4, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 + (12*I*PolyLog[4, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 + (3*x^2*Sec[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]])/(2*a^2) + (I*x^3*Sec[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2])/(4*a^2)} *)
218{x^2/(a + a*I*Sinh[x])^(3/2), x, 9, (x^2*ArcTan[E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*a^2) - (2*I*ArcTanh[Sin[Pi/4 - (I*x)/2]]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 - (I*x*PolyLog[2, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 + (I*x*PolyLog[2, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 + (2*I*PolyLog[3, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 - (2*I*PolyLog[3, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/a^2 + (x*Sec[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]])/a^2 + (I*x^2*Sec[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2])/(4*a^2)}
219{x/(a + a*I*Sinh[x])^(3/2), x, 6, (x*ArcTan[E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*a^2) - (I*PolyLog[2, (-I)*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*a^2) + (I*PolyLog[2, I*E^((I*Pi)/4 + x/2)]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(2*a^2) + (Sec[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]])/(2*a^2) + (I*x*Sec[Pi/4 - (I*x)/2]^2*Sqrt[a + I*a*Sinh[x]]*Tan[Pi/4 - (I*x)/2])/(4*a^2)}
220{1/(a + a*I*Sinh[x])^(3/2), x, 2, (I*Cosh[x])/(2*(a + I*a*Sinh[x])^(3/2)) + (I*ArcTanh[Sin[Pi/4 - (I*x)/2]]*Cos[Pi/4 - (I*x)/2])/(2*a*Sqrt[a + I*a*Sinh[x]])}
221{1/(x*(a + a*I*Sinh[x])^(3/2)), x, 2, (Int[Csc[Pi/4 + (I*x)/2]^3/x, x]*Sec[Pi/4 - (I*x)/2]*Sqrt[a + I*a*Sinh[x]])/(4*a^2)}
222
223
224(* Integrands of the form x^m*(a-a*Sinh[x])^n where m is an integer and n is a half-integer *)
225{x^3*Sqrt[a - a*I*Sinh[x]], x, 5, -96*Sqrt[a - I*a*Sinh[x]] - 12*x^2*Sqrt[a - I*a*Sinh[x]] - 48*I*x*Sqrt[a - I*a*Sinh[x]]*Tan[Pi/4 + (I*x)/2] - 2*I*x^3*Sqrt[a - I*a*Sinh[x]]*Tan[Pi/4 + (I*x)/2]}
226{x^2*Sqrt[a - a*I*Sinh[x]], x, 4, -8*x*Sqrt[a - I*a*Sinh[x]] - 16*I*Sqrt[a - I*a*Sinh[x]]*Tan[Pi/4 + (I*x)/2] - 2*I*x^2*Sqrt[a - I*a*Sinh[x]]*Tan[Pi/4 + (I*x)/2]}
227{x*Sqrt[a - a*I*Sinh[x]], x, 3, -4*Sqrt[a - I*a*Sinh[x]] - 2*I*x*Sqrt[a - I*a*Sinh[x]]*Tan[Pi/4 + (I*x)/2]}
228{Sqrt[a - a*I*Sinh[x]], x, 1, -((2*I*a*Cosh[x])/Sqrt[a - I*a*Sinh[x]])}
229{Sqrt[a - a*I*Sinh[x]]/x, x, 5, (CoshIntegral[x/2]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/Sqrt[2] - (I*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]]*SinhIntegral[x/2])/Sqrt[2]}
230{Sqrt[a - a*I*Sinh[x]]/x^2, x, 6, -(Sqrt[a - I*a*Sinh[x]]/x) - (I*CoshIntegral[x/2]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/(2*Sqrt[2]) + (Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]]*SinhIntegral[x/2])/(2*Sqrt[2])}
231{Sqrt[a - a*I*Sinh[x]]/x^3, x, 7, -(Sqrt[a - I*a*Sinh[x]]/(2*x^2)) + (CoshIntegral[x/2]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/(8*Sqrt[2]) - (I*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]]*SinhIntegral[x/2])/(8*Sqrt[2]) + (I*Sqrt[a - I*a*Sinh[x]]*Tan[Pi/4 + (I*x)/2])/(4*x)}
232
233{x^3/Sqrt[a - a*I*Sinh[x]], x, 9, -((2*x^3*ArcTan[E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a) - (6*I*x^2*PolyLog[2, (-I)*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a + (6*I*x^2*PolyLog[2, I*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a - (24*I*x*PolyLog[3, (-I)*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a + (24*I*x*PolyLog[3, I*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a - (48*I*PolyLog[4, (-I)*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a + (48*I*PolyLog[4, I*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a}
234{x^2/Sqrt[a - a*I*Sinh[x]], x, 7, -((2*x^2*ArcTan[E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a) - (4*I*x*PolyLog[2, (-I)*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a + (4*I*x*PolyLog[2, I*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a - (8*I*PolyLog[3, (-I)*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a + (8*I*PolyLog[3, I*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a}
235{x/Sqrt[a - a*I*Sinh[x]], x, 5, -((2*x*ArcTan[E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a) - (2*I*PolyLog[2, (-I)*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a + (2*I*PolyLog[2, I*E^((I*Pi)/4 - x/2)]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/a}
236{1/Sqrt[a - a*I*Sinh[x]], x, 1, -((2*I*ArcTanh[Cos[Pi/4 - (I*x)/2]]*Sin[Pi/4 - (I*x)/2])/Sqrt[a - I*a*Sinh[x]])}
237{1/(x*Sqrt[a - a*I*Sinh[x]]), x, 1, (Int[Sec[Pi/4 + (I*x)/2]/x, x]*Sec[Pi/4 + (I*x)/2]*Sqrt[a - I*a*Sinh[x]])/(2*a)}
238
239
240(* Integrands of the form x^m*(a+a*Sinh[c+d*x])^n where m is an integer and n is a half-integer *)
241{x^3*Sqrt[a + a*I*Sinh[c + d*x]], x, 5, -((96*Sqrt[a + I*a*Sinh[c + d*x]])/d^4) - (12*x^2*Sqrt[a + I*a*Sinh[c + d*x]])/d^2 + (48*x*Sqrt[a + I*a*Sinh[c + d*x]]*Tanh[c/2 + (I*Pi)/4 + (d*x)/2])/d^3 + (2*x^3*Sqrt[a + I*a*Sinh[c + d*x]]*Tanh[c/2 + (I*Pi)/4 + (d*x)/2])/d}
242{x^2*Sqrt[a + a*I*Sinh[c + d*x]], x, 4, -((8*x*Sqrt[a + I*a*Sinh[c + d*x]])/d^2) + (16*Sqrt[a + I*a*Sinh[c + d*x]]*Tanh[c/2 + (I*Pi)/4 + (d*x)/2])/d^3 + (2*x^2*Sqrt[a + I*a*Sinh[c + d*x]]*Tanh[c/2 + (I*Pi)/4 + (d*x)/2])/d}
243{x*Sqrt[a + a*I*Sinh[c + d*x]], x, 3, -((4*Sqrt[a + I*a*Sinh[c + d*x]])/d^2) + (2*x*Sqrt[a + I*a*Sinh[c + d*x]]*Tanh[c/2 + (I*Pi)/4 + (d*x)/2])/d}
244{Sqrt[a + a*I*Sinh[c + d*x]], x, 1, (2*I*a*Cosh[c + d*x])/(d*Sqrt[a + I*a*Sinh[c + d*x]])}
245{Sqrt[a + a*I*Sinh[c + d*x]]/x, x, 4, Cosh[c/2 + (I*Pi)/4]*CoshIntegral[(d*x)/2]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]] + Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sinh[c/2 + (I*Pi)/4]*Sqrt[a + I*a*Sinh[c + d*x]]*SinhIntegral[(d*x)/2]}
246{Sqrt[a + a*I*Sinh[c + d*x]]/x^2, x, 5, -(Sqrt[a + I*a*Sinh[c + d*x]]/x) + (1/2)*d*CoshIntegral[(d*x)/2]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sinh[c/2 + (I*Pi)/4]*Sqrt[a + I*a*Sinh[c + d*x]] + (1/2)*d*Cosh[c/2 + (I*Pi)/4]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]]*SinhIntegral[(d*x)/2]}
247{Sqrt[a + a*I*Sinh[c + d*x]]/x^3, x, 6, -(Sqrt[a + I*a*Sinh[c + d*x]]/(2*x^2)) + (1/8)*d^2*Cosh[c/2 + (I*Pi)/4]*CoshIntegral[(d*x)/2]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]] + (1/8)*d^2*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sinh[c/2 + (I*Pi)/4]*Sqrt[a + I*a*Sinh[c + d*x]]*SinhIntegral[(d*x)/2] - (d*Sqrt[a + I*a*Sinh[c + d*x]]*Tanh[c/2 + (I*Pi)/4 + (d*x)/2])/(4*x)}
248
249{x^3/Sqrt[a + a*I*Sinh[c + d*x]], x, 9, (2*x^3*ArcTan[E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d) - (6*I*x^2*PolyLog[2, (-I)*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^2) + (6*I*x^2*PolyLog[2, I*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^2) + (24*I*x*PolyLog[3, (-I)*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^3) - (24*I*x*PolyLog[3, I*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^3) - (48*I*PolyLog[4, (-I)*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^4) + (48*I*PolyLog[4, I*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^4)}
250{x^2/Sqrt[a + a*I*Sinh[c + d*x]], x, 7, (2*x^2*ArcTan[E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d) - (4*I*x*PolyLog[2, (-I)*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^2) + (4*I*x*PolyLog[2, I*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^2) + (8*I*PolyLog[3, (-I)*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^3) - (8*I*PolyLog[3, I*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^3)}
251{x/Sqrt[a + a*I*Sinh[c + d*x]], x, 5, (2*x*ArcTan[E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d) - (2*I*PolyLog[2, (-I)*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^2) + (2*I*PolyLog[2, I*E^(c/2 + (I*Pi)/4 + (d*x)/2)]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(a*d^2)}
252{1/Sqrt[a + a*I*Sinh[c + d*x]], x, 1, (2*I*ArcTanh[Sin[Pi/4 - (1/2)*I*(c + d*x)]]*Cos[Pi/4 - (1/2)*I*(c + d*x)])/(d*Sqrt[a + I*a*Sinh[c + d*x]])}
253{1/(x*Sqrt[a + a*I*Sinh[c + d*x]]), x, 2, (Int[Sech[(1/4)*(2*c + I*Pi) + (d*x)/2]/x, x]*Sech[c/2 + (I*Pi)/4 + (d*x)/2]*Sqrt[a + I*a*Sinh[c + d*x]])/(2*a)}
254
255
256(* Used to hang Rubi *)
257(* {(a + a*I*Sinh[c + d*x])^(1/3)/x, x, 0, Int[(a + a*I*Sinh[c + d*x])^(1/3)/x, x]} *)
258
259
260(* ::Subsection::Closed:: *)
261(*(a+b Sinh[c+d x]^2)^n*)
262
263
264(* Integrands of the form 1/(a+b*Sinh[x]^2)^n where n is an integer *)
265{1/(a + b*Sinh[x]^2), x, 2, ArcTanh[(Sqrt[a]*Coth[x])/Sqrt[a - b]]/(Sqrt[a]*Sqrt[a - b])}
266{1/(a + b*Sinh[x]^2)^2, x, 3, ((2*a - b)*ArcTanh[(Sqrt[a - b]*Tanh[x])/Sqrt[a]])/(2*a^(3/2)*(a - b)^(3/2)) - (b*Sinh[2*x])/(2*a*(a - b)*(2*a - b + b*Cosh[2*x]))}
267{1/(a + b*Sinh[x]^2)^3, x, 4, ((2*(2*a - b)^2 + b^2)*ArcTanh[(Sqrt[a - b]*Tanh[x])/Sqrt[a]])/(8*a^(5/2)*(a - b)^(5/2)) - (b*Sinh[2*x])/(2*a*(a - b)*(2*a - b + b*Cosh[2*x])^2) - (3*(2*a - b)*b*Sinh[2*x])/(8*a^2*(a - b)^2*(2*a - b + b*Cosh[2*x]))}
268
269{1/(1 + Sinh[x]^2), x, 2, Tanh[x]}
270{1/(1 + Sinh[x]^2)^2, x, 3, Tanh[x] - Tanh[x]^3/3}
271{1/(1 + Sinh[x]^2)^3, x, 4, Tanh[x] - (2*Tanh[x]^3)/3 + Tanh[x]^5/5}
272
273{1/(1 - Sinh[x]^2), x, 2, ArcTanh[Coth[x]/Sqrt[2]]/Sqrt[2]}
274{1/(1 - Sinh[x]^2)^2, x, 3, (3*ArcTanh[Sqrt[2]*Tanh[x]])/(4*Sqrt[2]) + Sinh[2*x]/(4*(3 - Cosh[2*x]))}
275{1/(1 - Sinh[x]^2)^3, x, 4, (19*ArcTanh[Sqrt[2]*Tanh[x]])/(32*Sqrt[2]) + Sinh[2*x]/(4*(3 - Cosh[2*x])^2) + (9*Sinh[2*x])/(32*(3 - Cosh[2*x]))}
276
277
278(* Integrands of the form (a+b*Sinh[x]^2)^m where m is a half-integer *)
279{Sqrt[1 + Sinh[x]^2], x, 3, Sqrt[Cosh[x]^2]*Tanh[x]}
280{Sqrt[1 - Sinh[x]^2], x, 2, (-I)*EllipticE[I*x, -1]}
281{Sqrt[-1 + Sinh[x]^2], x, 3, -((I*Sqrt[-3 + Cosh[2*x]]*EllipticE[I*x, -1])/Sqrt[3 - Cosh[2*x]])}
282{Sqrt[-1 - Sinh[x]^2], x, 3, Sqrt[-Cosh[x]^2]*Tanh[x]}
283{Sqrt[a + b*Sinh[x]^2], x, 3, -((I*Sqrt[2*a - b + b*Cosh[2*x]]*EllipticE[I*x, b/a])/Sqrt[(2*a - b + b*Cosh[2*x])/a])}
284
285{1/Sqrt[1 + Sinh[x]^2], x, 3, (ArcTan[Sinh[x]]*Cosh[x])/Sqrt[Cosh[x]^2]}
286{1/Sqrt[1 - Sinh[x]^2], x, 2, (-I)*EllipticF[I*x, -1]}
287{1/Sqrt[-1 + Sinh[x]^2], x, 3, -((I*Sqrt[3 - Cosh[2*x]]*EllipticF[I*x, -1])/Sqrt[-3 + Cosh[2*x]])}
288{1/Sqrt[-1 - Sinh[x]^2], x, 3, (ArcTan[Sinh[x]]*Cosh[x])/Sqrt[-Cosh[x]^2]}
289{1/Sqrt[a + b*Sinh[x]^2], x, 3, -((I*Sqrt[(2*a - b + b*Cosh[2*x])/a]*EllipticF[I*x, b/a])/Sqrt[2*a - b + b*Cosh[2*x]])}
290
291{(1 + Sinh[x]^2)^(3/2), x, 4, Sqrt[Cosh[x]^2]*Tanh[x] + (1/3)*Sqrt[Cosh[x]^2]*Sinh[x]^2*Tanh[x]}
292{(-1 - Sinh[x]^2)^(3/2), x, 4, (-Sqrt[-Cosh[x]^2])*Tanh[x] - (1/3)*Sqrt[-Cosh[x]^2]*Sinh[x]^2*Tanh[x]}
293(* {(1 - Sinh[x]^2)^(3/2), x, 0, 0} *)
294(* {(-1 + Sinh[x]^2)^(3/2), x, 0, 0} *)
295(* {(a + b*Sinh[x]^2)^(3/2), x, 0, 0} *)
296
297
298(* ::Subsection::Closed:: *)
299(*x^m (a+b Sinh[c+d x]^2)^n*)
300
301
302(* Integrands of the form x^m/(a+b*Sinh[x]^2) where m is an integer *)
303{x/(a + b*Sinh[x]^2), x, 9, (x*Log[1 + (b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b)])/(2*Sqrt[a]*Sqrt[a - b]) - (x*Log[1 + (b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b)])/(2*Sqrt[a]*Sqrt[a - b]) + PolyLog[2, -((b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b))]/(4*Sqrt[a]*Sqrt[a - b]) - PolyLog[2, -((b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b))]/(4*Sqrt[a]*Sqrt[a - b])}
304{x^2/(a + b*Sinh[x]^2), x, 11, (x^2*Log[1 + (b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b)])/(2*Sqrt[a]*Sqrt[a - b]) - (x^2*Log[1 + (b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b)])/(2*Sqrt[a]*Sqrt[a - b]) + (x*PolyLog[2, -((b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b))])/(2*Sqrt[a]*Sqrt[a - b]) - (x*PolyLog[2, -((b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b))])/(2*Sqrt[a]*Sqrt[a - b]) - PolyLog[3, -((b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b))]/(4*Sqrt[a]*Sqrt[a - b]) + PolyLog[3, -((b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b))]/(4*Sqrt[a]*Sqrt[a - b])}
305{x^3/(a + b*Sinh[x]^2), x, 13, (x^3*Log[1 + (b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b)])/(2*Sqrt[a]*Sqrt[a - b]) - (x^3*Log[1 + (b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b)])/(2*Sqrt[a]*Sqrt[a - b]) + (3*x^2*PolyLog[2, -((b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b))])/(4*Sqrt[a]*Sqrt[a - b]) - (3*x^2*PolyLog[2, -((b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b))])/(4*Sqrt[a]*Sqrt[a - b]) - (3*x*PolyLog[3, -((b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b))])/(4*Sqrt[a]*Sqrt[a - b]) + (3*x*PolyLog[3, -((b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b))])/(4*Sqrt[a]*Sqrt[a - b]) + (3*PolyLog[4, -((b*E^(2*x))/(2*a - 2*Sqrt[a]*Sqrt[a - b] - b))])/(8*Sqrt[a]*Sqrt[a - b]) - (3*PolyLog[4, -((b*E^(2*x))/(2*a + 2*Sqrt[a]*Sqrt[a - b] - b))])/(8*Sqrt[a]*Sqrt[a - b])}
306
307
308(* ::Subsection::Closed:: *)
309(*1 / (a+b Sinh[c+d x]^n)		where n>2*)
310
311
312(* Integrands of the form 1/(a+b*Sinh[x]^n) where n is an integer *)
313{1/(a + b*Sinh[x]^3), x, 7, -((2*ArcTanh[(b^(1/3) - a^(1/3)*Tanh[x/2])/Sqrt[a^(2/3) + b^(2/3)]])/(3*a^(2/3)*Sqrt[a^(2/3) + b^(2/3)])) - (2*ArcTanh[((-1)^(2/3)*b^(1/3) - a^(1/3)*Tanh[x/2])/Sqrt[a^(2/3) - (-1)^(1/3)*b^(2/3)]])/(3*a^(2/3)*Sqrt[a^(2/3) - (-1)^(1/3)*b^(2/3)]) + (2*ArcTanh[((-1)^(1/3)*b^(1/3) + a^(1/3)*Tanh[x/2])/Sqrt[a^(2/3) + (-1)^(2/3)*b^(2/3)]])/(3*a^(2/3)*Sqrt[a^(2/3) + (-1)^(2/3)*b^(2/3)])}
314{1/(a + b*Sinh[x]^4), x, 7, -(ArcTanh[((-a)^(1/4)*Coth[x])/Sqrt[Sqrt[-a] - Sqrt[b]]]/(2*(-a)^(3/4)*Sqrt[Sqrt[-a] - Sqrt[b]])) - ArcTanh[((-a)^(1/4)*Coth[x])/Sqrt[Sqrt[-a] + Sqrt[b]]]/(2*(-a)^(3/4)*Sqrt[Sqrt[-a] + Sqrt[b]])}
315{1/(a + b*Sinh[x]^5), x, 11, -((2*ArcTanh[(b^(1/5) - a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) + b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) + b^(2/5)])) - (2*ArcTanh[((-1)^(2/5)*b^(1/5) - a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) + (-1)^(4/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) + (-1)^(4/5)*b^(2/5)]) - (2*ArcTanh[((-1)^(4/5)*b^(1/5) - a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) - (-1)^(3/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) - (-1)^(3/5)*b^(2/5)]) + (2*ArcTanh[((-1)^(1/5)*b^(1/5) + a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) + (-1)^(2/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) + (-1)^(2/5)*b^(2/5)]) + (2*ArcTanh[((-1)^(3/5)*b^(1/5) + a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) - (-1)^(1/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) - (-1)^(1/5)*b^(2/5)])}
316{1/(a + b*Sinh[x]^6), x, 10, ArcTanh[(a^(1/6)*Coth[x])/Sqrt[a^(1/3) - b^(1/3)]]/(3*a^(5/6)*Sqrt[a^(1/3) - b^(1/3)]) + ArcTanh[(a^(1/6)*Coth[x])/Sqrt[a^(1/3) + (-1)^(1/3)*b^(1/3)]]/(3*a^(5/6)*Sqrt[a^(1/3) + (-1)^(1/3)*b^(1/3)]) + ArcTanh[(a^(1/6)*Coth[x])/Sqrt[a^(1/3) - (-1)^(2/3)*b^(1/3)]]/(3*a^(5/6)*Sqrt[a^(1/3) - (-1)^(2/3)*b^(1/3)])}
317{1/(a + b*Sinh[x]^8), x, 13, -(ArcTanh[((-a)^(1/8)*Coth[x])/Sqrt[(-a)^(1/4) - b^(1/4)]]/(4*(-a)^(7/8)*Sqrt[(-a)^(1/4) - b^(1/4)])) - ArcTanh[((-a)^(1/8)*Coth[x])/Sqrt[(-a)^(1/4) - I*b^(1/4)]]/(4*(-a)^(7/8)*Sqrt[(-a)^(1/4) - I*b^(1/4)]) - ArcTanh[((-a)^(1/8)*Coth[x])/Sqrt[(-a)^(1/4) + I*b^(1/4)]]/(4*(-a)^(7/8)*Sqrt[(-a)^(1/4) + I*b^(1/4)]) - ArcTanh[((-a)^(1/8)*Coth[x])/Sqrt[(-a)^(1/4) + b^(1/4)]]/(4*(-a)^(7/8)*Sqrt[(-a)^(1/4) + b^(1/4)])}
318
319{1/(a - b*Sinh[x]^3), x, 7, -((2*ArcTanh[((-1)^(1/3)*b^(1/3) - a^(1/3)*Tanh[x/2])/Sqrt[a^(2/3) + (-1)^(2/3)*b^(2/3)]])/(3*a^(2/3)*Sqrt[a^(2/3) + (-1)^(2/3)*b^(2/3)])) + (2*ArcTanh[(b^(1/3) + a^(1/3)*Tanh[x/2])/Sqrt[a^(2/3) + b^(2/3)]])/(3*a^(2/3)*Sqrt[a^(2/3) + b^(2/3)]) + (2*ArcTanh[((-1)^(2/3)*b^(1/3) + a^(1/3)*Tanh[x/2])/Sqrt[a^(2/3) - (-1)^(1/3)*b^(2/3)]])/(3*a^(2/3)*Sqrt[a^(2/3) - (-1)^(1/3)*b^(2/3)])}
320{1/(a - b*Sinh[x]^4), x, 7, ArcTanh[(a^(1/4)*Coth[x])/Sqrt[Sqrt[a] - Sqrt[b]]]/(2*a^(3/4)*Sqrt[Sqrt[a] - Sqrt[b]]) + ArcTanh[(a^(1/4)*Coth[x])/Sqrt[Sqrt[a] + Sqrt[b]]]/(2*a^(3/4)*Sqrt[Sqrt[a] + Sqrt[b]])}
321{1/(a - b*Sinh[x]^5), x, 11, -((2*ArcTanh[((-1)^(1/5)*b^(1/5) - a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) + (-1)^(2/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) + (-1)^(2/5)*b^(2/5)])) - (2*ArcTanh[((-1)^(3/5)*b^(1/5) - a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) - (-1)^(1/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) - (-1)^(1/5)*b^(2/5)]) + (2*ArcTanh[(b^(1/5) + a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) + b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) + b^(2/5)]) + (2*ArcTanh[((-1)^(2/5)*b^(1/5) + a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) + (-1)^(4/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) + (-1)^(4/5)*b^(2/5)]) + (2*ArcTanh[((-1)^(4/5)*b^(1/5) + a^(1/5)*Tanh[x/2])/Sqrt[a^(2/5) - (-1)^(3/5)*b^(2/5)]])/(5*a^(4/5)*Sqrt[a^(2/5) - (-1)^(3/5)*b^(2/5)])}
322{1/(a - b*Sinh[x]^6), x, 10, ArcTanh[(a^(1/6)*Coth[x])/Sqrt[a^(1/3) + b^(1/3)]]/(3*a^(5/6)*Sqrt[a^(1/3) + b^(1/3)]) + ArcTanh[(a^(1/6)*Coth[x])/Sqrt[a^(1/3) - (-1)^(1/3)*b^(1/3)]]/(3*a^(5/6)*Sqrt[a^(1/3) - (-1)^(1/3)*b^(1/3)]) + ArcTanh[(a^(1/6)*Coth[x])/Sqrt[a^(1/3) + (-1)^(2/3)*b^(1/3)]]/(3*a^(5/6)*Sqrt[a^(1/3) + (-1)^(2/3)*b^(1/3)])}
323{1/(a - b*Sinh[x]^8), x, 13, ArcTanh[(a^(1/8)*Coth[x])/Sqrt[a^(1/4) - b^(1/4)]]/(4*a^(7/8)*Sqrt[a^(1/4) - b^(1/4)]) + ArcTanh[(a^(1/8)*Coth[x])/Sqrt[a^(1/4) - I*b^(1/4)]]/(4*a^(7/8)*Sqrt[a^(1/4) - I*b^(1/4)]) + ArcTanh[(a^(1/8)*Coth[x])/Sqrt[a^(1/4) + I*b^(1/4)]]/(4*a^(7/8)*Sqrt[a^(1/4) + I*b^(1/4)]) + ArcTanh[(a^(1/8)*Coth[x])/Sqrt[a^(1/4) + b^(1/4)]]/(4*a^(7/8)*Sqrt[a^(1/4) + b^(1/4)])}
324
325{1/(1 + Sinh[x]^3), x, 5, (-(1/3))*Sqrt[2]*ArcTanh[(1 - Tanh[x/2])/Sqrt[2]] - (2*ArcTanh[((-1)^(2/3) - Tanh[x/2])/Sqrt[1 - (-1)^(1/3)]])/(3*Sqrt[1 - (-1)^(1/3)]) + (2*ArcTanh[((-1)^(1/3) + Tanh[x/2])/Sqrt[1 + (-1)^(2/3)]])/(3*Sqrt[1 + (-1)^(2/3)])}
326{1/(1 + Sinh[x]^4), x, 9, ArcTanh[Coth[x]/Sqrt[1 - I]]/(2*Sqrt[1 - I]) + ArcTanh[Coth[x]/Sqrt[1 + I]]/(2*Sqrt[1 + I])}
327{1/(1 + Sinh[x]^5), x, 8, (-(1/5))*Sqrt[2]*ArcTanh[(1 - Tanh[x/2])/Sqrt[2]] - (2*ArcTanh[((-1)^(2/5) - Tanh[x/2])/Sqrt[1 + (-1)^(4/5)]])/(5*Sqrt[1 + (-1)^(4/5)]) - (2*ArcTanh[((-1)^(4/5) - Tanh[x/2])/Sqrt[1 - (-1)^(3/5)]])/(5*Sqrt[1 - (-1)^(3/5)]) + (2*ArcTanh[((-1)^(1/5) + Tanh[x/2])/Sqrt[1 + (-1)^(2/5)]])/(5*Sqrt[1 + (-1)^(2/5)]) + (2*ArcTanh[((-1)^(3/5) + Tanh[x/2])/Sqrt[1 - (-1)^(1/5)]])/(5*Sqrt[1 - (-1)^(1/5)])}
328{1/(1 + Sinh[x]^6), x, 9, ArcTanh[Coth[x]/Sqrt[1 + (-1)^(1/3)]]/(3*Sqrt[1 + (-1)^(1/3)]) + ArcTanh[Coth[x]/Sqrt[1 - (-1)^(2/3)]]/(3*Sqrt[1 - (-1)^(2/3)]) + Tanh[x]/3}
329{1/(1 + Sinh[x]^8), x, 13, ArcTanh[Coth[x]/Sqrt[1 - (-1)^(1/4)]]/(4*Sqrt[1 - (-1)^(1/4)]) + ArcTanh[Coth[x]/Sqrt[1 + (-1)^(1/4)]]/(4*Sqrt[1 + (-1)^(1/4)]) + ArcTanh[Coth[x]/Sqrt[1 - (-1)^(3/4)]]/(4*Sqrt[1 - (-1)^(3/4)]) + ArcTanh[Coth[x]/Sqrt[1 + (-1)^(3/4)]]/(4*Sqrt[1 + (-1)^(3/4)])}
330
331{1/(1 - Sinh[x]^3), x, 5, -((2*ArcTanh[((-1)^(1/3) - Tanh[x/2])/Sqrt[1 + (-1)^(2/3)]])/(3*Sqrt[1 + (-1)^(2/3)])) + (1/3)*Sqrt[2]*ArcTanh[(1 + Tanh[x/2])/Sqrt[2]] + (2*ArcTanh[((-1)^(2/3) + Tanh[x/2])/Sqrt[1 - (-1)^(1/3)]])/(3*Sqrt[1 - (-1)^(1/3)])}
332{1/(1 - Sinh[x]^4), x, 5, ArcTanh[Coth[x]/Sqrt[2]]/(2*Sqrt[2]) + Tanh[x]/2}
333{1/(1 - Sinh[x]^5), x, 8, -((2*ArcTanh[((-1)^(1/5) - Tanh[x/2])/Sqrt[1 + (-1)^(2/5)]])/(5*Sqrt[1 + (-1)^(2/5)])) - (2*ArcTanh[((-1)^(3/5) - Tanh[x/2])/Sqrt[1 - (-1)^(1/5)]])/(5*Sqrt[1 - (-1)^(1/5)]) + (1/5)*Sqrt[2]*ArcTanh[(1 + Tanh[x/2])/Sqrt[2]] + (2*ArcTanh[((-1)^(2/5) + Tanh[x/2])/Sqrt[1 + (-1)^(4/5)]])/(5*Sqrt[1 + (-1)^(4/5)]) + (2*ArcTanh[((-1)^(4/5) + Tanh[x/2])/Sqrt[1 - (-1)^(3/5)]])/(5*Sqrt[1 - (-1)^(3/5)])}
334{1/(1 - Sinh[x]^6), x, 9, ArcTanh[Coth[x]/Sqrt[2]]/(3*Sqrt[2]) + ArcTanh[Coth[x]/Sqrt[1 - (-1)^(1/3)]]/(3*Sqrt[1 - (-1)^(1/3)]) + ArcTanh[Coth[x]/Sqrt[1 + (-1)^(2/3)]]/(3*Sqrt[1 + (-1)^(2/3)])}
335{1/(1 - Sinh[x]^8), x, 13, ArcTanh[Coth[x]/Sqrt[1 - I]]/(4*Sqrt[1 - I]) + ArcTanh[Coth[x]/Sqrt[1 + I]]/(4*Sqrt[1 + I]) + ArcTanh[Coth[x]/Sqrt[2]]/(4*Sqrt[2]) + Tanh[x]/4}
336
337
338(* ::Subsection::Closed:: *)
339(*(c+d x)^m Sinh[a+b x]^n*)
340
341
342(* Integrands of the form Sinh[a+b*x]^m*(c+d*x)^n where m is an integer and n is a half-integer *)
343{Sinh[a + b*x]*Sqrt[c + d*x], x, 5, (Sqrt[c + d*x]*Cosh[a + b*x])/b - (Sqrt[d]*E^(-a + (b*c)/d)*Sqrt[Pi]*Erf[(Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(4*b^(3/2)) - (Sqrt[d]*E^(a - (b*c)/d)*Sqrt[Pi]*Erfi[(Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(4*b^(3/2))}
344{Sinh[a + b*x]/Sqrt[c + d*x], x, 4, -((E^((b*c - a*d)/d)*Sqrt[Pi]*Erf[(Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(2*Sqrt[b]*Sqrt[d])) + (Sqrt[Pi]*Erfi[(Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(E^((b*c - a*d)/d)*(2*Sqrt[b]*Sqrt[d]))}
345{Sinh[a + b*x]/(c + d*x)^(3/2), x, 5, (Sqrt[b]*E^(-a + (b*c)/d)*Sqrt[Pi]*Erf[(Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/d^(3/2) + (Sqrt[b]*E^(a - (b*c)/d)*Sqrt[Pi]*Erfi[(Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/d^(3/2) - (2*Sinh[a + b*x])/(d*Sqrt[c + d*x])}
346
347{Sinh[a + b*x]^2*Sqrt[c + d*x], x, 8, -((c + d*x)^(3/2)/(3*d)) + (Sqrt[d]*Sqrt[Pi/2]*Erf[(Sqrt[2]*Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(E^(2*(a - (b*c)/d))*(16*b^(3/2))) - (Sqrt[d]*E^(2*(a - (b*c)/d))*Sqrt[Pi/2]*Erfi[(Sqrt[2]*Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(16*b^(3/2)) + (Sqrt[c + d*x]*Sinh[2*a + 2*b*x])/(4*b)}
348{Sinh[a + b*x]^2/Sqrt[c + d*x], x, 6, -(Sqrt[c + d*x]/d) + (E^((2*(b*c - a*d))/d)*Sqrt[Pi/2]*Erf[(Sqrt[2]*Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(4*Sqrt[b]*Sqrt[d]) + (Sqrt[Pi/2]*Erfi[(Sqrt[2]*Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(E^((2*(b*c - a*d))/d)*(4*Sqrt[b]*Sqrt[d]))}
349{Sinh[a + b*x]^2/(c + d*x)^(3/2), x, 6, -((2*Sinh[a + b*x]^2)/(d*Sqrt[c + d*x])) - (Sqrt[b]*Sqrt[Pi/2]*Erf[(Sqrt[2]*Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/(E^(2*(a - (b*c)/d))*d^(3/2)) + (Sqrt[b]*E^(2*(a - (b*c)/d))*Sqrt[Pi/2]*Erfi[(Sqrt[2]*Sqrt[b]*Sqrt[c + d*x])/Sqrt[d]])/d^(3/2)}
350
351
352(* ::Subsection::Closed:: *)
353(*(d+e x)^m Sinh[a+b x+c x^2]^n*)
354
355
356(* Integrands of the form x^m*Sinh[a+b*x+c*x^2] where m is an integer *)
357{x^2*Sinh[a + b*x + c*x^2], x, 16, -((b*Cosh[a + b*x + c*x^2])/(4*c^2)) + (x*Cosh[a + b*x + c*x^2])/(2*c) - ((b^2 + 2*c)*E^(-a + b^2/(4*c))*Sqrt[Pi]*Erf[(b + 2*c*x)/(2*Sqrt[c])])/(16*c^(5/2)) + ((b^2 - 2*c)*E^(a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b + 2*c*x)/(2*Sqrt[c])])/(16*c^(5/2))}
358{x*Sinh[a + b*x + c*x^2], x, 8, Cosh[a + b*x + c*x^2]/(2*c) + (b*E^(-a + b^2/(4*c))*Sqrt[Pi]*Erf[(b + 2*c*x)/(2*Sqrt[c])])/(8*c^(3/2)) - (b*E^(a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b + 2*c*x)/(2*Sqrt[c])])/(8*c^(3/2))}
359{Sinh[a + b*x + c*x^2], x, 7, -((E^(-a + b^2/(4*c))*Sqrt[Pi]*Erf[(b + 2*c*x)/(2*Sqrt[c])])/(4*Sqrt[c])) + (E^(a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b + 2*c*x)/(2*Sqrt[c])])/(4*Sqrt[c])}
360{Sinh[a + b*x + c*x^2]/x, x, 0, Int[Sinh[a + b*x + c*x^2]/x, x]}
361{Sinh[a + b*x + c*x^2]/x^2 - b*Cosh[a + b*x + c*x^2]/x, x, 9, (1/2)*Sqrt[c]*E^(-a + b^2/(4*c))*Sqrt[Pi]*Erf[(b + 2*c*x)/(2*Sqrt[c])] + (1/2)*Sqrt[c]*E^(a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b + 2*c*x)/(2*Sqrt[c])] - Sinh[a + b*x + c*x^2]/x}
362
363{x^2*Sinh[a + b*x - c*x^2], x, 16, -((b*Cosh[a + b*x - c*x^2])/(4*c^2)) - (x*Cosh[a + b*x - c*x^2])/(2*c) - ((b^2 + 2*c)*E^(a + b^2/(4*c))*Sqrt[Pi]*Erf[(b - 2*c*x)/(2*Sqrt[c])])/(16*c^(5/2)) + ((b^2 - 2*c)*E^(-a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b - 2*c*x)/(2*Sqrt[c])])/(16*c^(5/2))}
364{x*Sinh[a + b*x - c*x^2], x, 8, -(Cosh[a + b*x - c*x^2]/(2*c)) - (b*E^(a + b^2/(4*c))*Sqrt[Pi]*Erf[(b - 2*c*x)/(2*Sqrt[c])])/(8*c^(3/2)) + (b*E^(-a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b - 2*c*x)/(2*Sqrt[c])])/(8*c^(3/2))}
365{Sinh[a + b*x - c*x^2], x, 7, -((E^(a + b^2/(4*c))*Sqrt[Pi]*Erf[(b - 2*c*x)/(2*Sqrt[c])])/(4*Sqrt[c])) + (E^(-a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b - 2*c*x)/(2*Sqrt[c])])/(4*Sqrt[c])}
366{Sinh[a + b*x - c*x^2]/x, x, 0, Int[Sinh[a + b*x - c*x^2]/x, x]}
367{Sinh[a + b*x - c*x^2]/x^2 - b*Cosh[a + b*x - c*x^2]/x, x, 9, (1/2)*Sqrt[c]*E^(a + b^2/(4*c))*Sqrt[Pi]*Erf[(b - 2*c*x)/(2*Sqrt[c])] + (1/2)*Sqrt[c]*E^(-a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b - 2*c*x)/(2*Sqrt[c])] - Sinh[a + b*x - c*x^2]/x}
368
369{x^2*Sinh[1/4 + x + x^2], x, 12, (-(1/4))*Cosh[1/4 + x + x^2] + (1/2)*x*Cosh[1/4 + x + x^2] - (3/16)*Sqrt[Pi]*Erf[(1/2)*(1 + 2*x)] - (1/16)*Sqrt[Pi]*Erfi[(1/2)*(1 + 2*x)]}
370{x*Sinh[1/4 + x + x^2], x, 6, (1/2)*Cosh[1/4 + x + x^2] + (1/8)*Sqrt[Pi]*Erf[(1/2)*(1 + 2*x)] - (1/8)*Sqrt[Pi]*Erfi[(1/2)*(1 + 2*x)]}
371{Sinh[1/4 + x + x^2], x, 5, (-(1/4))*Sqrt[Pi]*Erf[(1/2)*(1 + 2*x)] + (1/4)*Sqrt[Pi]*Erfi[(1/2)*(1 + 2*x)]}
372{Sinh[1/4 + x + x^2]/x, x, 0, Int[Sinh[1/4 + x + x^2]/x, x]}
373{Sinh[1/4 + x + x^2]/x^2, x, 6, (1/2)*Sqrt[Pi]*Erf[(1/2)*(1 + 2*x)] + (1/2)*Sqrt[Pi]*Erfi[(1/2)*(1 + 2*x)] + Int[Cosh[1/4 + x + x^2]/x, x] - Sinh[1/4 + x + x^2]/x}
374
375
376(* Integrands of the form x^m*Sinh[a+b*x+c*x^2]^2 where m is an integer *)
377{x^2*Sinh[a + b*x + c*x^2]^2, x, 19, -(x^3/6) + ((b^2 + c)*E^(-2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(32*c^(5/2)) + ((b^2 - c)*E^(2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(32*c^(5/2)) - (b*Sinh[2*a + 2*b*x + 2*c*x^2])/(16*c^2) + (x*Sinh[2*a + 2*b*x + 2*c*x^2])/(8*c)}
378{x*Sinh[a + b*x + c*x^2]^2, x, 11, -(x^2/4) - (b*E^(-2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(16*c^(3/2)) - (b*E^(2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(16*c^(3/2)) + Sinh[2*a + 2*b*x + 2*c*x^2]/(8*c)}
379{Sinh[a + b*x + c*x^2]^2, x, 9, -(x/2) + (E^(-2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(8*Sqrt[c]) + (E^(2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(8*Sqrt[c])}
380{Sinh[a + b*x + c*x^2]^2/x, x, 3, (1/2)*Int[Cosh[2*a + 2*b*x + 2*c*x^2]/x, x] - Log[x]/2}
381
382{x^2*Sinh[a + b*x - c*x^2]^2, x, 19, -(x^3/6) - ((b^2 + c)*E^(2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b - 2*c*x)/(Sqrt[2]*Sqrt[c])])/(32*c^(5/2)) - ((b^2 - c)*E^(-2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b - 2*c*x)/(Sqrt[2]*Sqrt[c])])/(32*c^(5/2)) - (b*Sinh[2*a + 2*b*x - 2*c*x^2])/(16*c^2) - (x*Sinh[2*a + 2*b*x - 2*c*x^2])/(8*c)}
383{x*Sinh[a + b*x - c*x^2]^2, x, 11, -(x^2/4) - (b*E^(2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b - 2*c*x)/(Sqrt[2]*Sqrt[c])])/(16*c^(3/2)) - (b*E^(-2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b - 2*c*x)/(Sqrt[2]*Sqrt[c])])/(16*c^(3/2)) - Sinh[2*a + 2*b*x - 2*c*x^2]/(8*c)}
384{Sinh[a + b*x - c*x^2]^2, x, 9, -(x/2) - (E^(2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b - 2*c*x)/(Sqrt[2]*Sqrt[c])])/(8*Sqrt[c]) - (E^(-2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b - 2*c*x)/(Sqrt[2]*Sqrt[c])])/(8*Sqrt[c])}
385{Sinh[a + b*x - c*x^2]^2/x, x, 3, (1/2)*Int[Cosh[2*a + 2*b*x - 2*c*x^2]/x, x] - Log[x]/2}
386
387{x^2*Sinh[1/4 + x + x^2]^2, x, 15, -(x^3/6) + (1/16)*Sqrt[Pi/2]*Erf[(1 + 2*x)/Sqrt[2]] - (1/16)*Sinh[1/2 + 2*x + 2*x^2] + (1/8)*x*Sinh[1/2 + 2*x + 2*x^2]}
388{x*Sinh[1/4 + x + x^2]^2, x, 9, -(x^2/4) - (1/16)*Sqrt[Pi/2]*Erf[(1 + 2*x)/Sqrt[2]] - (1/16)*Sqrt[Pi/2]*Erfi[(1 + 2*x)/Sqrt[2]] + (1/8)*Sinh[1/2 + 2*x + 2*x^2]}
389{Sinh[1/4 + x + x^2]^2, x, 7, -(x/2) + (1/8)*Sqrt[Pi/2]*Erf[(1 + 2*x)/Sqrt[2]] + (1/8)*Sqrt[Pi/2]*Erfi[(1 + 2*x)/Sqrt[2]]}
390{Sinh[1/4 + x + x^2]^2/x, x, 3, (1/2)*Int[Cosh[1/2 + 2*x + 2*x^2]/x, x] - Log[x]/2}
391
392
393(* Integrands of the form (d+e*x)^m*Sinh[a+b*x+c*x^2]^n where m and n are integers *)
394{(d + e*x)^2*Sinh[a + b*x + c*x^2], x, 16, (e*(4*c*d - b*e)*Cosh[a + b*x + c*x^2])/(4*c^2) + (e^2*x*Cosh[a + b*x + c*x^2])/(2*c) - ((4*c^2*d^2 - 2*c*(2*b*d - e)*e + b^2*e^2)*E^(-a + b^2/(4*c))*Sqrt[Pi]*Erf[(b + 2*c*x)/(2*Sqrt[c])])/(16*c^(5/2)) + ((4*c^2*d^2 + b^2*e^2 - 2*c*e*(2*b*d + e))*E^(a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b + 2*c*x)/(2*Sqrt[c])])/(16*c^(5/2))}
395{(d + e*x)*Sinh[a + b*x + c*x^2], x, 8, (e*Cosh[a + b*x + c*x^2])/(2*c) - ((2*c*d - b*e)*E^(-a + b^2/(4*c))*Sqrt[Pi]*Erf[(b + 2*c*x)/(2*Sqrt[c])])/(8*c^(3/2)) + ((2*c*d - b*e)*E^(a - b^2/(4*c))*Sqrt[Pi]*Erfi[(b + 2*c*x)/(2*Sqrt[c])])/(8*c^(3/2))}
396{Sinh[a + b*x + c*x^2]/(d + e*x), x, 0, Int[Sinh[a + b*x + c*x^2]/(d + e*x), x]}
397
398{(d + e*x)^2*Sinh[a + b*x + c*x^2]^2, x, 41, -((d^2*x)/2) - (1/2)*d*e*x^2 - (e^2*x^3)/6 + ((4*c^2*d^2 - c*(4*b*d - e)*e + b^2*e^2)*E^(-2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(32*c^(5/2)) + ((4*c^2*d^2 + b^2*e^2 - c*e*(4*b*d + e))*E^(2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(32*c^(5/2)) + (d*e*Sinh[2*a + 2*b*x + 2*c*x^2])/(4*c) - (b*e^2*Sinh[2*a + 2*b*x + 2*c*x^2])/(16*c^2) + (e^2*x*Sinh[2*a + 2*b*x + 2*c*x^2])/(8*c)}
399{(d + e*x)*Sinh[a + b*x + c*x^2]^2, x, 22, -((d*x)/2) - (e*x^2)/4 + ((2*c*d - b*e)*E^(-2*a + b^2/(2*c))*Sqrt[Pi/2]*Erf[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(16*c^(3/2)) + ((2*c*d - b*e)*E^(2*a - b^2/(2*c))*Sqrt[Pi/2]*Erfi[(b + 2*c*x)/(Sqrt[2]*Sqrt[c])])/(16*c^(3/2)) + (e*Sinh[2*a + 2*b*x + 2*c*x^2])/(8*c)}
400{Sinh[a + b*x + c*x^2]^2/(d + e*x), x, 3, (1/2)*Int[Cosh[2*a + 2*b*x + 2*c*x^2]/(d + e*x), x] - Log[d + e*x]/(2*e)}
401
402
403(* ::Subsection::Closed:: *)
404(*Sinh[(a+b x)/(c+d x)]^n*)
405
406
407{Sinh[(a + b*x)/(c + d*x)], x, 5, ((b*c - a*d)*Cosh[b/d]*CoshIntegral[-((b*c - a*d)/(d*(c + d*x)))])/d^2 + ((c + d*x)*Sinh[(a + b*x)/(c + d*x)])/d + ((b*c - a*d)*Sinh[b/d]*SinhIntegral[a/(c + d*x) - (b*c)/(d*(c + d*x))])/d^2}
408{Sinh[(a + b*x)/(c + d*x)]^2, x, 7, -(x/2) + ((c + d*x)*Cosh[(2*(a + b*x))/(c + d*x)])/(2*d) + ((b*c - a*d)*CoshIntegral[-((2*(b*c - a*d))/(d*(c + d*x)))]*Sinh[(2*b)/d])/d^2 + ((b*c - a*d)*Cosh[(2*b)/d]*SinhIntegral[(2*a)/(c + d*x) - (2*b*c)/(d*(c + d*x))])/d^2}
409
410
411(* ::Subsection::Closed:: *)
412(*x^m Sinh[a+b x^n]^p*)
413
414
415{x^3*Sinh[a + b*x^2], x, 3, (x^2*Cosh[a + b*x^2])/(2*b) - Sinh[a + b*x^2]/(2*b^2)}
416{x^2*Sinh[a + b*x^2], x, 4, (x*Cosh[a + b*x^2])/(2*b) - (Sqrt[Pi]*Erf[Sqrt[b]*x])/(E^a*(8*b^(3/2))) - (E^a*Sqrt[Pi]*Erfi[Sqrt[b]*x])/(8*b^(3/2))}
417{x*Sinh[a + b*x^2], x, 2, Cosh[a + b*x^2]/(2*b)}
418{Sinh[a + b*x^2], x, 3, -((Sqrt[Pi]*Erf[Sqrt[b]*x])/(E^a*(4*Sqrt[b]))) + (E^a*Sqrt[Pi]*Erfi[Sqrt[b]*x])/(4*Sqrt[b])}
419{Sinh[a + b*x^2]/x, x, 3, (1/2)*CoshIntegral[b*x^2]*Sinh[a] + (1/2)*Cosh[a]*SinhIntegral[b*x^2]}
420{Sinh[a + b*x^2]/x^2, x, 4, ((1/2)*Sqrt[b]*Sqrt[Pi]*Erf[Sqrt[b]*x])/E^a + (1/2)*Sqrt[b]*E^a*Sqrt[Pi]*Erfi[Sqrt[b]*x] - Sinh[a + b*x^2]/x}
421{Sinh[a + b*x^2]/x^3, x, 4, (1/2)*b*Cosh[a]*CoshIntegral[b*x^2] - Sinh[a + b*x^2]/(2*x^2) + (1/2)*b*Sinh[a]*SinhIntegral[b*x^2]}
422
423
424{x^3*Sinh[a + b*x^2]^2, x, 2, -(x^4/8) + (x^2*Cosh[a + b*x^2]*Sinh[a + b*x^2])/(4*b) - Sinh[a + b*x^2]^2/(8*b^2)}
425{x^2*Sinh[a + b*x^2]^2, x, 7, -(x^3/6) + (Sqrt[Pi/2]*Erf[Sqrt[2]*Sqrt[b]*x])/(E^(2*a)*(32*b^(3/2))) - (E^(2*a)*Sqrt[Pi/2]*Erfi[Sqrt[2]*Sqrt[b]*x])/(32*b^(3/2)) + (x*Sinh[2*a + 2*b*x^2])/(8*b)}
426{x*Sinh[a + b*x^2]^2, x, 2, -(x^2/4) + (Cosh[a + b*x^2]*Sinh[a + b*x^2])/(4*b)}
427{Sinh[a + b*x^2]^2, x, 5, -(x/2) + (Sqrt[Pi/2]*Erf[Sqrt[2]*Sqrt[b]*x])/(E^(2*a)*(8*Sqrt[b])) + (E^(2*a)*Sqrt[Pi/2]*Erfi[Sqrt[2]*Sqrt[b]*x])/(8*Sqrt[b])}
428{Sinh[a + b*x^2]^2/x, x, 7, (1/4)*Cosh[2*a]*CoshIntegral[2*b*x^2] - Log[x^2]/4 + (1/4)*Sinh[2*a]*SinhIntegral[2*b*x^2]}
429{Sinh[a + b*x^2]^2/x^2, x, 5, ((-(1/2))*Sqrt[b]*Sqrt[Pi/2]*Erf[Sqrt[2]*Sqrt[b]*x])/E^(2*a) + (1/2)*Sqrt[b]*E^(2*a)*Sqrt[Pi/2]*Erfi[Sqrt[2]*Sqrt[b]*x] - Sinh[a + b*x^2]^2/x}
430{Sinh[a + b*x^2]^2/x^3, x, 8, 1/(4*x^2) - Cosh[2*a + 2*b*x^2]/(4*x^2) + (1/2)*b*CoshIntegral[2*b*x^2]*Sinh[2*a] + (1/2)*b*Cosh[2*a]*SinhIntegral[2*b*x^2]}
431
432
433{x^3*Sinh[a + b*x^2]^3, x, 4, -((x^2*Cosh[a + b*x^2])/(3*b)) + Sinh[a + b*x^2]/(3*b^2) + (x^2*Cosh[a + b*x^2]*Sinh[a + b*x^2]^2)/(6*b) - Sinh[a + b*x^2]^3/(18*b^2)}
434{x^2*Sinh[a + b*x^2]^3, x, 10, -((3*x*Cosh[a + b*x^2])/(8*b)) + (x*Cosh[3*a + 3*b*x^2])/(24*b) + (3*Sqrt[Pi]*Erf[Sqrt[b]*x])/(E^a*(32*b^(3/2))) - (Sqrt[Pi/3]*Erf[Sqrt[3]*Sqrt[b]*x])/(E^(3*a)*(96*b^(3/2))) + (3*E^a*Sqrt[Pi]*Erfi[Sqrt[b]*x])/(32*b^(3/2)) - (E^(3*a)*Sqrt[Pi/3]*Erfi[Sqrt[3]*Sqrt[b]*x])/(96*b^(3/2))}
435{x*Sinh[a + b*x^2]^3, x, 3, -(Cosh[a + b*x^2]/(2*b)) + Cosh[a + b*x^2]^3/(6*b)}
436{Sinh[a + b*x^2]^3, x, 8, (3*Sqrt[Pi]*Erf[Sqrt[b]*x])/(E^a*(16*Sqrt[b])) - (Sqrt[Pi/3]*Erf[Sqrt[3]*Sqrt[b]*x])/(E^(3*a)*(16*Sqrt[b])) - (3*E^a*Sqrt[Pi]*Erfi[Sqrt[b]*x])/(16*Sqrt[b]) + (E^(3*a)*Sqrt[Pi/3]*Erfi[Sqrt[3]*Sqrt[b]*x])/(16*Sqrt[b])}
437{Sinh[a + b*x^2]^3/x, x, 9, (-(3/8))*CoshIntegral[b*x^2]*Sinh[a] + (1/8)*CoshIntegral[3*b*x^2]*Sinh[3*a] - (3/8)*Cosh[a]*SinhIntegral[b*x^2] + (1/8)*Cosh[3*a]*SinhIntegral[3*b*x^2]}
438{Sinh[a + b*x^2]^3/x^2, x, 9, ((-(3/8))*Sqrt[b]*Sqrt[Pi]*Erf[Sqrt[b]*x])/E^a + ((1/8)*Sqrt[b]*Sqrt[3*Pi]*Erf[Sqrt[3]*Sqrt[b]*x])/E^(3*a) - (3/8)*Sqrt[b]*E^a*Sqrt[Pi]*Erfi[Sqrt[b]*x] + (1/8)*Sqrt[b]*E^(3*a)*Sqrt[3*Pi]*Erfi[Sqrt[3]*Sqrt[b]*x] - Sinh[a + b*x^2]^3/x}
439{Sinh[a + b*x^2]^3/x^3, x, 11, (-(3/8))*b*Cosh[a]*CoshIntegral[b*x^2] + (3/8)*b*Cosh[3*a]*CoshIntegral[3*b*x^2] + (3*Sinh[a + b*x^2])/(8*x^2) - Sinh[3*a + 3*b*x^2]/(8*x^2) - (3/8)*b*Sinh[a]*SinhIntegral[b*x^2] + (3/8)*b*Sinh[3*a]*SinhIntegral[3*b*x^2]}
440
441
442(* Integrands of the form Sinh[a+b/x^n]/x^m where m and n are positive integers *)
443{Sinh[a + b/x], x, 4, (-b)*Cosh[a]*CoshIntegral[b/x] + x*Sinh[a + b/x] - b*Sinh[a]*SinhIntegral[b/x]}
444{Sinh[a + b/x]/x, x, 3, (-CoshIntegral[b/x])*Sinh[a] - Cosh[a]*SinhIntegral[b/x]}
445{Sinh[a + b/x]/x^2, x, 2, -(Cosh[a + b/x]/b)}
446{Sinh[a + b/x]/x^3, x, 3, -(Cosh[a + b/x]/(b*x)) + Sinh[a + b/x]/b^2}
447{Sinh[a + b/x]/x^4, x, 4, -((2*Cosh[a + b/x])/b^3) - Cosh[a + b/x]/(b*x^2) + (2*Sinh[a + b/x])/(b^2*x)}
448
449
450{Sinh[a + b/x^2], x, 5, ((-(1/2))*Sqrt[b]*Sqrt[Pi]*Erf[Sqrt[b]/x])/E^a - (1/2)*Sqrt[b]*E^a*Sqrt[Pi]*Erfi[Sqrt[b]/x] + x*Sinh[a + b/x^2]}
451{Sinh[a + b/x^2]/x, x, 3, (-(1/2))*CoshIntegral[b/x^2]*Sinh[a] - (1/2)*Cosh[a]*SinhIntegral[b/x^2]}
452{Sinh[a + b/x^2]/x^2, x, 4, (Sqrt[Pi]*Erf[Sqrt[b]/x])/(E^a*(4*Sqrt[b])) - (E^a*Sqrt[Pi]*Erfi[Sqrt[b]/x])/(4*Sqrt[b])}
453{Sinh[a + b/x^2]/x^3, x, 2, -(Cosh[a + b/x^2]/(2*b))}
454{Sinh[a + b/x^2]/x^4, x, 5, -(Cosh[a + b/x^2]/(2*b*x)) + (Sqrt[Pi]*Erf[Sqrt[b]/x])/(E^a*(8*b^(3/2))) + (E^a*Sqrt[Pi]*Erfi[Sqrt[b]/x])/(8*b^(3/2))}
455
456
457{Sinh[a + b*x^n], x, 3, -((E^a*x*Gamma[1/n, (-b)*x^n])/(((-b)*x^n)^n^(-1)*(2*n))) + (x*Gamma[1/n, b*x^n])/(E^a*(b*x^n)^n^(-1)*(2*n))}
458{Sinh[a + b*x^n]^2, x, 5, -(x/2) - (2^(-2 - 1/n)*E^(2*a)*x*Gamma[1/n, -2*b*x^n])/(((-b)*x^n)^n^(-1)*n) - (2^(-2 - 1/n)*x*Gamma[1/n, 2*b*x^n])/(E^(2*a)*(b*x^n)^n^(-1)*n)}
459{Sinh[a + b*x^n]^3, x, 8, -((E^(3*a)*x*Gamma[1/n, -3*b*x^n])/(3^n^(-1)*((-b)*x^n)^n^(-1)*(8*n))) + (3*E^a*x*Gamma[1/n, (-b)*x^n])/(((-b)*x^n)^n^(-1)*(8*n)) - (3*x*Gamma[1/n, b*x^n])/(E^a*(b*x^n)^n^(-1)*(8*n)) + (x*Gamma[1/n, 3*b*x^n])/(3^n^(-1)*E^(3*a)*(b*x^n)^n^(-1)*(8*n))}
460
461{x^m*Sinh[a + b*x^n], x, 3, -((E^a*x^(1 + m)*Gamma[(1 + m)/n, (-b)*x^n])/(((-b)*x^n)^((1 + m)/n)*(2*n))) + (x^(1 + m)*Gamma[(1 + m)/n, b*x^n])/(E^a*(b*x^n)^((1 + m)/n)*(2*n))}
462{x^m*Sinh[a + b*x^n]^2, x, 6, -(x^(1 + m)/(2*(1 + m))) - (2^(-2 - (1 + m)/n)*E^(2*a)*x^(1 + m)*Gamma[(1 + m)/n, -2*b*x^n])/(((-b)*x^n)^((1 + m)/n)*n) - (2^(-2 - (1 + m)/n)*x^(1 + m)*Gamma[(1 + m)/n, 2*b*x^n])/(E^(2*a)*(b*x^n)^((1 + m)/n)*n)}
463{x^m*Sinh[a + b*x^n]^3, x, 8, -((E^(3*a)*x^(1 + m)*Gamma[(1 + m)/n, -3*b*x^n])/(3^((1 + m)/n)*((-b)*x^n)^((1 + m)/n)*(8*n))) + (3*E^a*x^(1 + m)*Gamma[(1 + m)/n, (-b)*x^n])/(((-b)*x^n)^((1 + m)/n)*(8*n)) - (3*x^(1 + m)*Gamma[(1 + m)/n, b*x^n])/(E^a*(b*x^n)^((1 + m)/n)*(8*n)) + (x^(1 + m)*Gamma[(1 + m)/n, 3*b*x^n])/(3^((1 + m)/n)*E^(3*a)*(b*x^n)^((1 + m)/n)*(8*n))}
464
465{Sinh[a + b*x^n]/x^(n + 1), x, 4, (b*Cosh[a]*CoshIntegral[b*x^n])/n - Sinh[a + b*x^n]/(x^n*n) + (b*Sinh[a]*SinhIntegral[b*x^n])/n}
466{Sin[a + b*x^n]^2/x^(n + 1), x, 7, -(1/(x^n*(2*n))) + Cos[2*a + 2*b*x^n]/(x^n*(2*n)) + (b*CosIntegral[2*b*x^n]*Sin[2*a])/n + (b*Cos[2*a]*SinIntegral[2*b*x^n])/n}
467{Sin[a + b*x^n]^3/x^(n + 1), x, 11, (3*b*Cos[a]*CosIntegral[b*x^n])/(4*n) - (3*b*Cos[3*a]*CosIntegral[3*b*x^n])/(4*n) - (3*Sin[a + b*x^n])/(x^n*(4*n)) + Sin[3*a + 3*b*x^n]/(x^n*(4*n)) - (3*b*Sin[a]*SinIntegral[b*x^n])/(4*n) + (3*b*Sin[3*a]*SinIntegral[3*b*x^n])/(4*n)}
468
469
470(* Integrands of the form x^m*Sinh[x^n] where m and n are integers *)
471{x^3*Sinh[x^4], x, 2, Cosh[x^4]/4}
472
473
474(* ::Subsection::Closed:: *)
475(*x^m Sinh[a+b Log[c x^n]]^p*)
476
477
478(* Integrands of the form Sinh[a+b*Log[c*x^n]] *)
479{Sinh[a + b*Log[c*x^n]], x, 1, -((b*n*x*Cosh[a + b*Log[c*x^n]])/(1 - b^2*n^2)) + (x*Sinh[a + b*Log[c*x^n]])/(1 - b^2*n^2)}
480{Sinh[a + b*Log[c*x^n]]^2, x, 2, (2*b^2*n^2*x)/(1 - 4*b^2*n^2) - (2*b*n*x*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]])/(1 - 4*b^2*n^2) + (x*Sinh[a + b*Log[c*x^n]]^2)/(1 - 4*b^2*n^2)}
481{Sinh[a + b*Log[c*x^n]]^3, x, 2, -((6*b^3*n^3*x*Cosh[a + b*Log[c*x^n]])/((1 - 9*b^2*n^2)*(1 - b^2*n^2))) + (6*b^2*n^2*x*Sinh[a + b*Log[c*x^n]])/((1 - 9*b^2*n^2)*(1 - b^2*n^2)) - (3*b*n*x*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]]^2)/(1 - 9*b^2*n^2) + (x*Sinh[a + b*Log[c*x^n]]^3)/(1 - 9*b^2*n^2)}
482{Sinh[a + b*Log[c*x^n]]^4, x, 3, (24*b^4*n^4*x)/((1 - 16*b^2*n^2)*(1 - 4*b^2*n^2)) - (24*b^3*n^3*x*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]])/((1 - 16*b^2*n^2)*(1 - 4*b^2*n^2)) + (12*b^2*n^2*x*Sinh[a + b*Log[c*x^n]]^2)/((1 - 16*b^2*n^2)*(1 - 4*b^2*n^2)) - (4*b*n*x*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]]^3)/(1 - 16*b^2*n^2) + (x*Sinh[a + b*Log[c*x^n]]^4)/(1 - 16*b^2*n^2)}
483
484
485(* Integrands of the form x^m*Sinh[a+b*Log[c*x^n]]^p where p is an integer *)
486{x^m*Sinh[a + b*Log[c*x^n]], x, 1, -((b*n*x^(1 + m)*Cosh[a + b*Log[c*x^n]])/((1 + m)^2 - b^2*n^2)) + ((1 + m)*x^(1 + m)*Sinh[a + b*Log[c*x^n]])/((1 + m)^2 - b^2*n^2)}
487{x^m*Sinh[a + b*Log[c*x^n]]^2, x, 2, (2*b^2*n^2*x^(1 + m))/((1 + m)*((1 + m)^2 - 4*b^2*n^2)) - (2*b*n*x^(1 + m)*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]])/((1 + m)^2 - 4*b^2*n^2) + ((1 + m)*x^(1 + m)*Sinh[a + b*Log[c*x^n]]^2)/((1 + m)^2 - 4*b^2*n^2)}
488{x^m*Sinh[a + b*Log[c*x^n]]^3, x, 2, -((6*b^3*n^3*x^(1 + m)*Cosh[a + b*Log[c*x^n]])/(((1 + m)^2 - 9*b^2*n^2)*((1 + m)^2 - b^2*n^2))) + (6*b^2*(1 + m)*n^2*x^(1 + m)*Sinh[a + b*Log[c*x^n]])/(((1 + m)^2 - 9*b^2*n^2)*((1 + m)^2 - b^2*n^2)) - (3*b*n*x^(1 + m)*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]]^2)/((1 + m)^2 - 9*b^2*n^2) + ((1 + m)*x^(1 + m)*Sinh[a + b*Log[c*x^n]]^3)/((1 + m)^2 - 9*b^2*n^2)}
489{x^m*Sinh[a + b*Log[c*x^n]]^4, x, 3, (24*b^4*n^4*x^(1 + m))/((1 + m)*((1 + m)^2 - 16*b^2*n^2)*((1 + m)^2 - 4*b^2*n^2)) - (24*b^3*n^3*x^(1 + m)*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]])/(((1 + m)^2 - 16*b^2*n^2)*((1 + m)^2 - 4*b^2*n^2)) + (12*b^2*(1 + m)*n^2*x^(1 + m)*Sinh[a + b*Log[c*x^n]]^2)/(((1 + m)^2 - 16*b^2*n^2)*((1 + m)^2 - 4*b^2*n^2)) - (4*b*n*x^(1 + m)*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]]^3)/((1 + m)^2 - 16*b^2*n^2) + ((1 + m)*x^(1 + m)*Sinh[a + b*Log[c*x^n]]^4)/((1 + m)^2 - 16*b^2*n^2)}
490
491
492(* Integrands of the form Sinh[a+b*Log[c*x^n]]^p/x where p is an integer *)
493{Sinh[a + b*Log[c*x^n]]/x, x, 2, Cosh[a + b*Log[c*x^n]]/(b*n)}
494{Sinh[a + b*Log[c*x^n]]^2/x, x, 2, -(Log[c*x^n]/(2*n)) + (Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]])/(2*b*n)}
495{Sinh[a + b*Log[c*x^n]]^3/x, x, 3, -(Cosh[a + b*Log[c*x^n]]/(b*n)) + Cosh[a + b*Log[c*x^n]]^3/(3*b*n)}
496{Sinh[a + b*Log[c*x^n]]^4/x, x, 3, (3*Log[c*x^n])/(8*n) - (3*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]])/(8*b*n) + (Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]]^3)/(4*b*n)}
497{Sinh[a + b*Log[c*x^n]]^5/x, x, 3, Cosh[a + b*Log[c*x^n]]/(b*n) - (2*Cosh[a + b*Log[c*x^n]]^3)/(3*b*n) + Cosh[a + b*Log[c*x^n]]^5/(5*b*n)}
498
499
500(* Integrands of the form Sinh[a+b*Log[c*x^n]]^p/x where p is a half-integer *)
501{Sinh[a + b*Log[c*x^n]]^(5/2)/x, x, 4, -((6*I*EllipticE[Pi/4 - (1/2)*I*(a + b*Log[c*x^n]), 2]*Sqrt[Sinh[a + b*Log[c*x^n]]])/(5*b*n*Sqrt[I*Sinh[a + b*Log[c*x^n]]])) + (2*Cosh[a + b*Log[c*x^n]]*Sinh[a + b*Log[c*x^n]]^(3/2))/(5*b*n)}
502{Sinh[a + b*Log[c*x^n]]^(3/2)/x, x, 4, -((2*I*EllipticF[Pi/4 - (1/2)*I*(a + b*Log[c*x^n]), 2]*Sqrt[I*Sinh[a + b*Log[c*x^n]]])/(3*b*n*Sqrt[Sinh[a + b*Log[c*x^n]]])) + (2*Cosh[a + b*Log[c*x^n]]*Sqrt[Sinh[a + b*Log[c*x^n]]])/(3*b*n)}
503{Sqrt[Sinh[a + b*Log[c*x^n]]]/x, x, 3, (2*I*EllipticE[Pi/4 - (1/2)*I*(a + b*Log[c*x^n]), 2]*Sqrt[Sinh[a + b*Log[c*x^n]]])/(b*n*Sqrt[I*Sinh[a + b*Log[c*x^n]]])}
504{1/(x*Sqrt[Sinh[a + b*Log[c*x^n]]]), x, 3, (2*I*EllipticF[Pi/4 - (1/2)*I*(a + b*Log[c*x^n]), 2]*Sqrt[I*Sinh[a + b*Log[c*x^n]]])/(b*n*Sqrt[Sinh[a + b*Log[c*x^n]]])}
505{1/(x*Sinh[a + b*Log[c*x^n]]^(3/2)), x, 4, -((2*Cosh[a + b*Log[c*x^n]])/(b*n*Sqrt[Sinh[a + b*Log[c*x^n]]])) + (2*I*EllipticE[Pi/4 - (1/2)*I*(a + b*Log[c*x^n]), 2]*Sqrt[Sinh[a + b*Log[c*x^n]]])/(b*n*Sqrt[I*Sinh[a + b*Log[c*x^n]]])}
506{1/(x*Sinh[a + b*Log[c*x^n]]^(5/2)), x, 4, -((2*Cosh[a + b*Log[c*x^n]])/(3*b*n*Sinh[a + b*Log[c*x^n]]^(3/2))) - (2*I*EllipticF[Pi/4 - (1/2)*I*(a + b*Log[c*x^n]), 2]*Sqrt[I*Sinh[a + b*Log[c*x^n]]])/(3*b*n*Sqrt[Sinh[a + b*Log[c*x^n]]])}
507
508
509(* Integrands of the form Sinh[a+2/n*Log[c*x^n]]^p where p is a half-integer *)
510{Sinh[a + 2/n*Log[c*x^n]]^(5/2), x, 6, -((5*x*(Sqrt[-1 + E^(2*a)*(c*x^n)^(4/n)] - ArcTan[Sqrt[-1 + E^(2*a)*(c*x^n)^(4/n)]])*Sqrt[Sinh[a + (2*Log[c*x^n])/n]])/(16*Sqrt[-1 + E^(2*a)*(c*x^n)^(4/n)])) + (5/24)*x*Cosh[a + (2*Log[c*x^n])/n]*Sinh[a + (2*Log[c*x^n])/n]^(3/2) - (1/24)*x*Sinh[a + (2*Log[c*x^n])/n]^(5/2)}
511{Sqrt[Sinh[a + 2/n*Log[c*x^n]]], x, 5, (x*(Sqrt[-1 + E^(2*a)*(c*x^n)^(4/n)] - ArcTan[Sqrt[-1 + E^(2*a)*(c*x^n)^(4/n)]])*Sqrt[Sinh[a + (2*Log[c*x^n])/n]])/(2*Sqrt[-1 + E^(2*a)*(c*x^n)^(4/n)])}
512{1/Sinh[a + 2/n*Log[c*x^n]]^(3/2), x, 1, -((x*Cosh[a + (2*Log[c*x^n])/n])/Sqrt[Sinh[a + (2*Log[c*x^n])/n]]) + x*Sqrt[Sinh[a + (2*Log[c*x^n])/n]]}
513{1/Sinh[a + 2/n*Log[c*x^n]]^(7/2), x, 2, -((x*Cosh[a + (2*Log[c*x^n])/n])/(5*Sinh[a + (2*Log[c*x^n])/n]^(5/2))) - x/(15*Sinh[a + (2*Log[c*x^n])/n]^(3/2)) + (8*x*Cosh[a + (2*Log[c*x^n])/n])/(15*Sqrt[Sinh[a + (2*Log[c*x^n])/n]]) - (8/15)*x*Sqrt[Sinh[a + (2*Log[c*x^n])/n]]}
514
515
516(* ::Subsection::Closed:: *)
517(*Miscellaneous integrands involving one sine*)
518
519
520(* Integrands of the form x^m*Sinh[x]^n where m is an integer and n is a half-integer *)
521{x/Sinh[x]^(3/2) - x*Sqrt[Sinh[x]], x, 2, -((2*x*Cosh[x])/Sqrt[Sinh[x]]) + 4*Sqrt[Sinh[x]]}
522{x/Sinh[x]^(5/2) + x/(3*Sqrt[Sinh[x]]), x, 2, -((2*x*Cosh[x])/(3*Sinh[x]^(3/2))) - 4/(3*Sqrt[Sinh[x]])}
523{x/Sinh[x]^(7/2) + (3/5)*x*Sqrt[Sinh[x]], x, 3, -((2*x*Cosh[x])/(5*Sinh[x]^(5/2))) - 4/(15*Sinh[x]^(3/2)) + (6*x*Cosh[x])/(5*Sqrt[Sinh[x]]) - (12*Sqrt[Sinh[x]])/5}
524{x^2/Sinh[x]^(3/2) - x^2*Sqrt[Sinh[x]], x, 4, -((2*x^2*Cosh[x])/Sqrt[Sinh[x]]) + 8*x*Sqrt[Sinh[x]] - (16*I*EllipticE[Pi/4 - (I*x)/2, 2]*Sqrt[Sinh[x]])/Sqrt[I*Sinh[x]]}
525
526
527{(x + Sinh[x])^2, x, 6, -(x/2) + x^3/3 + 2*x*Cosh[x] - 2*Sinh[x] + (1/2)*Cosh[x]*Sinh[x]}
528{(x + Sinh[x])^3, x, 10, -((3*x^2)/4) + x^4/4 + 5*Cosh[x] + 3*x^2*Cosh[x] + Cosh[x]^3/3 - 6*x*Sinh[x] + (3/2)*x*Cosh[x]*Sinh[x] - (3*Sinh[x]^2)/4}
529
530
531{Sinh[a + b*x]/(c + d*x^2), x, 10, -((CoshIntegral[-((b*(Sqrt[-c] + Sqrt[d]*x))/Sqrt[d])]*Sinh[a - (b*Sqrt[-c])/Sqrt[d]])/(2*Sqrt[-c]*Sqrt[d])) + (CoshIntegral[-((b*(Sqrt[-c] - Sqrt[d]*x))/Sqrt[d])]*Sinh[a + (b*Sqrt[-c])/Sqrt[d]])/(2*Sqrt[-c]*Sqrt[d]) - (Cosh[a + (b*Sqrt[-c])/Sqrt[d]]*SinhIntegral[(b*Sqrt[-c])/Sqrt[d] - b*x])/(2*Sqrt[-c]*Sqrt[d]) - (Cosh[a - (b*Sqrt[-c])/Sqrt[d]]*SinhIntegral[(b*Sqrt[-c])/Sqrt[d] + b*x])/(2*Sqrt[-c]*Sqrt[d])}
532{Sinh[a + b*x]/(c + d*x + e*x^2), x, 9, (CoshIntegral[(b*(d - Sqrt[d^2 - 4*c*e] + 2*e*x))/(2*e)]*Sinh[a - (b*(d - Sqrt[d^2 - 4*c*e]))/(2*e)])/Sqrt[d^2 - 4*c*e] - (CoshIntegral[(b*(d + Sqrt[d^2 - 4*c*e] + 2*e*x))/(2*e)]*Sinh[a - (b*(d + Sqrt[d^2 - 4*c*e]))/(2*e)])/Sqrt[d^2 - 4*c*e] + (Cosh[a - (b*(d - Sqrt[d^2 - 4*c*e]))/(2*e)]*SinhIntegral[(b*(d - Sqrt[d^2 - 4*c*e] + 2*e*x))/(2*e)])/Sqrt[d^2 - 4*c*e] - (Cosh[a - (b*(d + Sqrt[d^2 - 4*c*e]))/(2*e)]*SinhIntegral[(b*(d + Sqrt[d^2 - 4*c*e] + 2*e*x))/(2*e)])/Sqrt[d^2 - 4*c*e]}
533
534
535{Sinh[Sqrt[x]]/Sqrt[x], x, 2, 2*Cosh[Sqrt[x]]}
536