I built a column of integrals from the CRC Handbook for Chemistry and Physics 69 edition that celebrated 75 years starting on page A-20.
In[]:=
Inactive[Integrate][,x]
n
x
Out[]=
∫x
n
x
In[]:=
Inactive[Integrate][,x]==Activate[Inactive[Integrate][,x]]
n
x
n
x
Out[]=
∫x
n
x
1+n
x
1+n
In[]:=
FormatIndefiniteIntegral//ClearAllFormatIndefiniteIntegral[input_,variable_]:=Inactive[Integrate][input,variable]==FullSimplify@Activate[Inactive[Integrate][input,variable]]
In[]:=
FormatIndefiniteIntegral[,n]
n
x
Out[]=
∫n
n
x
n
x
Log[x]
In[]:=
FormatIndefiniteIntegral[Exp[x],x]
Out[]=
∫x
x
x
In[]:=
FormatIndefiniteIntegral-,x
4
x
2
a
2
x
Out[]=
-x-x-(3+2)+Log-x+-
4
x
2
a
2
x
1
8
2
a
2
x
2
a
2
x
3
8
4
a
2
a
2
x
I will create an integral table based on the CRC Handbook 69 edition.
In[]:=
inputs=a,af[x],(p+q),,,,,Exp[x],Exp[ax],Power[b,ax],Log[x],Log[x],+,-,-,-,+,-,,,,,x,,,,,,,,,,,,,,,(a+bx),(a+bx),(*endofsectiononformscontaininga+bx*),(*startofsectiononformscontaining±,-*)+,-,-,+,-(*thebooklists±,butIhavetoentertwoseparateintegralsfor+and-*),,,,,,,;
n
x
f'[x]
f[x]
1
x
f'[x]
2
f[x]
x
a
1
2
a
2
x
1
2
a
2
x
1
2
x
2
a
1
2
a
2
x
1
2
x
2
a
1
2
x
2
a
1
x-
2
x
2
a
1
x+
2
a
2
x
1
x-
2
a
2
x
n
(a+bx)
n
(a+bx)
2
x
n
(a+bx)
1
a+bx
1
2
(a+bx)
1
3
(a+bx)
x
a+bx
x
2
(a+bx)
x
n
(a+bx)
2
x
a+bx
2
x
2
(a+bx)
2
x
3
(a+bx)
2
x
n
(a+bx)
1
x(a+bx)
1
x
2
(a+bx)
1
x
3
(a+bx)
1
2
x
1
3
x
1
2
x
2
(a+bx)
2
c
2
x
2
x
2
c
1
2
c
2
x
1
2
c
2
x
1
2
x
2
c
x
2
c
2
x
x
2
c
2
x
x
2
c
2
x
x
2
c
2
x
x
2
c
2
x
x
n+1
(+)
2
c
2
x
x
n+1
(-)
2
c
2
x
1
n
(+)
2
c
2
x
x
n+1
(-)
2
c
2
x
1
n
(-)
2
x
2
c
x
1
(-)
2
x
2
c
x
n+1
(-)
2
x
2
c
In[]:=
Table[FormatIndefiniteIntegral[input,x],{input,inputs}]
In[]:=
Column[Table[FormatIndefiniteIntegral[input,x],{input,inputs}]]
Out[]=
In[]:=
Column[Table[FormatIndefiniteIntegral[input,x],{input,inputs}]]//TraditionalForm
Out[]//TraditionalForm=
I’m going to apply my function to questions from the MIT Integration Bee.
In[]:=
MITIntegrationBeeQualtifyingExamIntegrals=<|"2022-1"->,"2022-4"->,"2022-5"->,"2022-7"->Sin[],"2022-8"->,"2022-9"->,"2022-13"->,"2022-14"->Sin[x+Sin[x]]-Sin[x-Sin[x]],"2022-15"->+,"2022-16"->(1+Log[x])Log[Log[x]],"2022-17"->+++++,"2022-18"->,"2022-20"->,"2020-1"->,"2020-5"->+|>;
1+Cos[x]
x+Sin[x]
Sinh[x]
Cosh[x]-Sinh[x]
x
x-1
+x+1
3
x
2
x
x
1-
4
x
1
2
Cosh[x]
3
x
1+x++
2
x
2
3
x
6
4
Tan[x]
3
Sec[x]
2
Tan[x]
5
Sec[x]
1
1+Sin[x]
1
1+Cos[x]
1
1+Tan[x]
1
1+Cot[x]
1
1+Sec[x]
1
1+Csc[x]
1
x-
2
x
1
1+
2
Cos[x]
Log[2x]
xLog[x]
1
2
x
2
(x-1)
In[]:=
Column[Table[FormatIndefiniteIntegral[input,x],{input,Values[MITIntegrationBeeQualtifyingExamIntegrals]}]]//TraditionalForm
Out[]//TraditionalForm=
cos(x)+1 x+sin(x) |
sinh(x) cosh(x)-sinh(x) 1 4 2x |
x x-1 +x+1 1 15 x-1 (-32 x 3/2 (x+1) |
∫ 3 x 2 x 1 2 2 x 2 x 2 x |
x 1- 4 x 1 2 -1 tanh 2 x |
∫ 2 sech |
3 x 3 x 6 2 x 2 |
∫(sin(x+sin(x))-sin(x-sin(x)))x-2cos(sin(x)) |
∫( 2 tan 5 sec 4 tan 3 sec 1 3 3 tan 3 sec |
∫(log(x)+1)log(log(x))xx(log(x)log(log(x))-1) |
1 sin(x)+1 1 cos(x)+1 1 tan(x)+1 1 cot(x)+1 1 csc(x)+1 1 sec(x)+1 |
1 x- 2 x 2 3/2 (x-1) x-1 -x )3/2 (1-x) |
1 2 cos -1 cot 2 cot(x))2 |
log(2x) xlog(x) |
1 2 x 2 (x-1) -1 tan |