госту *
>* •<’•■=■»*n-
If<x,LT.-3,i f,0 TO ?
H!:E*Pi-l(..?usflKT|»|).X|,i.EPF|<)) %
TO
2
1
1
RETO*M
1
1
1
1
2
H’*EX4(-x«X’*(X«*4#4-6.X«X*l3)/(*»*6*e>
Ем0
Sur.ROljTINt
PP
(т> V д tv Ц»
0!MENSj0»| ТХ( Л) ,yft<3.50» ,V 3.3,50) ,TW13>
(in l l»).,5-V
TV,I ’s0
Dnj=i ,3. . . .
1
T^( 1)sTW(l )•Л(I.J>h’« lT*(j1-V0(j |)
RPT
ii
R.
j
1
1
1
356
1357
1 3
за
эз«
1
360
361
362
1363
364
j363
1366
3567
1
36в
569
J3*0
15U
1-372
J373
0 2
1
2
-1
1
1
1374
1373
1376
1377
Э7В
1
•ST
•
:
*.
1
3
V
1379
зао
i3«i
-f
»
END
ruUCTTON Й МТЦ
1
X.XT,NT
,
ы
,
W >
LOGICAL W
DIMENSION xT<N>,vTfNj
- ---
!r(.NOT.W,4ND.{*.6T.XTf»j> O
r
x
LT xT(l)))b
Э T
K M-_v.• .•
DOfa ,N* ••
I
Г
(X,GE.XT(T-l j> x* f
; СПЩТ |||UE* * -
‘■w.
AlNTR=VT(X)*(X.xTrK>).(vT(K*l)-wT{K,)/(XT(
к* >.хт<К>»
return
.
2
PR
I
NT
•3
ГОЯМАТ(Ю * »«ЗИДЧЕНИЕ
X
ВЫХОдит 3* ПРЕДЕЛЫ
*s
4
. ..
ОТоЕзкд ИНТЕРПОЛЯЦИИ»)
s t o
p
1
13
1382
383
138*.
И65
1586
a
7
return
E
n
D
subroutine
$
t
<
n
,
x
.
v
»
ti
C
o
m
m
o n
/B
l
2/A(3*3.30),A4(3*50) ,A44f5o>
1/BL8/F
p
R(30),
m
O<30),
m
01(50’|M02(50),XP ,*P
n
1
8
0
8
00 1
1
6
1
1588
И89
1590
391
1592
.593
159*.
1595
1596
1397
1598
1690
1600
1601
1602
9
1603
16C4
1605
4"
ClMENSlON
X
(3)»V<3)#T1f3),T2(3)
Т,:1.ЕЦ
AiP*0 ;
Ra
CR*A44(ГП
Oo
1 1
a
1
.3
R=BR *д4« 1»
N
)*V tI>
CP=CP»7*A4C I,К>*X<1»
лr. .3
ДPaA
R
•д(I»К
, N
l•V<1 »*V(K)
ORi ft♦дi|.K,N)«X(I)*VHC>
CR=CR*д (l»X
*
4)
* X
(I)
*X
I
К
)
BRs
2
•bp
P
s
BR**^-4»
a
R*CR
lr<R.tT.O..OR,<AR.EQ.O,.ANO,BR,EO,Ot)> 60
TO
IMAR.
e q
.O. ) GO TO 2
TMl*(-ftR^SQRT(Rl)/
2
/AP
T
m
23(-
h r
-S
br
T(R
j
) /
2
/
д
R
1606
r*
о
t-
o
о
1607
’608
?
T
m
1
s
- CJ?/ 8R
Тм2sTM