Добавил:

ivanov666 Опубликованный материал нарушает ваши авторские права? Сообщите нам.

Вуз:

Пермский национальный исследовательский политехнический университет

Предмет:

[НЕСОРТИРОВАННОЕ]

Файл:

книги / Сборник задач и примеров по резанию металлов и режущему инструменту

..pdf

Скачиваний:

Добавлен:

12.11.2023

Размер:

18.91 Mб

Скачать

☆

<<< < Предыдущая 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 4344 / 4544 45 > Следующая >>>

17 FORMAT( ' СТАЛЬ - O ' )

18 FORMAT( ' ЧУГУН - 1 ')

19FORMAT('ВВЕДИТЕ ПРИЗНАК ОБРАБАТЫВАЕМОГО',

*' МАТЕРИАЛА:')

20	READ (5 .2 0 )		ML
20	FORMAT	( И )	1) GO TO	100
	IF (ML	.EQ.	1) GO TO	100
	WRITE	(5 .2 1 )
21	FORMAT('ВВЕДИТЕ ВЕЛИЧИНУ ВРЕМЕННОГО'.
	*	' СОПРОТИВЛЕНИЯ SIGM A:')
22	READ (5 .2 2 )		SIGMA
22	FORMAT(F6.1)
	WRITE	(5 ,2 5 )
	WRITE	(5 ,2 6 )
	WRITE	(5 ,2 7 )
	WRITE	(5 .2 8 )
	WRITE	(5 ,2 9 )
25	WRITE	(5 .3 0 )
25	FORMAT('ВВОД ПРИЗНАКА ТИПА ЗАГОТОВКИ ')
26	FORMAT('Б Е З		КОРКИ -	1 ')

27FORMAT('ПРОКАТ - 2 ')

28FORMAT('ПОКОВКА - 3 ')

29FORMAT('ОБЫЧНОЕ ЛИТЬЕ - 4 ')

30FORMAT('ЛИТЬЕ С ЗАГРЯЗНЕННОЙ КОРКОЙ - 5 ')

100	GO ТО	101
100	WRITE	(5 ,2 3 )
23	FORMAT('ВВЕДИТЕ ВЕЛИЧИНУ ТВЕРДОСТИ Н В :')
	READ	(5 ,2 4 )	НВ
24	FORMAT (F6 Л )
	WRITE	(5 ,3 3 )
	WRITE	(5 ,3 4 )
	WRITE	(5 ,3 5 )
33	WRITE	(5 ,3 6 )
33	FORMAT ('ВВОД ПРИЗНАКА ТИПА ЗАГОТОВКИ ')
34	FORMAT('Б Е З		КОРКИ - 1 ')

35FORMAT('ОБЫЧНОЕ ЛИТЬЕ - 4 ')

36FORMAT('ЛИТЬЕ С ЗАГРЯЗНЕННОЙ КОРКОЙ - 5 ')

101	WRITE	(5 ,3 1 )
31	FORMAT('ВВЕДИТЕ ПРИЗНАК ЗАГОТОВКИ:')
	READ	(5 .3 2 ) KZAG
32	FORMAT( I I )
	WRITE	(5 ,3 7 )

37FORMAT('ВВЕДИТЕ ВЕЛИЧИНУ ДИАМЕТРА

*'ОБРАБАТЫВАЕМОЙ ПОВЕРХНОСТИ DMAX:')

READ (5 ,3 8 ) DMAX

38FORMAT(F7.3) WRITE (5 .3 9 )

39FORMAT('ВВЕДИТЕ ВЕЛИЧИНУ ДИАМЕТРА

*	'ОБРАБОТАННОЙ ПОВЕРХНОСТИ DMIN• ')
	READ	(5 ,3 8 ) DMIN
	WRITE	(5 ,4 0 )
