* Данный текст распознан в автоматическом режиме, поэтому может содержать ошибки
508
Приближение функций и прогноз
Рис. 6.32. График функции f(x)
g3:=Plot[p[x],{x,0,10}] Show[g3,g2]
Как видно из рис. 6.33, график полинома степени 10 очень похож на график аппроксимируемой функции (рис. 6.32) и практически точно (в пределах видимо сти) проходит через узловые точки. Судить о точности аппроксимации можно по графику абсолютной погрешнос ти, которую можно представить разностью p(x)–f(x). Для построения такого гра фика (рис. 6.34) воспользуемся функцией Plot:
Plot[(p[x]-f[x]),{x,0,10},PlotRange?{-0.0008,0.0001}]
Результат аппроксимации вполне удовлетворительный. Максимальная по грешность менее 0.001 (или 0,1%). Для ряда практических расчетов (но далеко не для всех) эта погрешность вполне приемлема.