рефераты конспекты курсовые дипломные лекции шпоры

Раздел Философия
/
CALL KHORD (X1,X2,EPS,X,K)

Реферат Курсовая Конспект

Выберите учебное заведение

CALL KHORD (X1,X2,EPS,X,K)

CALL KHORD (X1,X2,EPS,X,K) - раздел Философия, Основы информационных технологий и программирование Call Idres(X1,x2,eps,x,k) 10 Stop End ...

CALL IDRES(X1,X2,EPS,X,K)

10 STOP

END

SUBROUTINE KHORD(A,B,EPS,X,K)

* РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ

* МЕТОДОМ ХОРД

PRINT*,'ВВЕДИТЕ ДОПУСКАЕМУЮ ПОГРЕШНОСТЬ EPS'

READ(5,*)EPS

K=0

X1=A

X2=B

1 P=F(X1)

2 Q=F(X2)

X=X1-(X2-X1)*P/(Q-P)

K=K+1

C=F(X)

IF (ABS (C).LE.EPS) GO TO 5

IF (ABS (X2-X1).LE.2*EPS) GO TO 4

IF (C*Q.LT.0.) GO TO 3

X2=X

GO TO 2

3 X1=X

GO TO 1

4 X=(X1+X2)*0.5

5 RETURN

END

Результаты вычислений в файле “FT07F001”

РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ МЕТОДОМ ХОРД

РЕШАЕМОЕ УРАВНЕНИЕ Y = COS(2*X)-0.25

-------------- ИСХОДНЫЕ ДАННЫЕ------------------

НАЧАЛО ОТРЕЗКА XN= -2.500

КОНЕЦ ОТРЕЗКА XK= -2.000

ДОПУСКАЕМАЯ ПОГРЕШНОСТЬ EPS= 0.000100

--------------РЕЗУЛЬТАТЫ РАСЧЕТА-----------------

ИСКОМЫЙ КОРЕНЬ X= -2.482525

ЗНАЧЕНИЕ ФУНКЦИИ F(X)= 0.00005

КОЛИЧЕСТВО ИТЕРАЦИЙ K= 2.

======================================

Развернуть

Открыть в широком формате

– Конец работы –

Эта тема принадлежит разделу:

Основы информационных технологий и программирование

Министерство образования и науки... молодежи и спорта Украины... Национальный университет кораблестроения Херсонский филиал...

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: CALL KHORD (X1,X2,EPS,X,K)

Что будем делать с полученным материалом:

Если этот материал оказался полезным ля Вас, Вы можете сохранить его на свою страничку в социальных сетях:

Все темы данного раздела:

Методические указания
для самостоятельной работы студентов при изучении дисциплины «Основы информационных технологий и программирование» (численные мето

I. Некоторые сведения о приближенных вычислениях
1.1.Общие сведения о погрешностях В большинстве случаев технические вычисления производятся с приближенными числами. Это происходит потому, что исходные данные для численного определения

О т д е л е н и е к о р н е й
Пусть дано уравнение f(x)=0, в котором функция f(x) определена и непрерывна в некотором конечном или бесконечном интервале а<x<в. Всякое значение z , обращающее функцию f(x) в нуль, т.е. тако

П о л о в и н н о г о д е л е н и я .
Пусть дано уравнение f (x)= 0 , ( 1 ) , один из корней которого отделен , т.е. найден отрезок ( а , в ) , на концах которого значения функции f(x) имеют разные знаки . Для нахождения корня

Р е ш е н и е н е л и н е й н ы х у р а в н е н и й м е т о д о м х о р д
Метод хорд является более быстрым способом нахождения корня уравнения f (x)=0 , нежели метод половинного деления (Рис. 1). Пусть функция f(x) непрерывна на отрезке ( а , в

К а с а т е л ь н ы х
Метод касательных , называемый также методом Ньютона, широко используется при построении итерационных алгоритмов. Его попу-лярность объясняется быстрой сходимостью при хорошем начал

П р о с т ы х и т е р а ц и й
Этот метод решения уравнения f(х) = 0 состоит в замене исходного уравнения эквивалентным ему уравнением х = j(х) и построении последовательности хn+1 = j (хn)

Интерполяция зависимостей
Одной из важнейших задач процесса математического моделирования является вычисление значений функций, входящих в математическое описание модели. Для сложных моделей подобные вычисления могут б

Общие замечания.
Если функция непрерывна на отрезке

Вычисление определенных интегралов методом Симпсона.
Для применения метода Симпсона промежуток интегрирования делится равноотстоящими ординатами на четное число частей.

CALL IDRES(X1,X2,EPS,X,K)
0

CALL NEWTO (X1,X2,EPS,X,K)
CALL IDRES(X1,X2,EPS,X,K) 10 STOP END SUBROUTINE NEWTO (A,B,EPS,X,K) * РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ * МЕТОДОМ НЬЮТОНA PRINT*,'В

CALL NEWTO (X1,X2,EPS,X,K)
CALL IDRES(X1,X2,EPS,X,K) 10 STOP END SUBROUTINE PRITE (A,B,EPS,X,K) * РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ * МЕТОДОМ ПРОСТЫХ ИТЕРАЦИЙ

PROGRAM U6
PRINT*,'ЧИСЛЕННОЕ ИНТЕГРИРОВAНИЕ МЕТОДОМ ТРAПЕЦИЙ' PRINT*,'ВВЕДИТЕ НИЖНИЙ И ВЕРХНИЙ ПРЕДЕЛ' PRINT*,'A ТAКЖЕ РAСЧЁТНОЕ КОЛИЧЕСТВО ОРДИНAТ' READ(5,*) A,B,N H=(B-A)