Задача-то практически решаемая. Делается в Maple численный расчет. Ее аппроксимируете наиболее подходящей поверхностью и все дела.
это еще один пакет изучать
.
Аппроксимация полиномом не нужна, достаточно построить по точкам график
salang
Копируйте мой код полностью, не нужно писать Q(t)=... После интегрирования вы получаете число, а не функцию от t.
При установке бесконечных пределов результат выдает, но вместе с сообщением
Код:
NIntegrate::slwcon: Numerical integration converging too slowly; suspect one of the following: singularity, value of the integration is 0, highly oscillatory integrand, or WorkingPrecision too small. >>
WorkingPrecision поставил 50- все равно сообщение есть. При 100 не смог дождаться результата. Что предпринять или использовать как есть?
Так
Код:
t = List[-10^-6, -3*10^-7, -2*10^-7, -10^-7, -10^-8, -10^-9, 0,
10^-9, 10^-8, 10^-7, 10^-6, 10^-5];
....
ListPlot[%, AxesLabel -> {"t", "P(t)"}, PlotStyle -> PointSize[0.01]]
задать исходный одномерный массив для t и построить по получившимся значениям график правильно?
Как задать шаг приращения t в процедуре List, чтобы вручную не вводить числа?