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

для решения задач практического занятия 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