Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

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

b1 := a1 * a1;

a1 := 2 * ( 1 - b1);

{Вычисление решения на очередном слое}

For i := 2 to n do u3[i] := a1*u2[i] + b1 * (u2[i+1] +

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



Предыдущая страница реферата | 11  12  13  14  15  16  17  18  19  20  21 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки