найдите минимум функции, определяемой интеграцией в Mathematica

Я должен найти минимум функции f (t) = интервал g (t, x) дуплекс более чем [0,1]. То, что я сделал в mathematica, следующие:

f[t_] = NIntegrate[g[t,x],{x,-1,1}]
FindMinimum[f[t],{t,t0}]

Однако mathematica останавливается при первой попытке, потому что NIntegrate не работает с символьным t. Этому нужно определенное значение для оценки. Хотя График [f [t], {t, 0,1}] работает perferctly, остановки FindMinimum в начальной точке.

Я не могу заменить NIntegrate, Интегрируются, потому что функция g является немного сложной и если Вы вводите, Интегрируются, mathematica просто продолжают бежать...

Какой-либо способ обойти его?Спасибо!