ГОСТ 2 Ш Ш * ^ Стр. 85
6
?
в
10 •
U
12
13
U
13
I. ПРОГРАММА РАСИСТА АЭРОДИНАМИЧЕСКИХ КОЭФФИЦИЕНТОВ ИСЗ
НА АЛГОРИТМИЧЕСКОМ ЯЗЫКЕ ФОРТРАН
1
PROGRAM МАЗ
2
O l M f f c S l O N
. О N < 9 ’ , А 1 | 9 * , Q f | 9 t . О Р к I (> ’ ,
Ср С6 ) , V B 0 ‘ 6 >■»S » 3 » , v o * I з
3
• i . OS * 3) . O’ 3 » . S G 1 6 ’ IVB6< 6 )
4
C0M
m
0
n
/ 6
l
’ ’
m
W.M’ ’ , »
м
1 2 - 5 В #
и
6 , О
р
т ч
С
j
» ,
r
C . 4 * /
R £ S 2 7
k
P T ( 5ft• , N l . B . A i ■N
2
.
5
• P 1 P 2 l 2 » ♦т Г L \ : 0 6 ’ ’ m . 2 / A i 5 , 3 - 5 Q * • A* • 3 ,0 » : A«*
- • 30 i
• / B L T/ r i ( j » f T 2 ’ 3 , * T 3 ’ 3 - ’ - T 4 i 3 ‘ . T3 ’ 3 > t T 6 13>-
1
9• ’
3
, 3
• . ’ 8 < 3 t , * 9 ’ J > ’ 6 L C / r . 0 < 3 i . ’ l i 3 ’ * C 2 ’ J ’ , C 3 ‘ 3 » . C
*1 J 1
* ’ / « £ 5 ! / A
v
< ift * »HE* i ft’ i M<9) # t ® T # . 0 0 , v в , T6 , 5 w .
T « , N A T , N R , N 5 . « S S - A O ,
• O M , N C T , - l A * l 6 . 1 H . E l « 5 e > . t 2 i 3 0 ) > 6 3 | 3 0 ) . S l C 3 .
30 » . $ ? I 3 ,
3 0 1
. S 3 • 3 . 3 0 > *
* C M l f 3 . 5 0 > ’ C * ? < 3 * 5 0 i . C M 3 < 3 ’ ‘, 0 > - S 3 ’ 3 > , C * 6 i 5 >
t € . CT( 5> , AMt г * >,
• MUH t 9 t , м»
1
?ii
, 9 )
1
Твмг ?i.) . VBMГ2*. ) . * " «NВ *NA »*
0
’ U P o . N R i . N R
2
. S v . C P
* / 8
L
6
/ C°P < 5
q
’ • ,,П* 50
\
1
MD
1
•
50
> , M02< 30 >, к PR • КP
П. K<G
• / R L
p
1
/ L
p
0
*
l
6
R .
0
v <3)
1
Xfll З
5
• / B
l
P 2 / S 1 M ‘ 3 ) , S 1
t
< 3 > .
c
m
J N < 3 > . C
m
1 T ( 3 ) #
s
2
n
<31
, C * 2
n
<3) #S 1мВ
1
3* • ?? XTв <3>
• »См l 4p
1
3 ) . C * * l Tn< 3 ’ * $ 2 4 6 ( 3 * • $ 2 т (H 3) , C
m
2
n
6 ( 3
>•СМ2 r 6 « 3 ) ♦ S 2 T
1
i
1
, C « 2 1 ( 3
16
•
1
1>
F x T F RUAtr 2~ ’ •,
16
RATA of / 3 . 1 • i 3 9 ? o 3 / . G R / . 01 7 4 5 3 2 9 2 / ’•
19
РРД1м и н , м и
20
J NTE6FR * 1
p
?,
211 OftO CALII N PUT , •
22
8 ОП 9 t i l , )
239 C0< I 1 =0’’” **•*
24
F M 1 2 = 1 / S Q « T ( P I )
23
OOICO I
h i
I .
nh
26
TB =A I
n
™ <
h
< I н I » А Н * т в Н . 9 . FALSE 1
2
?
VBsA I
4
TR ( м( Г м
) ,
А н
»
\
Г
б
н
»
9
.
Р Д 1
.
8
Е
1
26
! г f 1 A(jS f LOT l,
4
) 00 TO 7
29Кк QSl
30
TВ к 1•
31
[ Г ( I 0 T , 4 F . - • » GO T
0
7
32
S
m
s
S
m
«4 / 1 . O 4»
33
L O T s - !
34
KD =
1
357 0П 100I 6 5 1 »N6
36
OOICO U s l . N A
37
PRI NT 1 0 i , , i l H) »A
l
< I A> «в F < I 6 J
36
10 FORMA* «
✓
/ / » 6
n
C0T A ’ , Е Ю . ‘•i 3 х . *чГ t>n АТ
а
* И ’ .
Е
1 0 , 4 , 8 Х * ’ У Г ОЛ СкОЛъЖЕИИЯ
39•...t(Ц--,4 >
*0
NS s 0