Определение решения нелинейного уравнения методом дихотомии

12 страниц (Word-файл)

ЗАДАНИЕ №1 Определение решения нелинейного уравнения методом дихотомии

Для указанного преподавателем варианта функции функций вида у =y(х) найти корень с заданной точностью, используя метод дихотомии.
Провести табуляцию функции. Шаг табуляции выбрать равным 0.1. Используя какое-либо программное обеспечение для графического представления результатов расчета: Excel, Grapher, Origin, Techplot и т.д., представить заданную функцию графически.
Проанализировать график, сопоставив точки пересечения графика функции с осью абсцисс с численно полученным результатом, сделать выводы.

program KURSACH1

a=1

b=3

step=0.1

eps=0.0001

open(1,file='c:\FLA\SE-71\data')

do x=a,b,step

f = fu(x)

if (a>b) then

write (1) 'incorrect input'

else

print *,'f(x) = ',f

write (1,*) x,f

end if

2 f1 = fu(a)

f2 = fu(b)

if (f1*f2<0) then

c = (a+b)/2

fc = fu(c)

else

print *,'root was not found'

end if

if (f1*fc<0) then

b = c

else

a = c

endif

if ((b - a)<eps) then

print *,'f',c

else

goto 2

endif

enddo

end program KURSACH1

function fu(x)

fu=1./2*exp(-x/2)+3./2*asin(1./3*cos(x))

end function fu

Определить значение определенного интеграла . В качестве подынтегральной функции и интервала интегрирования использовать данные табл.1.

Используя программу MATHCAD определить значение интеграла. Построить график.
Определить площадь подынтегральной кривой, используя формулы численного интегрирования (правых прямоугольников, левых прямоугольников, средних прямоугольников, трапеций, Симпсона).
Исследовать точность метода, для этого провести расчеты при разных шагах численного интегрирования (число шагов интегрирования принять равным 10, 100, 1000). Сопоставить полученные результаты. Сделать выводы.