Метод конечных разностей решения краевой задачи нестационарной теплопроводности
Составление программы и численное решение краевой задачи нестационарной теплопроводности методом конечных разностей. Определение начальных и граничных условий, физические условия однозначности. Реализация программы на языке программирования Pascal.
Рубрика | Программирование, компьютеры и кибернетика |
Вид | контрольная работа |
Язык | русский |
Дата добавления | 08.07.2013 |
Размер файла | 1,3 M |
Отправить свою хорошую работу в базу знаний просто. Используйте форму, расположенную ниже
Студенты, аспиранты, молодые ученые, использующие базу знаний в своей учебе и работе, будут вам очень благодарны.
Размещено на http://www.allbest.ru
Размещено на http://www.allbest.ru
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ РОССИЙСКОЙ ФЕДЕРАЦИИ
Федеральное государственное бюджетное образовательное учреждение
высшего профессионального образования
«НАЦИОНАЛЬНЫЙ ИССЛЕДОВАТЕЛЬСКИЙ
ТОМСКИЙ ПОЛИТЕХНИЧЕСКИЙ УНИВЕРСИТЕТ»
Институт - Энергетический институт
Направление- 140100 Теплоэнергетика
Кафедра - ТПТ
Отчет
по практическому занятию №1
«Метод конечных разностей решения краевой задачи нестационарной теплопроводности»
Исполнитель:
Студент, гр. 5б14 Шустов А.М.
Руководитель:Барановский Н.В.
Томск -2013
Содержание
Цель практического занятия
Теоретические сведения
Метод конечных разностей (МКР)
Практическая часть
Результаты вычислений
Вывод
Список литературы
Цель практического занятия:
Написать программу и численно решить краевую задачу нестационарной теплопроводности методом конечных разностей.
Задание №2
Уравнение нестационарной теплопроводности
Начальные условия:
t=0; T=;
Граничные условия:
x=0; T=;
x=Lx; T=;
Параметры задачи: число узлов N = 21; время расчета con = 30 с; толщина пластины Lx = 0,2м; коэффициент теплопроводности 384 Вт/(м•К); плотность 8800 кг/; коэффициент теплоемкости c = 381 Дж/(кг•К); начальная температура = 373 К; температура на левой границе = 323 К; температура на правой границе = 673 К;
Теоретические сведения
Теплопроводностью называется молекулярный перенос теплоты в сплошной среде. Этот процесс возникает при неравномерном распределении температур. В этом случае теплота передается за счет непосредственного соприкосновения частиц, имеющих различную температуру, что приводит к обмену энергией между молекулами, атомами или свободными электронами.
Нестационарный перенос тепла теплопроводностью описывается следующим уравнением, записанным в декартовой системе координат:
Это уравнение устанавливает связь между временным и пространственным изменением температуры в любой точке тела. Здесь - плотность, c - удельная теплоемкость, - коэффициент теплопроводности, x,y,z,t,T) - мощность внутренних источников тепловыделения. Чтобы выделить конкретный вариант развития процесса, необходимо добавить условия однозначности, которые содержат геометрические, физические, начальные и граничные условия. Геометрические условия определяют форму и размеры тела, в котором протекает изучаемый процесс. Физические условия определяют теплофизические характеристики тела , , c. Временные (начальные условия) условия содержат распределение температуры в теле в начальный момент времени.
Метод конечных разностей (МКР)
Идея МКР состоит в том, что вместо производных в дифференциальном уравнении используются их конечноразностные аппроксимации. При использовании МКР для задач теплопроводности твердое тело представляют в виде совокупности узлов. Аппроксимируя (заменяя) частные производные дифференциального уравнения конечными разностями получают систему линейных алгебраических уравнений для определения температуры, как локальной характеристики в каждом узле сетки. Полученная система является незамкнутой, для ее замыканию используют разностное представление граничных условий. В результате получают замкнутую систему линейных алгебраических уравнений, которую решают численными методами с помощью ЭВМ.
Для того чтобы дать полное математическое описание рассматриваемой задачи, необходимо задать начальные и граничные условия, а также физические условия однозначности.
Пластина разбивается на N-1 равных промежутков, т.е. строится конечно-разностная сетка.
Определяется значение температуры в i-ом узле в момент времени как ( - шаг интегрирования по временной координате, - номер шага по времени). Дифференциальные операторы в уравнении теплопроводности заменяются на их конечно-разностные аналоги.
В результате аппроксимации частных производных соответствующими конечными разностями, а также упрощения полученных систем линейных алгебраических уравнений, выводятся трехточечные разностные уравнения второго порядка.
(1)
Предполагая, что существуют такие наборы чисел при которых
(2)
получаем формулы для определения прогоночных коэффициентов :
; (3)
Затем по формуле (2) последовательно находятся , при условии, что найдено из правого граничного условия. Таким образом, решение уравнений описываемым способом, называемым методом прогонки, сводится к вычислениям по трем формулам: нахождение прогоночных коэффициентов по формулам (1), и затем получение неизвестных по формуле (2).
Для успешного применения метода прогонки нужно, чтобы в процессе вычислений не возникло ситуаций с делением на нуль, а при больших размерностях систем не должно быть быстрого роста погрешностей округлений.
Практическая часть
Ниже представлена блок-схема для решения поставленного уравнения нестационарной теплопроводности, методом конечных разностей.
Программа была реализована на языке программирования Pascal. Ниже представлен исходный код программы.
Uses crt;
const N=21;L=0.2;y=384;p=8800;xc=381;T0=273;T1=323;T2=673;con=30;
type
vector= array[1..21] of real;
Var
i:integer;
T, alfa, beta: vector;
A,B,C,F,tau,h,time: real;
g:text;
BEGIN
h :=L/(N-1);
tau:=con/100;
for i:=1 to N do
T[i]:=T0;
time:=0;
while time<con dobegin
time:=time+tau;
alfa[1]:=0;
beta[1]:=T1;
for i:=2 to N-1 dobegin
A:=y/sqr(h);
B:=2*y/sqr(h)+p*xc/tau;
C:=y/sqr(h);
F:=-p*xc*T[i]/tau;
alfa[i]:=A/(B-C*alfa[i-1]);
beta[i]:=(C*beta[i-1]-F)/(B-C*alfa[i-1]);
end;
T[N]:=T2;
for i:=N-1 downto 1 do
T[i]:= alfa[i]*T[i+1]+beta[i];
end;
Assign(g,'teplo.dat');
Rewrite(g);
for i:=1 to N do
writeln(g,'X= ', h*(i-1):8:3,' ',T[i]:10:5);
close(g);
readln;
END.
Результаты вычислений
X, м |
T, К |
|
0.000 |
323.00000 |
|
0.010 |
322.45884 |
|
0.020 |
322.27634 |
|
0.030 |
322.81001 |
|
0.040 |
324.41444 |
|
0.050 |
327.43851 |
|
0.060 |
332.22100 |
|
0.070 |
339.08433 |
|
0.080 |
348.32637 |
|
0.090 |
360.21026 |
|
0.100 |
374.95282 |
|
0.110 |
392.71199 |
|
0.120 |
413.57429 |
|
0.130 |
437.54350 |
|
0.140 |
464.53153 |
|
0.150 |
494.35303 |
|
0.160 |
526.72441 |
|
0.170 |
561.26827 |
|
0.180 |
597.52337 |
|
0.190 |
634.96001 |
|
0.200 |
673.00000 |
Представим результаты вычислений в виде графической зависимости температуры от пространственной координаты. Построение выполнено в графическом редакторе OriginPro.
Рис. 4. Зависимость температуры пластины от пространственной координаты.
Вывод
В данной работе был реализован метод конечных разностей на примере уравнения нестационарной теплопроводности. Основываясь на результатах работы программы, а также заранее известных ответах, можно сделать вывод что, программа написана верно, выходные данные являются достоверными, и могут быть использованы на практике.
По результатам работы программы был построен график зависимости температуры от пространственной координаты. График нелинейный, и возрастает схоже с параболической зависимостью.
Список литературы
конечная разность программа теплопроводность
1. Кузнецов Г.В., Шермет М.А. Разностные методы решения задач теплопроводности. - Томск: ТПУ, 2007. - 172с.
2. Киреев В.И., Пантелеев А.В. Численные методы в примерах и задачах. - М.: Высшая школа, 2008. - 480 с.
3. Амосов А.А., Дубинский Ю.А., Копченова Н.В. Вычислительные методы для инженеров. - М.: Высшая школа, 1994. - 544с.
Размещено на Allbest.ru
Подобные документы
Разностная схема решения уравнения теплопроводности. Численное решение уравнения теплопроводности в табличном процессоре Microsoft Ехсеl и в пакете математических расчётов MathCAD. Расчёт методом прогонки. Изменение пространственной координаты.
дипломная работа [248,4 K], добавлен 15.03.2014Программа вычисления интеграла методом прямоугольников. Решение задачи Коши для дифференциальных уравнений. Модифицированный метод Эйлера. Методы решения краевой задачи для обыкновенного дифференциального уравнения. Задачи линейного программирования.
методичка [85,2 K], добавлен 18.12.2014Численное решение задачи Коши для обыкновенного дифференциального уравнения первого и второго порядка методом Эйлера и Рунге-Кутты и краевой задачи для ОДУ второго порядка с применением пакета MathCad, электронной таблицы Excel и программы Visual Basic.
курсовая работа [476,2 K], добавлен 14.02.2016Условие задачи: составление программы на языке Pascal для определения оптимального маршрута с ближайшим временем отправления, меньшим пребыванием в пути. Решение методом последовательного испытания. Формы представления данных, набора тестов. Результаты.
курсовая работа [22,0 K], добавлен 07.11.2009Разработка программы на языке С++ для решения дифференциального уравнения Лапласа в прямоугольной области методом сеток. Численное решение задачи Дирихле для уравнения Лапласа, построение сетки и итерационного процесса. Листинг и результат программы.
курсовая работа [307,5 K], добавлен 30.04.2012Разработана программа решения двух задач на языке программирования Turbo Pascal. Спецификация задания. Описание входных и выходных данных. Математическая постановка задачи. Алгоритм ее решения. Описание и блок-схема программы. Результаты тестирования.
курсовая работа [275,8 K], добавлен 28.06.2008Решение задачи линейного программирования графическим методом, его проверка в MS Excel. Анализ внутренней структуры решения задачи в программе. Оптимизация плана производства. Решение задачи симплекс-методом. Многоканальная система массового обслуживания.
контрольная работа [2,0 M], добавлен 02.05.2012Сетка, аппроксимация частных производных разностными отношениями. Операторная форма записи дифференциальных краевых задач. Нормы, погрешность приближённого решения. Сходимость и её порядок. Cмешанная краевая задача с граничными условиями третьего рода.
контрольная работа [501,6 K], добавлен 08.10.2011Численные методы решения задачи Коши для обыкновенных дифференциальных уравнений: Эйлера, Рунге-Кутта, Адамса и Рунге. Техники приближенного решения данных уравнений: метод конечных разностей, разностной прогонки, коллокаций; анализ результатов.
курсовая работа [532,9 K], добавлен 14.01.2014Численный метод для решения однородного дифференциального уравнения первого порядка методом Эйлера. Решение систем дифференциальных уравнений методом Рунге–Кутта. Решение краевой задачи. Уравнения параболического типа, а также Лапласа и Пуассона.
курсовая работа [163,5 K], добавлен 27.05.2013