Решение смешанной задачи для уравнения гиперболического типа методом сеток
Категория реферата: Рефераты по математике
Теги реферата: функция реферат, дипломная работа разработка
Добавил(а) на сайт: Геронтий.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
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}
Рекомендуем скачать другие рефераты по теме: контрольные бесплатно, рефераты.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата