Технология машиностроения. Муратов В.И - 46 стр.

UptoLike

ВУЗ: 

ТГТУ | Тамбов

Составители: 

Рубрика: 

S1 = S1 + Y
i
, S3 = S3 + Y
i
2
; S
2
= S1 + Py
i
, S
4
= S
4
+ Py
i
Y
i
.
7 Конец цикла по i.
8 Вычислить A
∅
, A
1
: A
∅
2
13
4132
SSN
SSSS
−⋅
⋅−⋅
=
;
2
13
124
1
SNS
SSNS
A
−
⋅−
=
,
где
;1
1
∑
=
=
N
i
i
YS
;2
1
∑
=
=
N
i
i
PyS
;3
1
2
∑
=
=
N
i
i
YS
∑
=
=
N
i
ii
yPyS
1
.4
9 Вывести на печать А
∅
, А1.
10 Открыть цикл по i = 1, N.
11 Определить i-й элемент массива PYS: PYS=A
∅
+ A1Yi.
12 Конец цикла по i.
13 Определить K-й элемент массива G:
1
1
A
G
K
=
.
14 Напечатать G
K
.
15 Конец цикла по K.
16 Выполнить присвоения вида:
WSUP = G
1
; WPB = G
2
; WZB = G
3
.
17 Положить
;10LH =
i = 0, x = 0.
18 Открыть цикл по
.11,1=i
19 Определить текущее значение X = H(i –1)
20 Определить i-й элемент массива WC для сечения вала:
()
[
]
LED
XXL
L
X
WZB
L
XL
WPBWSUPWC
i
4
2
2
8
22
5,1
10
∅
−
+
+
−
+=
.
21 Конец цикла по i.
22 Открыть цикл по .11,1=i
23 Определить i-й элемент массива y:
ii
WCLSHCPTSy
75,0
10= .
24 Конец цикла по i.
25 Ввести массив D
i
, .11,1=i
26 Открыть цикл по .11,1=i
27 Вычислить
.
2
∅
−
=
DD
YSH
i
i
28 Конец цикла по i.
29 Вывести на печать массивы
WC; Y; YSH; WS
i
; Y
i
; YSH
i
;
.11,1=i
30 Конец программы.
Алгоритм расчета зависимостей
Программа расчета y = f (P
y
) и y = f (x
i
) на ЕС ЭВМ РL
// u номер JOB (номер, ‘ТИХМ’, ‘С-42’, ‘студент’, ‘ТММСИИ’, ‘уч’)
// ‘фамилия И.О.’, CLASS=B, PRTY=4
// EXEC PL1LFCLG, PARM.PL1L=SOURCE
// PL1L. SYSIN DO
IVUD : PROC OPTIONS(MAIN);
DCL N BIN FIXED, (A
∅
, A1, G(3)) FLОAT;
DCL(WC(11),Y(11),YSH(11),D(11),LSH,CP,T,S,WSUP,WPB,L,X,WZB,E,D
∅
)
FLOAT;
DO K=1 TO 3;
GET LIST(N) COPY;

Страницы