ГОСТ 25645.101— 83
Стр. 165
С. FH KOHgU..................................... .............................................................................................................. * . • . -
с VKH ВЫЧИСЛЕНИЕ *Ун<ЧИМ ДЛЯ ВРЕМЕНИ ’СУУ.ИСЗ СКН ц Ер Е3 Н. ГН.Р О !<»!>•■
ГиНСТ1ON VKH <х . r I R >
COMMONRMU.ROO.QgM
vKH = 3 . * f
* R * S 0 R T
{
«MUHVHR
( X) >
VKH=VKH/ 1 . 137<.07 * Е - 03
RETURN
END
c • VКH К О Н Е Ц ...........................................................................................................................................................• • • ’ •
C VHP ВЫЧИСЛЕНИЕ рАДИ^Сл ЧЕрЕЗ ВЫСОТУ Г|ОПЕТА ИСЗН(Км):<10 > *
» » •* i i• •* »•
FI ЧЕРЕЗ M,R0;(12) ••
FUNCTION VH«|X>
COMMONRMU,R00*«EM
VHRsREM*X
RETURN
END
✓
C«VHR КОНЕЦ, ,
,
.• ) ■ *• ■• i »• i» •
C FIH ВЫЧИСЛЕНИЕ »УН<иИИ ДЛЯ вАрИдЧиИ ДТСуи.Зд ДНО
FUNCTION FIH<X»R>
COMMONRMU«R00t*EM
FIHoO*
3
/(R«SeRTIRMu»VHR(X>) ) # 1 , 1 9 7 *07*8»0в
- RETURN
C . F t H
С ГОС
eno
КОНЕЦ ,,
ВЫЧИСЛЕНИЕ
, «« » .» •
♦
♦ИКСИРОВАННОГО
•
t
•• • • »
r
ЗНАЧЕНИЯМ 4EPg3
• •» •
*
I l ’ - i i !**
пЕРЕвЫчИСЛсННОЕ F P i l ; *
с
*
lf вычисл
ее
в
е
ичин
M
l
ч
е
М
ДУЛ*
ч св
ль
а
*
.*
*
* *
4
FUNCTION ГОС <XI
Гос•IЯТ<О.Э**/23.
1.4
(X-
7
0)*С2«0.-X)0.3*
♦63«#<3!6N(l. »
7
0*»X)»1,)«0.3*275.«CSIGN< 1(#Х.2А0)М,)»0,Э
RETURN
ENO’
С ГОС KOHEU.,
ни
. ,•
л
» »•
ы
. . ••
е
р
♦
з
«•
О
• »■»*
и
•
ла
.•
о
•
*
• • • •*
*
’
FUNCTION W i r i x )
WLF
eo
.895000♦ 61*1700
• RETURN
ENO
C*WLF
КОНЕЦ . . . . . . . . .. t..............................
1