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