Технология машиностроения - часть 11

 

3.6  Нажать клавиши  В/О    С/П   и считать с индикатора значение 

ω

с

2. 

3.7  Пункты 3.5 и 3.6 повторить до получения значения 

ω

с

11. Результаты занести в табл. 8.4.

 

 

 

4    Расчет упругих деформаций (y

i

) в сечениях вала 

4.1  Для ввода программы нажать клавиши  В/О   F   ПРГ  . 
4.2  Набрать программу нажатием клавиши в соответствии с табл. П8.8. 

П8.8   Программа расчета упругих деформаций 

 

Адрес 

Команда 

Код 

Адрес 

Команда 

Код 

00 

П-Х  0 

60 08 

X   

12 

01 

П-Х  1 

61 09 

10   

10 

02 

F  X y   

24 10 

X   

12 

03 

П-Х  2 

62 11  П-Х  5 

65 

04 

X   

12 12 

÷

 

13 

05 

П-Х  3 

63 

13 

С/П   

F   АВТ   

50 

06 

X   

12  

 

 

07 

П-Х  4 

64  

 
 

 

 
4.3  Ввести 

исходные 

данные 

в 

регистр 

памяти 

в 

соответствии 

с  

табл. П8.9. 

 

П8.9   Ввод исходных данных в регистр памяти 

 

Исходные 

данные 

0,75 

S 

t 

C

pХ

 

λ 

ω

сi

 

Регистр  памя-

ти 

0 1 2 3 4 5 

 

Ввод исходных данных производится выполнением команд: 

0,75  Х-П   0;  Х-П   1;  Х-П   2; С

р

  Х-П  3;  Х-П   4; с1  Х-П  5, 

где 

ω

с

1 – податливость технологической системы для первого сечения вала. 

4.4  Нажать клавиши  В/О   С/П  и считать с индикатора значение y

1

. 

4.5  Ввести значение 

ω

с2

 в регистр 5. 

4.6  Нажать клавиши  В/С   С/П  и считать с индикатора значение y

2

. 

4.7  Пункты 4.5, 4.6 повторить до получения y

11

. Результаты расчетов записать в табл. 8.4. 

 

5     Расчет погрешности формы вала (Y

i

) 

5.1  Для ввода программы нажать клавиши  В/О   F   ПРГ  . 
5.2  Набрать программу нажатием клавиш в соответствии с табл. П8.10. 

 

П8.10  Программа расчета погрешности формы вала 

 

Адрес 

Команда 

Код 

Адрес 

Команда 

Код 

00 

П-Х  1 

61 03 

2   

0 

01 

П-Х  0 

60 04 

÷

 

1 

02 

-   

11 05  С/П   

5 

 

 

 

 

F   АВТ   

 

 
5.3  Ввести 

исходные 

данные 

в 

регистр 

памяти 

в 

соответствии 

с  

табл. П8.11. 

 

П8.11   Ввод исходных данных в регистр памяти 

 

Исходные данные 

D

0

 

D

1

 

Регистр памяти 0  1 

 
5.4  Нажать клавиши  В/О   С/П   и считать с индикатора значение y

1

. 

5.5  Ввести число D

2

 в регистр 1. 

5.6  Нажать клавиши  В/С   С/П   и считать с индикатора значение y

2

. 

5.7  Пункты 5.5 и 5.6 повторить до получения значения y

11

. Результаты занести в табл. 8.4. 

 

Расчет зависимостей y = f (P

y

) и y = f (x) на ЭВМ группы ЕС.  

Идентификация величин 

 

Условные обо-
значения величин 

A

0

 

A

1

 

Y P

y

 

P

y

 

Идентификатор 

A

∅

 

A

1

 Y 

(I) 

P

y 

(I)  P

y

S(i) 

Условные обо-
значения величин 

ω

сi

 

ω

суп

 

ω

пб

 

ω

зб

 

Х 

Идентификатор 

WC WSUP WPB WZB  X 

Условные обо-
значения величин 

∑

=

n

i

i

y

1

 

∑

=

n

i

yi

P

1

 

∑

=

n

i

i

y

1

2

 

∑

=

n

i

i

yi

y

P

1

n 

Идентификатор 

S(1) 

S(2) 

S(3) 

S(4) 

N 

Условные обо-
значения величин 

l E D

0

  D

i

 

λ′  C

р

t s  y

i

 

Идентификатор 

L E D

0

  D(I)  LSH C

P 

T S YSH(I)

Алгоритм расчета 

 

1 

Ввести переменные L, E, D

∅

, LSH, CP, T, S. 

