Стр. 164 ГОСТ 25645.101— 83
OIMENSIC
n
SL IJ)
VAT=(SL(l>*X*( Sl-(2)*X«SL<3)))*rD-f >/F
R E T U R N
ENO
C»VAF
К О Н Е Ц ..........................................................................................................................................................................................................................................................................*.
c
va
m
вычисление от носит ельных отклонений модельной плотности
; <
4
)
1
<
5
> *
f u n c t
i
o n va
m
(
x
*
s
m
,
r o
)
d
i
m
e n s
i
o n
SMU)•’•
V*MsSM( l) * g X P ( SM< 2>^-SM( 3; *SaRT (
4
) ) >/RO-l*
RETURN
л
E N D
C»VAM
К О Н Е Ц ........................................................i.. i ........................................................................................................................... .
C v i В
ычисление от но сит ель ных от клонений за п о г
р
е ш н о с т и
* ■_*,
сПОс Т Р ° Е Н И Я МОДЕЛИ.
FUNCTION VAl(X,3Nj
D I M E N S I O N 5 Н { д )
V
a
I=SN(1>*X*X+SN(2)*X+SN(3)*SN(4J
return
ENO
C*v.\l К
0
H E U .......................................... , , ................................................................................................. ...
C VAH ВЫЧИСЛЕНИЕ ВЫСОТЫ ОДНОРОДНОЙ ДТМОС«»БрыНН ;«б> .
FUNCTION VAH <X»5А>
DIMENSION SА(4 >
V AH =2.*5aRT(X .SA(A ,)/SA(3> .
RETURN
END
C*VAH К ОН Е Ц ...................................................................................................................................................................... *
C VFH ВЫЧИСЛЕНИЕ ■>VНКЧиИ ВЫСОТыРн ЧЕРЕЗ М,Нн’й О . ( б )
‘
<$ > •
F U N C T I O N V F H ( X , v » R , S e )
d
i
m
e n s
i
o n
s e e n
COMMONRMU,ROO,REM
» r H=U*< l . / R - 4 . / R O O ) * 0 . 5 « ( i , * S B C l ) ’ * X r ( S e i г ^ Х 4^ » ’ J.M W
• SQRT ( RMll*VHR ( X) >
VFH=V F H * l , l 5 7 4 0 T * E - 0 6
return
END