Стр. 166
ГОСТ 25645.101— 83
с SEL бЫВОрКд <0ЭФ*ИЦИЕНТ08’ДЛЯ рдСиЕт д Д
анных
<
a
,
c
,
u
,
n
,&V ПО
h
, F | ) . * N 0 3 ‘
SUBROUTINE SE
l
< * > #^ # SC
m
. N1
DIMENSION SCM(N)
C0MM04/flRRAy/Ar H ( 2.7> I 0 » 3 )
| = l N T ( F / 2 3 ¥ - 0 <5 > - ( ( I S J C N { l , < ? 0 , - n j ^ p / 2 j
t = l > ( l $ I C K ( i , ( X - l e o .*♦( JS I C H u . j X . j O O ,
DO 2 77 K*1, V
7 77 S C M ( K > - i r H ( K * M . I ■И
RETURN
END
0 SEL KOHEU , , ,
c
FJNF ВЫЧИСЛЕНИЕ
. , ................................................................................................................’ ..................................
...
*И*НЕ p,
*
г о д Hi* и**
Л
ИAn
А ЭО
мд *
В
ЫС
q t
* I wf f NUM
......................................
...
FUNCTION FTNF( H>
IF <5 lONt 1, , <» - l 6 0 , ’ >♦S I 6 N | .’i , , | H - 6 0 0 > > » 1 ? 0 * 1 в 0 ’ 6 0 0
120 F | N F e 1 2 0 .
GO TO 2 166
100 F t N r s i e O ,
CO T0 2 16 6
600 Г
| N F
e
6 00 .
2 1 8 6
CONTI4UF
RETURN
END
C• Г I NF KOHEU ..............................................................................................................................................................................
......
C F s u R ВЫЧИСЛЕНИЕ в Е Р * мЕй грдмиЧЫ ЗИДПАЗОнд вЫСОт * <UPPf«UM
FUNCTION FSURfH)
IF ( S ICN < 1 . , ( и - l 60 . ) 1 *S I SN( . :, н - б п о >»
1
U S D . 1 6 0 0 . t 500
1 1 6 0
FSUPsl-fld.
GO TO 1861.
1 60 0 FSUP= 6C 0,
GO TO
1 8 6 1
1 50 0 c S U P s l 3 0 0 .
1 86 1 CONTINUE
RETURN
FNP
C*
f
SUP <OMfl!
.
............................................................................................................................................................................
......
С П Р И Н И М А Е М Ы Е « Е Р Ы
ПрН
В Ы В О Д Е
3* НИЖНЮЮ
Г Р д Н И ц у
ДИАПАЗОН#
В Ы С О Т М О д Е Л и
•
F U N C T I O N В Л 5 < 2 )
P
r
i
n t
.
1 F O R M A T
(
1 O X , * В Ы С О Г д М Е Н Ь Ш Е1 2 0 * м . ’ >
r f
T
u r n
e nd
С * В A S К О Н Е Ц ..............................................................................................................................................................................................................................................................................
С П Р И Н И М А Е М Ы Е М Е Р Ы П Р И В Ы Х О Д ЕJ A в Е ^ Р Х н * * г Р А и И Ц У Д И д П д З О Н АВ Ы С О Т М С А Б Я И ;
F U N C T I O N H A U T , 2 >
P R I N T1
1 F O R M A T < 1 O X , * 6 ы С О Т А Б О Л Ь Ш Е1 5 0 0 К М . * }
return
E N D
С
•
Н
AU
Т К О Н Е Ц..................................................................................................................................................................................................................................... .
.
.
•