2 

Открыть цикл по K = 1, 3. 

3 

Ввести N, Y

i

, i = 1, N, Py

i

,  i = 1, N 

4 

Занулить сумматоры S1, S2, S3, S4. 

5 

Открыть

 

цикл по i=1, N для вычисления сумм вида: 

∑

=

N

i 1

...

. 

6 

Выполнить суммирование:  

 

 

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

1

3

4

1

3

2

S

S

N

S

S

S

S

−

⋅

⋅

−

⋅

=

;  

2

1

3

1

2

4

1

S

NS

S

S

NS

A

−

⋅

−

=

, 

 

где 

;

1

1

∑

=

=

N

i

i

Y

S

 

;

2

1

∑

=

=

N

i

i

Py

S

 

;

3

1

2

∑

=

=

N

i

i

Y

S

 

∑

=

=

N

i

i

i

y

Py

S

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 

Положить 

;

10

L

H

=

 i = 0,  x = 0. 

18 

Открыть цикл по 

.

11

,

1

=

i

 

19 

Определить текущее значение X = H(i –1) 

20 

Определить i-й элемент массива WC для сечения вала: 

(

)

[

]

L

ED

X

X

L

L

X

WZB

L

X

L

WPB

WSUP

WC

i

4

2

2

8

2

2

5

,

1

10

∅

−

+













+











 −

+

=

. 

21 

Конец цикла по i. 

22 

Открыть цикл по 

.

11

,

1

=

i

 

23 

Определить i-й элемент массива y:  

i

i

WC

LSHCPTS

y

75

,

0

10

=

.  

24 

Конец цикла по i. 

25 

Ввести массив D

i

, 

.

11

,

1

=

i

 

26 

Открыть цикл по  

.

11

,

1

=

i

 

27 

Вычислить  

.

2

∅

−

=

D

D

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; 

 

BEGIN; 
DCL(PYS(N),Y(N),PY(N),S1,S2,S3,S4) FLOAT; 
 /* ввод массива Y, PY */ 
GET LIST (Y, PY); 
S1, S2, S3, S4 =

∅

.

∅

; 

DO I=1 TO N; 
S1=S1+Y(I); 
S2=S2+PY(I); 
S3=S3+Y(I)*Y(I); 
END; 
A

∅

=(S2*S3-S1*S4)/(N*S3-S1**2); 

A1=(N*S4-S2*S1)/(N*S3-S1**2); 
PUT DATA (A

∅

, A1); 

DO I=1 TO N; 
PYS(I)=A

∅

+A1*Y(I); END; 

G(K)=1/A1; 
PUT DATA(PYS, G(K)); END; 
END; 
GET LIST(L,E,D

∅

) COPY; 

WSUP=G(1); WPB=G(2); WZB=G(3); 
H=L/1E1; I=

∅

 

DO X=

∅

 TO LBYH; 

I=I+1 
WC(I)=WSUP+WPB*(L-X)**2/L+WZB*(X/L)**2+(1E8*(L-X)**2*X**2)/ 
(1.5*E*D

∅

**4*L); END; 

GET LIST(LSH,CP,T,S); 
DO I=1 TO 11; 
Y(I)=1E1*LSH*CP*T*S**

∅

.75/WC(I); END 

/* ввод массива D */ 
GET LIST(D); 
DO I=1 TO 11; 
YSH(I)=(D(I)-D

∅

)/2; END; 

PUT DATA (WC); 
PUT DATA (Y); 
PUT DATA (YSH); 
END IVUD; 
 
Программа расчета y=f(P

y

) и y=f(x

i

) на ЕС ЭВМ, «Фортран» 

 
DIMENSION G(3), WC(11), Y(5

∅

), YSH(11), D(11) 

 REAL LSH, L, PYS(5

∅

), PY(5

∅

) 

 READ 22, L, E, D

∅

, LSH, CP, T, S 

 PRINT 23, L, E, D

∅

, LSH, CP, T, S 

23 FORMAT(‘L= ‘, F 7.2, ‘E= ‘, E 12.5, ‘D

∅

= ‘, F 7.2, 

 * ‘LSH= ‘, F 7.2, ‘CP= ‘, F 7.2, ‘T= ‘, F 7.2, ‘S= ‘, F 7.2) 
22 FORMAT (7E1

∅

.3) 

 DO 2

∅

 K=1.3 

 READ 2,N 
2 FORMAT (12) 
 READL, (Y(I), I=1,N) 
 READ77, (PY(I), I=1,N) 
4 FORMAT (6F5.3) 
77 FORMAT (6F6.1)