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

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

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

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

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

CALL NEWTO (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 PRITE (A,B,EPS,X,K)

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

* МЕТОДОМ ПРОСТЫХ ИТЕРАЦИЙ

F1=ABS (FJ1 (A))

IF (F1.GE.1.) GO TO 2

F2=ABS (FJ1 (B))

IF (F2.GE.1.) GO TO 4

PRINT*, ‘ВВЕДИТЕ ДОПУСКАЕМУЮ

*ПОГРЕШНОСТЬ EPS ’

READ (5,*) EPS

K= 0

X0 = (A+B)* 0.5

1 X = FJ (X0)

K= K+1

IF ( ABS (F(X)).LE. EPS) GO TO 5

IF ( ABS (X-X0).LE. EPS) GO TO 5

X0 = X

GO TO 1

2 PRINT 3, F1

3 FORMAT (3X,’ЕСЛИ ПЕРВАЯ ПРОИЗВОДНАЯ

*ЭКВИВАЛЕНТНОГО УРАВНЕНИЯ’,

*’FJ1=’,F8.2,’ >1’/ 3X,’ТО МЕТОД ПРОСТЫХ

*ИТЕРАЦИЙ, К РЕШЕНИЮ ДАННОГО

*УРАВНЕНИЯ, НЕПРЕМЕНИМ’)

GO TO 5

4 PRINT 3,F2

5 RETURN

END

FUNCTION F(X)

* Решаемое уравнение

F=X-COS(X)-.25

END

FUNCTION FJ(X)

* Эквивалентное уравнение

FJ=COS(X)+0.25

END

FUNCTION FJ1(X)

* Производная эквивалентного уравнения

FJ1= -SIN(X)

END

Примечания. 1. Все подпрограммы, вызываемые главной программой, должны быть записаны в одном файле с главной программой.

2. Текст подпрограммы OTKOR приведен в приложении 1,

подпрограммы IDRES – в приложении 2.

Развернуть

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

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

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

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

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

Если Вам нужно дополнительный материал на эту тему, или Вы не нашли то, что искали, рекомендуем воспользоваться поиском по нашей базе работ: CALL NEWTO (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 KHORD (X1,X2,EPS,X,K)
CALL IDRES(X1,X2,EPS,X,K) 10 STOP END SUBROUTINE KHORD(A,B,EPS,X,K) * РЕШЕНИЕ НЕЛИНЕЙНЫХ УРАВНЕНИЙ * МЕТОДОМ ХОРД PRINT*,'ВВЕДИ

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*,'В

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