Мои Конспекты
Главная | Обратная связь

...

Автомобили
Астрономия
Биология
География
Дом и сад
Другие языки
Другое
Информатика
История
Культура
Литература
Логика
Математика
Медицина
Металлургия
Механика
Образование
Охрана труда
Педагогика
Политика
Право
Психология
Религия
Риторика
Социология
Спорт
Строительство
Технология
Туризм
Физика
Философия
Финансы
Химия
Черчение
Экология
Экономика
Электроника

Double F(double x)





Помощь в ✍️ написании работы
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой

{

return pow(x,3)-2.8*pow(x,2)-6.2*x+3.7;

}

Double Method(double A,double B,double eps,double lambda)

{

Double

Koren,

Xnew, // новое значение Х

Xold; // значение Х на предыдущей итерации

Xnew=(A+B)/2; // начальное значение Х

Do

{

Xold=Xnew; // переназначение Х для следующей итерации

Xnew=Xold-lambda*F(Xold); // новая итерация по Х

}while(fabs(Xnew - Xold)>eps); // проверка на завершение поиска корня

koren=( Xnew + Xold)/2; // приближенное значение корня

return koren; // возврат результата

}

 

int _tmain(int argc, _TCHAR* argv[])

{

cout << "Koren =" << Method(a,b,eps,lambda) << endl;

return 0;

}

5.3. Проанализируйте результаты работы приложения (рис. 6.1).

Рис. 6.1

6. Расчет в среде MathCad.

6.1. Введите текстовую информацию о работе и постановку задачи. Изолируйте интервалы, содержащие корни уравнения. Выберите один из интервалов, например [-2, -1].

6.2. Введите формулы метода итераций (рис. 6.2).

Рис. 6.2

6.3. Создайте функцию поиска корня методом итераций (рис. 6.3).

Рис. 6.3

6.4. Рассчитайте корень уравнения (рис. 6.4). Для этого определите функцию первой производной функции и правой части двойного неравенства для нахождения коэффициента . На интервале изоляции корня > 0, следовательно, знаки неравенства не надо менять на противоположные. Исследовав значение правой части двойного неравенства , можно выбрать значение коэффициента , который позволит применить метод итераций.

Рис. 6.4

7. Расчет в среде Microsoft Excel.

7.1. Запустите на выполнение среду программирования Microsoft Excel. По умолчанию создается новый документ. Сохраните документ на рабочем диске под уникальным именем. Введите необходимую текстовую информацию для идентификации работы. Внесите информацию о постановке задачи (рис. 6.5).

Рис. 6.5

7.2. Для определения интервалов изоляции корней уравнения постройте таблицу значений функции . Выделите интервалы аргумента, на которых функция меняет знак, – это интервалы изоляции корней уравнения. Выберите один из интервалов для нахождения корня методом итераций (рис. 6.6).

Рис. 6.6

7.3. Введите справочную информацию о методе (рис. 6.7).

Рис. 6.7

7.4. Подберите значение , которое обеспечит устойчивое схождение итерационного процесса к корню (рис. 6.8). Для этого определите функцию первой производной функции и правой части двойного неравенства для нахождения коэффициента . На интервале изоляции корня > 0, следовательно, знаки неравенства надо оставить неизменными. Исследовав значение правой части двойного неравенства можно выбрать значение коэффициента , который позволит применить метод итераций.

Рис. 6.8

7.5. Постройте заголовок таблицы нахождения корня. Внесите начальное значение номера итерации и формулу для остальных номеров (рис. 6.9).

Рис. 6.9

7.6. Внесите начальное значение – середину интервала
(рис. 6.10).

Рис. 6.10

7.7. Вычислите правую часть итерационного уравнения (рис. 6.11).

Рис. 6.11

7.8. Введите формулу нового значения (рис. 6.12).

Рис. 6.12

7.9. Введите условие прекращения итераций (рис. 6.13).

Рис. 6.13

7.10. Распространите формулы на нижнюю часть таблицы (рис. 6.14).

Рис. 6.14

7.11. Расчеты можно проводить до строки, в которой условие в столбце D выполнится. Выведите окончательное значение корня уравнения (рис. 6.15).

Рис. 6.15

8. Расчет в среде программирования Delphi.

8.1. Создайте проект консольного приложения.

program Combin;

{$APPTYPE CONSOLE}

uses

SysUtils,Math;

Const

a=-2.0;// левая граница

b=-1.0;// правая граница

eps=1e-5;// точность

lambda=0.1;// коэффициент лямбда


Var

k:integer;// количество итераций

//------- функция ---------------

function F(x:real):real;

Begin

F:=power(x,3)-2.8*power(x,2)-6.2*x+3.7;

end;

 

//------- функция комбинированного метода ----

function Iter(A,B,eps:real;var i:integer):real;

Var

Xnew,// новое значение Х

Xold// значение Х на предыдущей итерации

:real;

Begin

Xnew:=(A+B)/2;// начальное значение Х

i:=0;// начальное значение числа итераций

Repeat

Xold:=Xnew;// переназначение Х для следующей итерации

Xnew:=Xold-lambda*F(Xold);// новая итерация по Х

i:=i+1;// новое значение числа итераций

until(abs(Xnew - Xold)<eps);// проверка на завершения поиска корня

Iter:=( Xnew + Xold)/2;// приближенное значение корня

end;

//------ выполняемые операторы основной программы -----

begin

WriteLn('----- Initial data: ------');

Writeln('a=',a:4:2,' b=',b:4:2,' eps=',eps:10);

WriteLn('-------- Results ---------');

Writeln('Metod iteracij: Koren = ',Iter(a,b,eps,k):12:8);

Writeln('k=',k:4);

WriteLn('--------------------------');

WriteLn('Press <Enter> to finish');

Readln;

end.

8.2. Выполните приложение (рис. 6.16).

Рис. 6.16

8.3. Сравните результаты, полученные в разных средах.

Раздел 3. ОПРЕДЕЛЕНИЕ МАССЫ ВРЕДНОЙ ПРИМЕСИ
В ОКРУЖАЮЩЕЙ СРЕДЕ

Доверь свою работу ✍️ кандидату наук!
Поможем с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой



Поиск по сайту:







©2015-2020 mykonspekts.ru Все права принадлежат авторам размещенных материалов.