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

UptoLike

ВУЗ: 

ТГТУ | Тамбов

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

Рубрика: 

S1=
∅
.
∅
S2=
∅
.
∅
S3=
∅
.
∅
S4=
∅
.
∅
DO 6 I=1,N
S1=S1+Y(I)
S2=S2+PY(I)
S3=S3+Y(I)*Y(I)
6 S4=S4+PY(I)*Y(I)
A
∅
=(S2*S3-S1*S4)/(N*S3-S1**2)
A1=(N*S4-S1*S2)/(N*S3-S1**2)
PRINT 8, A Ø , A1
8 FORMAT (‘A Ø = ‘, E12.5, ‘A1= ‘, E12.5)
DO 1Ø I=1,N
1Ø PYS(I)=AØ +A1*Y(I)
G(K)=1.Ø /A1
PRINT 11, G(K)
PRINT 12, (PYS(I), I=1,N)
11 FORMAT (‘G= ‘, E12.5)
12 FORMAT (‘PYS= ‘,8 E12.5)
2Ø CONTINUE
WSUP=G(1)
WPB=G(2)
WZB=G(3)
H=L/1E1
I=Ø
DO 24 I=1,11
X=H*(I-1)
WC(I)=WSUP+WPB*((L-X/L)**2+WZB*(X/L)**2+
+(1E8*(L-X)**2*X**2)/(1.5*E*DØ**H*L)
24 CONTINUE
DO 26 I=1,11
26 Y(I)=1E1*LSH*CP*T*S**Ø.75*WC(I)
READ 772, D
27 FORMAT (11F4.1)
DO 28 I=1,11
28 YSH(I)=(D(I)-DØ)/2.Ø
PRINT 3Ø, WC
30 FORMAT (‘WC= ‘, 11E10.3)
PRINT 32, (Y(I), I=1,11)
32 FORMAT('X=',11E1Ø.3)
PRINT 32, YSH
34 FORMAT (‘YSH= ‘, 1E1Ø.3)
STOP
END
П8.12 Значения коэффициентов в уравнении податливости
Расстояние Х от торца детали у
передней бабки до рассматри-
ваемого сечения
2
−
l
xl
2
x
l
()
l
xxl
2
2
−
0
0,1
0,2
0,3
1,00
0,81
0,64
0,49
0,00
0,01
0,04
0,09
0,00
0,0081
3
0,025
3
0,0441
3

Страницы