Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

WriteLn;

xp[1] := 0;

xp[n] := 1;

For i := 2 to ( n - 1 ) do

Begin

x := (i-1) * hx;

xp[i] := x;

u1[i] := f(x); { u(x,0) на 0 слое }

u2[i] := u1[i] + ht * g(x); { u(x,ht) на 1 слое }

End;

{ /// Задание граничных условий }

u1[1] := 0 ; { u(0,0) }

u1[n] := 0 ; { u(1,0) }

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

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

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

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



Предыдущая страница реферата | 4  5  6  7  8  9  10  11  12  13  14 | Следующая страница реферата

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