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

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

горно-геологические:m, ά, f

горнотехнические:l, b, d_н, P

Определяются и выводятся на печать:l_m., l_o, k_c, k_m, k_г.т., k_u, k_n,, Q,q

Пример 4

CLS

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

PRINT " ИСХОДНЫЕ ДАННЫЕ " pi =3.14: g = 9.81

INPUT "Ввести мощность пласта, в м m=", m

INPUT "Угол залегания пласта, град alfa=", alfa

INPUT "Крепость угля f=", f

INPUT "Длина заходки, м l=", l

INPUT "Ширина заходки,м b=", b

INPUT "Диаметр насадки гидромонитора, м dn=", dn

INPUT "Давление воды на выходе из насадки, в МПа P=", p

PRINT " РЕЗУЛЬТАТЫ РАСЧЕТА "

' Максимальная длина рабочей струи гидромонитора

Lm = SQR(l ^ 2 + b ^ 2 + m ^ 2): PRINT USING "Lm=##.##,м"; Lm

'Относительная длина рабочей струи гидромонитора

Lo = Lm / (500 * dn): PRINT USING "Lo=##.##,м"; Lo

'Коэф-т влияния струи гидромонитора

Kc = 1.2 / (Lo ^ 2 - Lo + 1.2): PRINT USING "Kc=##.##"; Kc

'Расчет влияния мощности пласта

IF m <= 2.5 THEN Km =.66 +.1 * m ELSE Km =.1 + 2.4 * (1 - EXP(-.12 * m ^ 2))

PRINT USING "Km=##.##"; Km

'Расчет коэф-та влияния горнотехнических факторов

IF m <= 1 THEN Kgt = p / (10 * f) + 1.5 ELSE Kgt = 1!

PRINT USING "Kgt=##.##"; Kgt

'Расчет коэф-та использования гидромонитора в забое

Ku =.8 +.48 * f -.042 * m -.024 * p - 0.007 * alfa

PRINT USING "Ku=##.##"; Ku

'Расчет коэфициента, учитывающего теор. знач. консистенции пульпы

Kn =.000356 * (p / (f -.5)) ^ 2

PRINT USING "Kn=##.##"; Kn

PRINT "Коэф-т учитывающий тип насадки. mu=0.97" mu =.97

'Определение расхода воды через насадку гидромонитора

Q = mu * (pi * dn^2 / 4) * SQR(180 * g * p): Q = Q * 3600

PRINT USING "Q=####.##,м^3/ч"; Q

'Определение расчетной производит. гидромонитора по гидроотбойке угля Qr

Qr = Kc * Km * Kgt * Ku * Kn * Q

PRINT USING "Qr=##.##,т^3/ч"; Qr

END

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

Lm = 9.89, м Kgt = 2.41

Lo = 1.32, м Ku = 0.98

Kc = 0.74 Kn = 0.1

Km = 0.75 Q = 81.96, м^3/ч

Qr = 10.63, т^3/ч