Решение смешанной задачи для уравнения гиперболического типа методом сеток
Категория реферата: Рефераты по математике
Теги реферата: функция реферат, дипломная работа разработка
Добавил(а) на сайт: Геронтий.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21
WriteLn;
Write('t=',t:2:2,' ');
For i := 1 to n do
If u2[i] >= 0 then Write(' ',u2[i]:3:3) else Write(u2[i]:3:3);
For j := 1 to 15 do
Begin
{Subroutine GIP3 Begin}
n1 := n1-1;
{Вычисление параметра сетки для проверки условия Куранта}
a1 := ht/hx;
if a1 > 1 then WriteLn('Нарушено условие Куранта') else
Begin
b1 := a1 * a1;
a1 := 2 * ( 1 - b1);
{Вычисление решения на очередном слое}
For i := 2 to n do u3[i] := a1*u2[i] + b1 * (u2[i+1] +
u2[i-1]) - u1[i];
For i := 2 to n do
Begin
u1[i] := u2[i];
u2[i] := u3[i]
End;
End;
u1[n] := 0;
u2[n] := 0;
u3[n] := 0;
{Subroutine GIP3 End}
t := t + ht;
WriteLn;
Write('t=',t:2:2,' ');
For i := 1 to n do
{Вывод результатов}
If u2[i] >= 0 then Write(' ',u2[i]:3:3) else Write(u2[i]:3:3);
End;
WriteLn;
WriteLn;
End.
Скачали данный реферат: Назарий, Уваров, Efimov, Куксилин, Sil'vestra, Кабаидзе.
Последние просмотренные рефераты на тему: доклад на тему человек человек, виды понятий реферат, как сделать шпаргалку, доклад на тему язык.
Предыдущая страница реферата | 11 12 13 14 15 16 17 18 19 20 21