Chapter 9
Gradus ad Parnassum

§9.6 An Analytic Surprise

(J = 
          Simplify[(∫_0^2)(2 + 
                      Sin[10 α]) (((2 - x))^α) Sin[(α/x)] \[DifferentialD]x, {α > 0}]) // 
      TraditionalForm

FindMaximum[J, {α, 0.7}, PrecisionGoal -> 10, 
      WorkingPrecision ->  20]