Примеры составления программы

для решения задач практического занятия 1.

При составлении программы необходимо ввести следующие исходные данные:

горно-геологические: m; m_пр; γ; γ_пр; А_п.у; А_р.п; k_почв

горнотехнические: Р_уст; q_к ; r; V_п.т ; V_р

V_п.м –интерполяция по условиям.

Определяются и выводятся на печать: V_п,q_т,q_реал, γ _r.M

Пример

CLS

10 INPUT "Ввести мощность пласта M="; M

20 INPUT "Ввести мощность породных прослойков M2="; M2

30 INPUT "Сопротивляемость угля резанию R1="; R1

40 INPUT "Сопротивляемость породы резанию R2="; R2

50 INPUT "Плотность угля G1="; G1

55 INPUT "Производительность конвейера B8="; B8

60 INPUT "Плотность породы G2="; G2

70 INPUT "Коэффициент устойчивости почвы D1="; D1

80 INPUT "Устойчивая мощность двигателя комбайна B6="; B6

90 INPUT "Коэффициент готовности крепи B9="; B9

95 INPUT "Ширина захвата комбайна B4="; B4

100 INPUT "Скорость крепления забоя D2="; D2

'Средневзвешенная сопротивляемость. пласта разрушению

110 AP = (R1 * (M - M2) + R2 * M2) / M: AP = CINT(AP)

'Плотность горной массы

120 G3 = (G1 * (M - M2) + G2 * M2) / M: G3 = CINT(G3 * 10) / 10

'Удельные энергозатраты на разрушение пласта

130 Hw =.01 * AP * ((.125 / M) +.19): Hw = CINT(Hw * 10) / 10

'Скорость подачи по удельным энергозатратам

140 Vp = B6 / (60 * Hw * M * B4 * G3): Vp = CINT(Vp * 10) / 10

'Скорость подачи по скорости крепления

150 Vkp = B9 * D1 * D2: Vkp = CINT(Vkp * 10) / 10

'Скорость подачи по производительности забойного конвейера

160 Vk = B8 / (60 * M * B4 * G3): Vk = CINT(Vk * 10) / 10

'Скорость подачи по скорости передвижения машиниста по лаве

170 IF M > 1.3 THEN Vm = 5

180 IF.8 <= M OR M <= 1.1 THEN Vm = 2

190 IF 1.1 <= M OR M <= 1.3 THEN Vm = 2.5

'Техническая скорость подачи комбайна

200 Vpt = 5

'Скорость подачи комбайна, принятая для дальнейшего расчета

210 IF Vp < Vkp OR Vp < Vk OR Vp < Vm OR Vp < Vpt THEN Vt = Vp

220 IF Vkp < Vp OR Vkp < Vk OR Vkp < Vm OR Vkp < Vpt THEN Vt = Vkp

230 IF Vk < Vp OR Vk < Vkp OR Vk < Vm OR Vkp < Vpt THEN Vt = Vk

240 IF Vm < Vp OR Vm < Vkp OR Vm < Vk OR Vm < Vpt THEN Vt = Vm

250 IF Vpt < Vp OR Vpt < Vkp OR Vpt < Vk OR Vpt < Vm THEN Vt = Vpt

'Техническая производительность комбайна

260 Qt = Vt * M * B4 * G3: Qt = CINT(Qt * 10) / 10

'Реальная производительность комбайна

270 QP = Vt * M * B4 * G3: QP = CINT(QP * 10) / 10

280 PRINT "Vt="; Vt: PRINT "G3="; G3

290 PRINT "Qt="; Qt

300 PRINT "Qp="; QP

Пример

CLS

READ M, M2, R1, R2, G1, G2, K, B6, B9, B8, D2, B4

DATA 1.8,0.3,218,600,1.6,2.6,0.5,500,0.96,700,5.5,0.63

G = (G1 * (M - M2) + G2 * M2) / M

R = (R1 * (M - M2) + R2 * M2) / M

H =.01 * R * (.125 / M +.19)

V3 = B6 / (60 * H * M * G * B4)

V4 = B9 * K * D2

V5 = B8 / (60 * M * G * B4)

V1 = 8

V2 = 1.7

IF M >=.8 AND M <= 1.1 THEN V2 = 2.3 * M / 1.1

IF M >= 1.1 AND M <= 1.3 THEN V2 = 4.5 * M / 1.3

IF M > 1.3 THEN V2 = 5

V = V3

IF V > V4 THEN V = V4

IF V > V5 THEN V = V5

IF V > V1 THEN V = V1

IF V > V2 THEN V = V2

Q1 = V1 * M * B4 * G

Q2 = V * M * B4 * G

PRINT USING "Плотность горной массы G=###.т/м3 "; G

PRINT USING "Скорость подачи V=###.# м/мин "; V

PRINT USING "Производительность техническая т/мин Q1=###.# "; Q1

PRINT USING "Производительность реальная т/мин Q2=###.# "; Q2

END

Результаты выполнения программы

Плотность горной массы G=1.8т/м³.

Скорость подачи V=2.6м/мин.

Производительность техническая, т/мин Q1=16.0.

Производительность реальная, т/мин Q2=5.3

Банк задач практического занятия 1

Вариант	Выним. мощн. пласта, m, м	Мощн. породн. просл., mпр, м	Сопро- тивл. угля, Ару, кН/м	Сопро- тивл. пород, Арп, кН/м	Плот- ность угля, γу, т/м3	Тип ком-байна	Устойч. мощн. двигат., Р, кВт	Тип крепи	Пр- ность конв., qк, т/ч	Расч. скор. крепл Vр, м/мин
	0,8	0,1			1,4	1К103М		1МК103
	1,5	0,2			1,6	2ГШ68		М87		5,1
	4,1	0,3			1,5	К800		М144		4,5
	1,2	0,1			1,5	К85		М137
	1,2	0,2			1,6	К85		1МТ		2,8
	1,0	0,1			1,5	1К103М		1МТ
	1,2	0,1			1,7	К85		1МК103
	1,2	0,2			1,7	К85		1МТ		2,8
	1,5	0,2			1,5	2ГШ68		1МТ		2,8
	1,8	0,3			1,6	К500		М87УМН		2,5
	0,9	0,1			1,4	1К103М		3КД90
	1,0	0,05			1,5	1К103М		1МК103
	2,0	0,2			1,6	К500		М138
	3,6	0,2			1,5	К800		М138
	4,1	0,25			1,5	К800		М144
	2,5	0,3			1,5	К500		М144
	1,8	0,25			1,6	К500		М138
	1,3	0,2			1,5	К85		М138
	1,75	0,3			1,5	К500		М138
	1,9	0,25			1,53	К500		М138
	1,2	0,2			1,7	К85		М138
	1,55	0,2			1,5	2ГШ68		1МТ		2,8
	1,8	0,25			1,51	К500		М87МН
	1,9	0,3			1,49	К500		М138
	1,65	0,25			1,5	2ГШ68		М87МН