ГОСТ 25645.204—83 Стр. 15
0054
0003
0005
0006
0000
0507
0J09
000 7
оо^з
ей05
г у .:*
r.\rtr*
l . x . v . ? . u , v u * r
$»«!!! •<•t*A« <1»M
4 * ( I -
i » s * s -
2
*m » t i * ’ ^ * X ’ ’ M i i M ) * s ] As i » v - 7 » i U ! , 5 i ’ ; s . * s ;
S* S*X*Y»S1* SI* v* v ,
7
!OD=-l
,
VV»-A( M , I >*< S*U-
a
lS*S*.> *»b!*S I*V *Y*S ?*S:> *W *Z
PE7U° N
CnMW<jri/.\0/or,VV,we
T
,А ( 5 0 Л С ) ,*0
,
1 W»
r’r>>
. ...Л ri,41
?
UR*M П .
A
II*» ?“<* c, 1M П ,31 * * ? * $ !* $ I *AC ll.5»**?*S2*<?
’
-A<
» / +
IF(U*<GT . 0 . C I
*
1Г-0-1
! !1 t 3l*«l*Sj*V -A < П f b)*$2*S?*U *
W*«$*S*U*»I*S l*SI*V*V*<?*R?*W *W
END
Stl9ROiri4C T ! Pfr ( 11 ,X ,y .Z ,y ,V ,W ,! n r > )
COHWJN/AG/’JP »VV»W« , Л<51 .Ю 1.PO( 30»
7- A< M . C ) * X ? i l I I , 5 J*X*X*A ( 1 ,6)*Y*Y«-A(I1 ,T J * Z * Z
IDD=-1
1F(UR.f.T.O
100=1
1
Uft«A( M , 11*M
»
I I
v
, ? ) * X H ( i l , 3 l * Y
I
* A f I I , 4 | * Z » A I f 1 » * 1 J X * Y * A II! » 9)*Y*
VV=f..5 ‘ ( M
t
I 1f 2)*U»d П 1 .3>*V*M ll,4> *W ) *A(T 1.5)*U*X+A( I 1 .6>»Y*Y«
U ( J b T } * W * / * 6 . 5 M A < ! l ,8 > M V * X * y * Y > * A U l , 9 > * t H * Y * V * n » M f l * H » *
1♦AСl 1.1
fi!* y « u « -4 C ! ,iin * V » M I l t 7J*H*W *A(ll • 8)»U»V4-A(Ili«>*V*tf
01*V»M
K»‘TUPN
C4U
g
0301
C*2
00 6
007
SUB niTINS e r j j r . . r i
ОЛТА NMB/1/
C»COS(F:>
S = S I N I F I )
C• * *
R
РПЗЫГРЫИ»
s
СЛУЧАЙНЫХ С 05 И ( О M SINE! ($ ! * * *
FI*RA4Nf4NM 8)*6.?63
.. . .
•
RETURN
ЕЯ0
4. Пример расчета
ка Т, асполож на на о:и 7 на высо е (It) 54 с . Геомет ия объекта пр ведена
на
чеРтг 2-
R2ая
Объектом расчета является цилиндрический фантом, задаваемый в соответствии с ГОСТ, экранированный с «ахов ци
линдрическим слоем алюминия высотой {Н) 127 см е внутренне диаметром (D) 100 см и толщиной стевхн ($) 10 см.
Точ
Пакет
р
входных
е
данных для
.
задачи и
т
результаты
м
расчетом
р
по программе
и
OPTIC представлен ниже. Время сыта дая
.
кого примера ~ 2 мин на ЭВМ ЕС-1040.
«