no
порlШIY
1
2
3
4
5
Номер
конечного
уэnа
2
1
2
4
4
Программа
имеет
вид
иачanъноГQ
узла
з
з
1
1
2
с
пJ>ОГР&Юlа
A4iton';'eAel\eHK"
проводимости
.
Т
а б
n
If
па
27
ПРОВОIlIIМОСТЬ
4
3
1
3
2
41111en810n
k(5).n(5).e(!5).sl,ma(4.4).a(2.2).b(2)
data
8i,mа/lб*0/.а/4*0.I
.ы*оI/аt.
//.
1
4ata
k/2,1.2.4.4/.п/3.З.l.l.2/.8/4
••
З
••
l.,З
••
О.1
111=2
40
3
1=1.5
n1:n(
1)
kl:k(1)
81,ma(n1.k1):s(1)
3
al.ma(kl.nl)=s(l)
40
.. 1:1.111
b(!):8i,ma(l.m+2)
40
5
j=l.m
lf(l.пе.J)а(I.J)=-аi.mа(t.j)
.5
contlnue
40
..
J:1.m+2
.
4
a(l,i):a(i,i)+si,lIIa(i.j)
саl1
ai~(a,b.m.le)
40
7
1=1,м+2
1
81,=al.+el.ma(i,m+l)*b(l)
wrlt8(*,*)'
Pe3Yl\bT~TW
расчета:'
write(*.*)·
про.одммость
CX8MW=
.81.
atop
.
end
8ubroutln.81mq(a,b,n.ie)
с
ПОДПРОТРАМма
ре.екм.
CMCT8MW
I\инейных
уравнений
dlmenalon
a(n.n).B(n).L.(8).y(8
)
DO
2
I=l,n
2 [,( I
)=1
.
DO
5
K=l,n-
l
.
АИ=О.
DO
3
l=k.n
11=1(1'
AT:;ab.-(
а(
11
• k ) )
IF(ЛТ.L!.ЛМ)GО
ТО
3
ЛИ:ЛТ
KM=t
3 COHTIHUr;
tf(alll.eq.O.
)'0
to
100
L.M:L(
КМ)
L(
КМ):Ц
К)
ЦК):L.М
DO
5
1:1C+1,n
L.L:L(
1 )
Т=Л(LL,К)/Л(LМ.К)
8(LL):8(LL)-8(LM)*T
DO
!5
J=IC.n
5
А(LL.J):Л(LL.j)-Л(Lм.J~*Т
DO
7
I1:1,n
I:n+1-I1
:"
1..=1..(
1 )
"
=0
:J
O 8
J=I+1.n
8
S:S+Л(L.L.J)*У(J)
7
У(I):(8(LL)-S)/Л(LL,I)
DO
9
I:l.n
9
B(I):Y(I)
lе:О
return
100
lе:1
return
!HD
Э а
Д
а
ч
а
77
•
ОцредеJlИТЬ
злвкrрсllЮВО.цимость
систе
мы
IIpOВОдниКОВ.
Ба,р~ав'1'Н
задач
даны
на
I>Ио.II
(цнфрамк
YR8эа.на
ЦРОВОДИМООТЬ
ЦРОВОДНИКОВ).
3
а
Д
а
q
а
78.
ИОПОЛЬ8УЯ
методы
линейноЙ
множес
твенн
ой
ре~
еосJUl.
оостави'1'Ь
цpo~aммy
для
оnpедеJ1ения
з8ВИС
.D:
0'1'11
цро..
И8ВОДИ'1'eJ.IЫiОС'l'И
ТРУда
на
шаХ'i'6
от
У1>ОВНЯ
м
ех
ав
И88Ц1fИ
NWю..х
.tJa-
бот
11
CI>eднero
возраста
IJaБОТНИКО.в.
Оl1
редеJ1ени
е
Коsфtiицивнтов
1IJI!неЙJiоЙ
·
множеО'1'венн
ой
реI'J.)eсс
и.и
ОФОРМИТЬ
.в
виде
ПОДnPОгpaмrt.н.
У
I>авнение
реrpeооии
иокать
В
виде
:
(2:-2)
-А(х-х)
+В
(?/-i)
69