shafieza_garl
- 20
- 0
The discussion focuses on solving a numerical integration problem using Mathematica. The user seeks to determine the minimum value of an integral defined by the function f[t_] = 0.25*((-4037.89 + Exp[0.015*t]*(4044.44 - 66.6667*t))/Exp[0.015*t])^2, specifically using the NIntegrate function. The solution involves defining the integral as myint[(x_)?NumericQ] and employing the FindMinimum function to locate the minimum value of the integral within the specified range of x (0.5 to 1.5).
PREREQUISITESMathematica users, mathematicians, and engineers involved in numerical analysis and optimization tasks.
f[t_] := 0.25*
((-4037.89 + Exp[0.015*t]*(4044.44 -
66.6667*t))/Exp[0.015*t])^2
myint[(x_)?NumericQ] := NIntegrate[f[t],
{t, 0, x}]
Plot[myint[x], {x, 0, 2}]
FindMinimum[{Evaluate[myint[x]],
0.5 <= x <= 1.5}, {x, 1}]