40	FORMAT( ' ВВЕДИТЕ ДЛИНУ \

'ОБРАБАТЫВАЕМОЙ ПОВЕРХНОСТИ L : ч)


	READ	(5 .4 1 )		L
41	FORMAT(F8.3)
	WRITE	(5 .4 2 )
4t	FORMAT( '		ВВЕДИТЕ ШЕРОХОВАТОСТЬ'.
*		'	ПОВЕРХНОСТИ R A :')
	READ	(5 .4 3 )		RA
43	FORMAT(F3.1)

СОПРЕДЕЛЕНИЕ ГЛУБИНЫ РЕЗАНИЯ TR

TR - ( DMAX - DMIN ) / 2 .

СВЫБОР ПОДАЧИ В ЗАВИСИМОСТИ ОТ RA, R

СИ ОБРАБАТЫВАЕМОГО МАТЕРИАЛА

IF (R . EQ. 2		. ) GO ТО 102
IF(R A . EQ. 6 . 3		. AND. ML. EQ. 0 ) S“ 0	.6
IF(R A .E Q .1 .6 .A N D .M L .E Q .0)S«0 .2
IF (R A .E Q .6 . 3		. AND .M L.EQ .1)S*0.45
IF (R A ,E Q .1 . 6 . AND.ML.EQ.1)S“ 0			.2
IF(RA	.EQ» 3 . 2 . ) S * 0 .3 5
GO TO	103

102IF (R A . EQ. 6 . 3 . AND. ML. EQ. 0 ) S « 0 .7 IF(R A . EQ. 6 . 3 . AND. ML. EQ. 1 ) S * 0 .55

IF(RA	.EQ.	3 . 2 . )	S -0 .4	5
IF(RA	.EQ.	1 . 6 . )	S - 0 .3

СКОРРЕКТИРОВКА ПО СТАНКУ

103	DO	104	I -	1,	10
	IF	(S	.GE.	SP	( I )) GO TO 104
	S - SP (1 -1 )
	GO TO		105

104CONTINUE

СОПРЕДЕЛЕНИЕ СКОРОСТИ ГЛАВНОГО

СДВИЖЕНИЯ РЕЗАНИЯ

105	IF(K R .G E .5.A N D .K R .LE .8) GO ТО 106

СРЕЗЦЫ ГРУППЫ ТК

	IF	(S .LE . 0 .3 ) GO ТО 107
	IF ((S .G T .0 .3 ).A N D .(S .L E .O « 7 ))G O TO 108
	CV	«	3 4 0 .
	YV	-	0 .4 5
	GO TO 109
107	CV	«	4 2 0 .
	YV	«	0 . 2
108	GO TO 109
108	CV	-	3 5 0 .
	YV	-	0 .3 5

GO TO 109

СРЕЗЦЫ ГРУППЫ BK

106	IF	(S	.LE . 0 .4 ) GO TO 110
	CV	-	2 4 3 .
	YV = 0 .4
	GO TO 109

110CV » 29 2 . YV - 0 .2

109	IF(M L.EQ .O) KMV-750./SIGMA

	IF (M L .E Q .l)				KMV«( 1 9 0 ./Н В )* * 1 .2 5
	KPV	«	1.	.EQ . 2)			KPV « 0 . 9
	IF	(KZAG
	IF	(KZAG		.EQ . 3)			KPV * 0 .8
	IF	(KZAG		.EQ . 4)			KPV = 0 .8 5
	IF	(KZAG		.EQ. 5)			KPV « 0 .5 5
	KIV	*	1.		1)	KIV		«	0 .6 5
	IF	(KR	.EQ.
	IF	(KR .EQ . 2) KIV « 0 .8
	IF	(KR	.EQ .		4)	KIV		-	1 .4
	IF	(KR	.EQ.		5)	KIV		= 1 . 1 5
	IF	(KR	.EQ.		6)	KIV		= 1 . 1
	IF	(KR .EQ.			8)	KIV		=	0 .8 3
	KFV	=	1.
	IF	(F I	.EQ.		3 0 .)		KFV		= 1 . 2
	IF	(F I	.EQ.		6 0 .)		KFV = 0 .9
	IF	(F I	.EQ.		9 0 .)		KFV * 0 .7
	KV » KMV *				KPV * KIV * KFV
C	V =	(CV * KV)/(T*M TR*XV S**W >
	ОПРЕДЕЛЕНИЕ РАСЧЕТНОГО ЗНАЧЕНИЯ
C	ЧАСТОТЫ ВРАЩЕНИЯ						(P I		*	DMAX)
c	N =	1000 .		*	V /
	КОРРЕКТИРОВКА ПО СТАНКУ
120	DO	112 I ■ 1. 22						GO TO 112
	IF	(N	.GE.		NP ( I ) )
	IF	(N /N P (I)			.LT .		0 .9 5 )			GO TO 113
	ND * NP ( I )
113	GO TO		114
	ND	= NP (1 -1 )
	GO TO		114

112CONTINUE

ND « NP ( 22 )

СОПРЕДЕЛЕНИЕ ДЕЙСТВИТЕЛЬНОЙ СКОРОСТИ

СГЛАВНОГО ДВИЖЕНИЯ РЕЗАНИЯ

114 VD ■ (P I * DMAX * ND) / 60000 .

СОПРЕДЕЛЕНИЕ СИЛЫ РЕЗАНИЯ PZ

	IF	(ML .EQ .			1) GO ТО		115
	CP	* 3 0 0 .
	NNP	■	-	0 .1 5
	NN	■	0 .7 5
	KMP		■	(SIGMA/7 5 0 . ) **NN.
115	GO TO 116
115	CP	-		9 2 .
	NNP		«	0 .
	NN * 0 .4				1 9 0 . ) **NN
116	KMP		=	(HB /	1 9 0 . ) **NN
116	KFP		=	1.	3 0 .)	KFP	« 1 .0 8
	IF		(F I .EQ .		3 0 .)	KFP	« 1 .0 8
	IF		(F I .EQ .		6 0 .)	KFP	= 0 .9 4
	IF		(F I .EQ.		9 0 .)	KFP	= 0 .8 9
	KGP		=	1.
	IF	(GAM .EQ .			- 1 5 . ) KGP = 1 . 2 5

