Решение смешанной задачи для уравнения гиперболического типа методом сеток

| Категория реферата: Рефераты по математике
| Теги реферата: функция реферат, дипломная работа разработка
| Добавил(а) на сайт: Геронтий.

u3[1] := 0 ; { u(0,2ht) }

u3[n] := 0 ; { u(1,2ht) }

{ /// Печать заголовка }

Write(' ');

For i := 1 to n do Write(' x=', xp[i]:1:1);

WriteLn;

t := 0;

{ /// Печать решения на нулевом слое }

Write('t=',t:2:2,' ');

For i := 1 to n do

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

Рекомендуем скачать другие рефераты по теме: контрольные бесплатно, рефераты.

Claw.ru | Рефераты по математике | Решение смешанной задачи для уравнения гиперболического типа методом сеток