So I have this function and I want to find the maximum value and the plot for T

But I have difficulties with how I’m supposed to write an integral part of this function in Mathematica. I attempt to write the function, but it didn’t work. Here is the code I write :
r.nb (15.9 KB)