IF (GAM .EQ> 0 .1 KGP - 1 .1 KP = KMP * KFP * KGP

PZ= (CP*TR**XP*S**YP*KP*9.8 1 ) / (VD*60.)

**NNP

СОПРЕДЕЛЕНИЙ МОЩНОСТИ РЕЗАНИЯ NREZ ' NREZ = PZ * VD / 1000 .

NSP = NM * ETA

IF	(NREZ	.L E .	NSP) GO TO 117
PEREGR =		NREZ	/ NSP
N	= ND /	PEREGR
GO TO 120

СОПРЕДЕЛЕНИЕ ОСНОВНОГО ВРЕМЕНИ TO

117	FIR =	F I *	P I	/		180 .		SIN (FIR )
	LI = TR * COS			(FIR )			/
	LOB * L + LI			+	L2
	TO =	LOB /	(ND		*	S)
	WRITE	(5 .1 2 1 )		TR
121	FORMAT ('ГЛУБИНА					РЕЗАНИЯ T R » ',F 7 .3 )
	WRITE (5 .1 2 2 )			S
122	FORMAT ('ПОДАЧА				S » '. F 7 . 3 )
123	WRITE	(5 .1 2 3 )		ND		ВРАЩЕНИЯ N D « ',F 8 .I)
	FORMAT ('ЧАСТОТА
124	WRITE* (5 ,1 2 4 )			VD
	FORMAT ('СКОРОСТЬ РЕЗАНИЯ V D » ',F 8 .3 )
125	WRITE (5 .1 2 5 )			PZ				P Z « ',F 9 .3 )
	FORMAT ('СИЛА			РЕЗАНИЯ
126	WRITE (5 ,1 2 6 )			NREZ			ЗАТРАЧИВАЕМАЯ'
	FORMAT ('МОЩНОСТЬ,

*' НА РЕЗАНИЕ N R E Z « ',F 6 .3 )

WRITE	(5 ,1 2 7 ) TO
FORMAT	('ОСНОВНОЕ ВРЕМЯ T O * ',F 6 .3 )
STOP
END

Распечатка результатов расчета к примеру 21

ИСХОДНЫЕ ДАННЫЕ:

ПРИЗНАК МАТЕРИАЛА РАБОЧЕЙ ЧАСТИ		Й1-3
ВЕЛИЧИНА ПЕРЕДНЕГО УГЛА		GAM-15
ВЕЛИЧИНА ГЛАВНОГО УГЛА В	ПЛАНЕ	F I - 6 0 .
ВЕЛИЧИНА РАДИУСА ВЕРШИНЫ	РЕЗЦА	R « i.
ВЕЛИЧИНА СТОЙКОСТИ РЕЗЦА		Т -6 0 .
ПРИЗНАК ОБРАБАТЫВАЕМОГО МАТЕРИАЛА		ML-0
ВЕЛИЧИНА ВРЕМЕННОГО СОПРОТИВЛЕНИЯ
СТАЛИ		SIGMA-720.
ПРИЗНАК ТИПА ЗАГОТОВКИ		KZAG-3
ВЕЛИЧИНА ДИАМЕТРА ОБРАБАТЫВАЕМОЙ
ПОВЕРХНОСТИ		DMAX-66.
ВЕЛИЧИНА ДИАМЕТРА ОБРАБОТАННОЙ
ПОВЕРХНОСТИ		DMIN-60.
ДЛИНА ОБРАБАТЫВАЕМОЙ ПОВЕРХНОСТИ		L -3 0 0 .
ШЕРОХОВАТОСТЬ ПОВЕРХНОСТИ		R A -6.3

РЕЗУЛЬТАТЫ РАСЧЕТА:

ГЛУБИНА РЕЗАНИЯ ПОДАЧА

ДЕЙСТВИТЕЛЬНАЯ ЧАСТОТА ВРАЩЕНИЯ ДЕЙСТВИТЕЛЬНАЯ СКОРОСТЬ ГЛАВНОГО ДВИЖЕНИЯ РЕЗАНИЯ ГЛАВНАЯ СОСТАВЛЯЮЩАЯ СИЛЫ РЕЗАНИЯ

МОЩНОСТЬ. ЗАТРАЧИВАЕМАЯ НА РЕЗАНИЕ ОСНОВНОЕ ВРЕМЯ

T R -3.

S - 0 .6

N 0 -5 0 0 .

V D -1.7278 Р 2 -2 7 8 0 .3 NREZ-4.80 Т О -1.0124

( Н а ч а л а )

Ввод величины диаметра сверла Л

ввод признала обрабатываемого материала ML I

Ввод признака вида чугуна ICH

Г Ввод вепичины твердости чугуна НВ

------------- — -------------

Ввод вепичины временного сопротивления стали SI6MA

Ввод величины глубины сверления L

Ввод признака материала рабочей части сверла HR

Выбор подачи S

в зависимости от величин Л, ML и KR

Вычисление подачи сучетом поправочного ко эффициента на глубину сверления L по форма)

Корректировка подачи S по паспортным данным станка (выбор величины SP

из 9-злементного массива)

Выбор коэффициента СР и показателей сте пеней QP и YP в формуле (2) осевой состав ляющей сипы резания (подпрограмма РМ)

Вычисление поправочного коэффициента КНР по формуле (3) (подпрограмма РМ)

Вычисление осевой составляющей силы резания PQ по формуле (2)

Проверка соответствия	Вычисление
величины осевой состав	Величины
ляющей силы резания Нет	подачи S,
прочности механизма	допускаемой
подачи станка,те. выпо	сипай РМАХ
лнение условия (U)	по формуле (5)

Выбор величины периода стойкости сверла! в зависимости от величин MLt KR и П

выбор величин коэффициента CV и показа телей степеней Я/, YV и М в формуле (б)

допускаемой сверлам скорости главного движения резания

Программа расчета к примеру 34

PROGRAM DRILL

СРАСЧЕТ РЕЖИМА РЕЗАНИЯ ПРИ СВЕРЛЕНИИ

С КОНСТРУКЦИОННОЙ с т а л и					с в е р л а м и и з		б ы с т р о р е ж у щ е й
с с т а л и и с в е р л е н и и с е р о г о ч у г у н а с в е р л а м и с
с п л а с т и н а м и т в е р д о г о с п л а в а .
c	1 И С Х О Д Н Ы Е
c	1 И С Х О Д Н Ы Е				Д А Н Н Ы Е
г
\j	1. ДИАМЕТР СВЕРЛА - D
c	1. ДИАМЕТР СВЕРЛА - D
c	2 .	ПРИЗНАК ОБРАБАТЫВАЕМОГО МАТЕРИАЛА - MLi
c		СТАЛЬ -		ML=0
c		ЧУГУН -		ML=1
c	3 .	ПРИЗНАК ВИДА ЧУГУНА -				ICH:
c		СЕРЫЙ -		1СН=0
c		КОВКИЙ -		1СН=1
c	A. ТВЕРДОСТЬ ЧУГУНА - НВ
c	5 .	ВРЕМЕННОЕ СОПРОТИВЛЕНИЕ СТАЛИ
c	6 .	( В МПА ) -		SIGMA
c	6 .	ГЛУБИНА СВЕРЛЕНИЯ - L
c	7 . ПРИЗНАК МАТЕРИАЛА РАБОЧЕЙ ЧАСТИ СВЕРЛА -KR
c		БЫСТРОРЕЖУЩАЯ СТАЛЬ Р6М5					KR=0
c		ТВЕРДЫЙ СПЛАВ ВК8					KR=1
c		REAL L, LOB,		КР, КМР, М. KV, KMV, KIV,
		REAL L, LOB,		КР, КМР, М. KV, KMV, KIV,
		KLV, ND, NM, МК. NREZ, NSP
		DIMENSION	S P ( 9 ) ,		N P(12)
		DATA РМАХ	/ 1 5 0 0 0 . / P I			/ 3 . 1 4 /	NM / 4 . 5 /

*ETA / 0 . 8 /

DATA SP / 0 . 1 , 0 .1 4 , 0 . 2 , 0 .2 8 , 0 . 4 , 0 .5 6 ,

*0 .8 , 1 .12, 1 .6/

	DATA NP / 3		1 . 5 ,		4 5 . , 6 3	. , 9 0 . , 1 2 5 .,	1 8 0 .,
	*	2 5 0 .,		3 5 5 ., 5 0 0 .,.		7 1 0 ., 1 0 0 0 ,,	1 4 0 0 ./
	WRITE	( 5 ,1 )
1	FORMAT('ВВЕДИТЕ				ДИАМЕТР СВЕРЛА:')
	READ	(5 ,3 0 )		D

30FORMAT(F6.3) WRITE ( 5 ,2 )

2	WRITE	( 5 ,5 )
2	FORMAT( 'ОБРАБАТЫВАЕМЫЙ. МАТЕРИАЛ: ' ,
*		' СТАЛЬ-0, ЧУГУН-1')
5	FORMAT('ВВЕДИТЕ ЧИСЛО:')
	READ	(5 ,3 1 ) ML

31FORMAT(II)

IF (ML .EQ. 0) GO TO 100 WRITE ( 5 ,6 )

WRITE (5 .7 )

6FORMAT('ВИД ЧУГУНА: СЕРЫЙ-0, КОВКИИ-1')

7FORMAT('ВВЕДИТЕ ЧИСЛО:')

READ (5 ,3 2 ) ICH

32FORMAT ( I D WRITE ( 5 ,8 )

8FORMAT('ВВЕДИТЕ ТВЕРДОСТЬ НВ:') READ (5,33) НВ

33FORMAT(F4.О) GO ТО 101

100 WRITE (5,9)

9FORMAT('ВВЕДИТЕ ВРЕМЕННОЕ СОПРОТИВЛЕНИЕ'

*' SIGMA В МПА:')

34	READ (5,34)	SIGMA
34	FORMAT(F6.3)
101	WRITE (5,10)
10	FORMAT('ВВЕДИТЕ ГЛУБИНУ СВЕРЛЕНИЯ L:')
35	READ (5,35)	L
35	FORMAT(F7.3)

102WRITE (5,11) WRITE (5,12) WRITE (5,13)

11FORMAT('МАТЕРИАЛ РАБОЧЕЙ ЧАСТИ СВЕРЛА:')

12FORMAT('БЫСТРОРЕЖУЩАЯ СТАЛЬ - O ',

*' ТВЕРДЫЙ СПЛАВ - 1')

13FORMAT('ВВЕДИТЕ ЧИСЛО:')

READ (5,36) KR 36 FORMAT(II)

СВЫБОР ПОДАЧИ В ЗАВИСИМОСТИ ОТ ДИАМЕТРА

ССВЕРЛА, МАТЕРИАЛА ЕГО РАБОЧЕЙ ЧАСТИ И

СОБРАБАТЫВАЕМОГО МАТЕРИАЛА.

	IF(ML	.EQ.	1)	GO TO 103			105
	IF(SIGMA . GT.			8 0 0 .)	GO TO		105	S - 0 . 13
	IF (D	.GT.	2 .	.AND.	D . LE. 6 . )			S - 0 . 13
	IF (D	.GT.	6.	.AND.	D . LE.		1 0 .)	S - 0 .2 3
	IF(D	,GT.	10.	.AND.	D	.LE .	1 5 .)	S - 0 .3 0
	IFCD	.GT.	15 .	.AND.	D	.L E .	2 0 .)	S - 0 .3 8
	IF (D	.GT.	2 0 .	.AND.	D	.LE .	2 5 .)	S - 0 . 43
	IF(D	.GT..	2 5 .	.AND.	D	.LE .	3 0 .)	S - 0 . 50
	IF (D	.GT.	3 0 .	.AND.	D	.LE .	.40 .)	S - 0 . 57
105	GO TO	104
105	IF (D	.GT.	2 .	.AND.	D . LE. 6 . )			S - 0 . 09
	IF (D	.GT.	6 .	.AND.	D	. LE.	1 0 .)	S - 0 . 17
	IF(D	.GT.	10.	.AND.	D	.LE .	1 5 .)	S - 0 . 22
	IF (D	.GT.	15 .	.AND.	D	.LE .	2 0 .)	S - 0 . 28
	IF(D	.GT.	2 0 .	.AND.	D	.LE .	2 5 .)	S - 0 . 32
	IF (D	.GT.	2 5 .	.AND.	D	.LE .	3 0 .)	S - 0 . 36
	IF(D	.GT.	3 0 .	.AND.	D	.L E .	4 0 .)	S - 0 .3 8
103	GO TO	104
103	IF(HB	.GT,.	2 0 0 .) GO TO 106
	IF (D	.GT.	2 .	.AND.	D . LE. 6 . )			S - 0 .1 5
	IF(D	.G T .'	6.	.AND.	D	. LE.	1 0 .)	S - 0 . 28
	IF (D	.GT.	10.	.AND.	D	.L E .	1 5 .)	S - 0 . 37
	IF(D	.GT.	15.	.AND.	D	•LE*	2 0 .)	S - 0 . 45
	IP (D	.GT.	2 0 .	•AND.	D	.L E .	2 5 .)	S - 0 . 52
	IP(D	.GT.	2 5 .	•AND.	D	.LE .	3 0 . )	S - 0 . 58
	IF (D	.GT.	3 0 .	.AND.	D	.LE.	4<K)	S - 0 . 63

GO TO 104

104

112

113

п о

IF (D	.GT.	2 .	.AND. D .LE .	6 . )	S - 0 .1 0
IF (D	.GT.	6 .	.AND. D .LE .	1 0 .)	S = 0 .17
IF (D	.GT.	10.	.AND.. D .LE .	1 5 .)	S -0 .2 2
IF (D	.GT.	15.	.AND,. D .LE .	2 0 .)	S = 0 .28
IF (D	.GT.	2 0 .	. AND,. D .LE.	2 5 .)	S *0 .31
IF (D	.GT.	25 .	.AND . D .LE.	3 0 .)	S -0 .3 6
IF (D	.GT.	30 .	. AND,. D .LE .	4 0 .)	S =0.41

КОРРЕКТИРОВКА S В ЗАВИСИМОСТИ ОТ
ГЛУБИНЫ СВЕРЛЕНИЯ
IF (L	. GE.	D*5. .AND. L		.LT .	D *7.)	. S =0 . 9*S
IF (L	.GE.	D*7. .AND. L		.LT.	D *10.)	S «0 .8*S
IF (L	.GE.	D *10.)				S = 0 . 75*S
КОРРЕКТИРОВКА S ПО СТАНКУ
DO 112 1 = 1 ,9
IF (S	.GE.	S P ( I ) ) GO TO		112
S = S P (I-1 )
GO TO	113
CONTINUE
ОПРЕДЕЛЕНИЕ ОСЕВОЙ СИЛЫ РЕЗАНИЯ
CALL	РИ (1,	ML. ICH, KR,		SIGMA,
*	HB, CP, QP, YP, KMP)
PO=CPDQPS*YPKMP*9.81
ПРОВЕРКА СООТВЕТСТВИЯ ОСЕВОЙ СИЛЫ РЕЗАНИЯ
	ПАСПОРТНЫМ ДАННЫМ СТАНКА
I F (РО	. LE.	РМАХ). GO ТО		152
PR=PO/PMAX			S, PR
WRITE	(5 ,5 1 )		S, PR
WRITE	(5 ,5 2 )
WRITE	(5 ,5 3 )		ПОДАЧЕ S = ', F 4 . 2 , ' ОСЕВАЯ',
FORMAT('ПРИ			ПОДАЧЕ S = ', F 4 . 2 , ' ОСЕВАЯ',

*' СИЛА РЕЗАНИЯ БОЛЬШЕ ДОПУСТИМОЙ В ',

*F 3 . 1 , ' РАЗА')

52FORMAT('ПОДАЧА БУДЕТ УМЕНЬШЕНА')

53FORMAT( ' ') В=9.81*КМР

A* (LOG10 (РМАХ) -LOGIO (CP) -QP*LOG10 (D)

*-LOGIO(В )) /Y P

S=10.**A

GO ТО 60

С ВЫБОР СТОЙКОСТИ СВЕРЛА Т (МИН.)

152IF(ML .EQ,. 1) GO TO 120 IF(D .LE. 5.) T=15.

IF(D .GT. 5. .AND. D .LE. 10.) IF(D .GT. 10. .AND. D .LE. 20.) IF(D ;G T . 20. .AND. D .LE. 30.)

IF(D .GT. 30. .AND. D .LE. 40.) GO TO 121

120IF(D..LE. 5.) T=20.

IF(D .GT. 5. •AND. D ■.LE. 10.) IF(D .GT. 10. .AND. D .LE. 20.) IF(D .GT. 20. .AND. D .LE. 30.) IF(D .GT. 30, .AND. D •LE. 40.)

T=25. T-45. T»50. T=75.

T=25. T=60. T=75. T » U 0

СВЫБОР КОЭФФИЦИЕНТОВ И ПОКАЗАТЕЛЕЙ

с	с т е п е н е й ф о р м у л
121	IF(HL .EQ. 1) GO ТО 114

ССТАЛЬ

QV-0.4 М-0.2

IF(S .GT. 0.2) GO ТО 115 CV-7.

YV-0.7

GO ТО 116

115CV-9.8 YV-0.5

GO ТО 116

СЧУГУН СЕРЫЙ

114IF(ICH .EQ. 1) GO ТО 117 CV-34.2

QV-0.45 YV-0.3

М-0.2

GO ТО 116

СЧУГУН КОВКИИ

117CV-40.4 QV-0.45

YV-0.3 М-0.2

С ПОПРАВОЧНЫЙ КОЭФФИЦИЕНТ KV

116IF(ML.EQ.О) KMV-(750./SIGMA)**0.9 IF(ML.EQ.1.AND.ICH.EQ.O.AND.KR.EQ.1)

*KMV=(190./HB)**1.25

IF(ML.EQ.l.AND.ICH.EQ.l.AND.KR.EQ.1)

*KMV-(150./НВ)**1.25 KIV-1.

KLV-1.

IF (L .G T .D * 3 .. AND. L . LE. D *4,) IF (L .G T .D * 4 . .A N D .L .LE .D *5.) I F ( L . G T.D *5. . A N D .L .L E .D *6.) IF (L .G T .D * 6 . . AND. L . LE . D *8.) KV-KMV*KIV*KLV

K LV -0.85 K LV -0.75 K LV -0.7 K LV -0.6

СОПРЕДЕЛЕНИЕ ВЕЛИЧИНЫ ДОПУСКАЕМОЙ СВЕРЛОМ

ССКОРОСТИ ГЛАВНОГО ДВИЖЕНИЯ РЕЗАНИЯ V V=CV*D**QV*KV/(T**M*S**YV)

п о

200

202

ОПРЕДЕЛЕНИЕ РАСЧЕТНОГО ЗНАЧЕНИЯ

ЧАСТОТЫ	ВРАЩЕНИЯ
N=1000.V/(PID)
КОРРЕКТИРОВКА N ПО СТАНКУ
DO 201 1-1,12		GO TO	201
IF(N .GE. N P (I))		GO TO	201
IF(N/NP(I)	.LT.	0.95)	GO TO 202
ND-NP(I)
GO TO 203
ND-NP(I-l)

GO TO 203

<<< < Предыдущая 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 4344 / 4544 45 > Следующая >>>

Соседние файлы в папке книги

#
12.11.202318.9 Mб2САПР в строительстве. Архитектура.pdf
#
19.11.202368.45 Mб25САПР изделий из композиционных материалов. Моделирование процессов деформирования и разрушения в среде ANSYS.pdf
#
12.11.202314.89 Mб4Сбор и подготовка нефти, газа и воды к транспорту..pdf
#
12.11.20237.12 Mб0Сбор и промысловая подготовка нефти, газа и воды..pdf
#
12.11.20231.62 Mб8Сбор и промысловая подготовка скважинной продукции..pdf
#
12.11.202318.91 Mб69Сборник задач и примеров по резанию металлов и режущему инструменту..pdf
#
12.11.20232.54 Mб34Сборник задач и примеров по технологии машиностроения..pdf
#
12.11.202313.31 Mб18Сборник задач и упражнений по импульсной технике..pdf
#
20.11.202310.44 Mб3Сборник задач по аналитической геометрии.-1.pdf
#
12.11.20238.94 Mб9Сборник задач по аналитической геометрии..pdf
#
19.11.202327 Mб32Сборник задач по высшей математике с контрольными работами 1 курс..pdf