Методические указания к лабораторным работам

жүктеу/скачать 1,05 Mb.

бет	15/15
Дата	19.09.2023
өлшемі	1,05 Mb.
	#108615
түрі	Методические указания

1 ... 7 8 9 10 11 12 13 14 15

Байланысты:
сб ЛР КТв ТЭР

Приложение С

		Найти корень уравнения


		в интервале [0,8;1 ]
		точность ε = 0,001
Метод дихотомии

		Xn			Xn+1			Хcp			f(Хcp)
1		0,8									-0,4163
2		1									0,0841
3		0,8			1			0,9000			-0,1927
4		0,9			1			0,9500			-0,0613
5		0,95			1			0,9750			0,0096
6		0,95			0,975			0,9625			-0,0263
7		0,9625			0,975			0,9688			-0,0084
8		0,9688			0,975			0,9719			0,0006
9		0,9688			0,9719			0,9704			-0,0038
10		0,9704			0,9719			0,9712			-0,0015
11		0,9712			0,9719			0,9716			-0,0004
12		0,9716			0,9719			0,9718			0,0002
13		0,9716			0,9718			0,9717			0,0001
14		0,9716			0,9717			0,9717			-0,0001


























Продолжение приложения С

										Метод хорд

				f (Xn+1)			f (Xn)			Хn			Хn+1	X*
	1			0,0841			-0,4163			0,8			1	0,9664
	2			0,0841			-0,0153			0,9664			1	0,9715
	3			0,0841			-0,0004			0,9715			1	0,9717
	4			0,0841			0,0001			0,9717			1	0,9717



















			Метод Ньютона

			Xn			f(Xn)			f ' (Xn)			Xn+1
1			0,8			-0,4163			1,9897			1,0092
2			1,0092			0,1125			3,1087			0,9730
3			0,9730			0,0038			2,8965			0,9717
4			0,9717			0,0001			2,8890			0,9717



















			Корень уравнения х*= 0,9717 при заданной точности ε= 0,001

Приложение D

program ktvtr;

uses crt;
var a,b,h,x,y,n,I,Io,y1,i1:real;
k,l:integer;

function f1 (x:real):real;

begin
f1:=1/(x*(sqrt(sqr(x)+0.25)));
end;

begin
clrscr;

write('enter a=');
readln(a);
write('enter b=');
readln(b);
write('enter h=');
readln(h);
writeln(a,b,h);
readln(l);
Io:=(-2*ln((0.5+sqrt(sqr(b)+0.25))/b))-(-2*ln((0.5+sqrt(sqr(a)+0.25))/a));
writeln('Io=',Io:l:l);
x:=a+h;
n:=b-h;
k:=0;
y:=0;
while (x<=n) do
begin k:=k+1;
if (k mod 2 = 0) then y:=y+2*f1(x) else y:=y+4*f1(x);
x:=x+h;
end;
y:=y+f1(a)+f1(b);
I:=(h/3)*(y);
writeln('I=',I:l:l);
y1:=0;
x:=a+h;
n:=b-h;
begin
while (x<=n) do
begin
y1:=y1+2*f1(x);
x:=x+h;
end;
y1:=y1+f1(a)+f1(b);
I1:=(h/2)*y1;
writeln('I1=',I1:l:l);
end;
readln;
end.

Список литературы

1.Богатырев А.Ф., Панченко С.В., Стояк В.В., Шистер А.Г. Моделирование и оптимизация теплотехнологических процессов. – Алма-Ата.: КазПТИ, 1989. – 90 с.

2.Щуп Г.Е. Прикладные численные методы в физике и технике. – М.: ВШ, 1990. – 255с.
3.Киреев В.И., Пантелеев А.В. Численные методы в примерах и задачах. - М.: МАИ, 2000.-374с.
4.Фурунжиев Р.И., Бабушкин Ф.М., Варавко В.В. Применение математических методов и ЭВМ: Практикум.-Мн.:ВШ,1988.-191с.
5.Теплоэнергетика и теплотехника. Общие вопросы: Справочник /Под. ред. А.В.Клименко и В.М.Зорина.-М.:МЭИ,1999.-528с.

Содержание

Введение …………………………………………………………………….	3
1 Лабораторная работа «Расчет теплофизических свойств рабочих тел, используемых в теплоэнергетике»…………………………………………	3
2Лабораторная работа «Интерполирование функций» …………………	7
3 Лабораторная работа «Нахождение корней трансцендентных уравнений» …………………………………………………………………	12
4 Лабораторная работа «Численное интегрирование» ………………….	15
5 Лабораторная работа «Численные методы решения систем линейных уравнений» ………………………………………………………………….	21
6 Лабораторная работа «Решение обыкновенных дифференциальных уравнений численными методами» ………………………………………..	25
Приложение А ………………………………………………………………	29
Приложение В ………………………………………………………………	30
Приложение С ………………………………………………………………	32
Приложение D ………………………………………………………………	34
Список литературы …………………………………………………………	35

Св. план 2002 г., поз 10

Нина Гавриловна Борисова

КОМПЬЮТЕРНЫЕ ТЕХНОЛОГИИ

В ТЕПЛОЭНЕРГЕТИЧЕСКИХ РАСЧЕТАХ