Решение смешанной задачи для уравнения гиперболического типа методом сеток
Категория реферата: Рефераты по математике
Теги реферата: функция реферат, дипломная работа разработка
Добавил(а) на сайт: Геронтий.
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата
If u1[i] >= 0 then Write(' ',u1[i]:3:3) else Write(u1[i]:3:3) ;
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);
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;
Рекомендуем скачать другие рефераты по теме: контрольные бесплатно, рефераты.
Предыдущая страница реферата | 5 6 7 8 9 10 11 12 13 14 15 | Следующая страница реферата