Программа

SCREEN 12

OPEN "C:\RESPB.TXT" FOR OUTPUT AS #1

P1 = 1.08: P2 = 1.13: P3 = 1440: P4 = 526600

1 CLS

PRINT "РАСЧЕТ ПРОИЗВОДИТЕЛЬНОСТИ ПЕЧИ РАБОТАЮЩЕЙ НА МЕТАЛЛИЗОВАНОМ СЫРЬЕ"

PRINT "ВВЕДИТЕ СЛЕДУЮЩИЕ ДАННЫЕ : "

PRINT

PRINT "Вместимость печи (тонн) , M="; : INPUT M

PRINT "Количество печей в цехе (шт.), N="; : INPUT N

PRINT "Норма простоев печи (отн.ед.), Hp="; : INPUT Hp

PRINT "Мощность тепловых потерь печи в энергетический период (кВт), Qt="; : INPUT Qt

PRINT "Мощность тепловых потерь печи в подготовительный период (кВт.ч), Qp="; : INPUT Qp

PRINT

PRINT "Мощность печного трансформатора (МВА), S="; : INPUT S

PRINT "Электрический КПД трансформатора (отн.ед.), КПД="; : INPUT K

PRINT "Коэффициент мощности при работе на скрапе (отн.ед.), CS="; : INPUT CS

PRINT "Коэффициент мощности при работе на мет. окатышах (отн.ед.), CO="; : INPUT CO

PRINT

PRINT "Доля скрапа в шихте (отн.ед.), Xc="; : INPUT Xc

PRINT "Удельный расход эл.энергии на расплавление 1т. скрапа (кВт*ч/т), Wc="; : INPUT Wc

PRINT "Доля окатышей в шихте (отн.ед.), Xo="; : Xo = 1 - Xc: PRINT Xo

PRINT "Скорость плавления окатышей (кг/мин*МВт), Vok="; : INPUT Vok

PRINT

PRINT "Время заправки печи (минут) Tza="; : INPUT Tza

PRINT "Время завалки шихты (минут) Tz="; : INPUT Tz

PRINT "Время перепуска электродов (минут) Tpe="; : INPUT Tpe

PRINT

REM ****** ВЫВОД ДАННЫХ В ФАЙЛ ******

PRINT #1, ; "РАСЧЕТ ПРОИЗВОДИТЕЛЬНОСТИ ПЕЧИ РАБОТАЮЩЕЙ НА МЕТАЛЛИЗОВАНОМ СЫРЬЕ"

PRINT #1, ; "ВВЕДИТЕ СЛЕДУЮЩИЕ ДАННЫЕ : "

PRINT #1,

PRINT #1, ; "Вместимость печи (тонн) , M="; M

PRINT #1, ; "Количество печей в цехе (шт.), N="; N

PRINT #1, ; "Норма простоев печи (отн.ед.), Hp="; Hp

PRINT #1, ; "Мощность тепловых потерь печи в энергетический период (кВт), Qt="; Qt

PRINT #1, ; "Мощность тепловых потерь печи в подготовительный период (кВт.ч), Qp="; Qp

PRINT #1,

PRINT #1, ; "Мощность печного трансформатора (МВА), S="; S

PRINT #1, ; "Электрический КПД трансформатора (отн.ед.), КПД="; K

PRINT #1, ; "Коэффициент мощности при работе на скрапе (отн.ед.), CS="; CS

PRINT #1, ; "Коэффициент мощности при работе на мет. окатышах (отн.ед.), CO="; CO

PRINT #1,

PRINT #1, ; "Доля скрапа в шихте (отн.ед.), Xc="; Xc

PRINT #1, ; "Удельный расход эл.энергии на расплавление 1т. скрапа (кВт*ч/т), Wc="; Wc

PRINT #1, ; "Доля окатышей в шихте (отн.ед.), Xo="; Xo

PRINT #1, ; "Скорость плавления окатышей (кг/мин*МВт), Vok="; Vok

PRINT #1,

PRINT #1, ; "Время заправки печи (минут) Tza="; Tza

PRINT #1, ; "Время завалки шихты (минут) Tz="; Tz

PRINT #1, ; "Время перепуска электродов (минут) Tpe="; Tpe

PRINT #1, ;

PRINT "Показать дополнительные переменые (не обязательные) (D/N)?"

88 a$ = INKEY$

IF a$ = "D" OR a$ = "d" THEN GOTO 100

IF a$ = "" THEN GOTO 88

GOTO 189

100 CLS

PRINT "В расчете используется ряд седующих величин : "

PRINT "Расходный коэффициент при использовании скрапа равный P1=1.08 , зависящий"

PRINT "от угара металла."

PRINT "Расходный коэффициент при использовании мет.окаышей равный P2=1.13"

PRINT "Количество минут в сутках P3=1440"

PRINT "Количество минут в году P4=526600"

PRINT

PRINT "Сохранить старые значения или заменить новыми (D/N)?"

165 d$ = INKEY$

IF d$ = "D" OR d$ = "d" THEN GOTO 189

IF d$ = "N" OR d$ = "n" THEN GOTO 175

IF d$ = "" THEN GOTO 165

GOTO 189

175 INPUT "P1=", P1: INPUT "P2=", P2: INPUT "P3=", P3: INPUT "P4=", P4

189 REM длительность плавления лома

Tl = ((M * Xc * Wc * P1 + Qp) / (S * 1000 * CS * K - Qt)) * 60

REM длительность плавления окатышей

Tok = (M * 1000 * Xo * P2) / (S * CO * Vok * K)

REM время простоев

Tpr = Tza + Tz + Tpe

REM время плавки

Tpl = Tl + Tok + Tpr

REM суточная производительность печи

Pc = M * P3 / Tpl

REM годовая производительность печи

Pg = M * P4 * (1 - Hp) / Tpl

REM годовая производительность цеха

Pz = Pg * N

REM средняя скорость загрузки окатышей

Cz = Vok * S * CO * K

CLS

PRINT #1,

PRINT #1, ; "РЕЗУЛЬТАТЫ РАСЧЕТА ПРОИЗВОДИТЕЛЬНОСТИ ПЕЧИ"

PRINT #1,

PRINT #1, ; "Длительность расплавления лома составляет "; Tl; " минут"

PRINT #1, ; "Длительность плавления окатышей составляет "; Tok; " минут"

PRINT #1, ; "Время простоев "; Tpr; " минут"

PRINT #1, ; "Общее время плавки "; Tpl; " минут"

PRINT #1, ; "Суточная производительность печи "; Pc; " тонн"

PRINT #1, ; "Годовая производительность печи "; Pg; " тонн"

PRINT #1, ; "Годовая производительность цеха "; Pz; " тонн при "; N; " печах"

PRINT #1, ; "Средняя скорость загрузки окатышей составляет "; Cz; " кг/мин. и при"

PRINT #1, ; N; " печах емкостью по "; M; " тонн скорость подачи окатышей в цех "

PRINT #1, ; "должна составлять "; Cz * M / 1000 * Xo; " т/ч"

PRINT #1,

PRINT

CLOSE

REM ВЫВОД ДАННЫХ НА ЭКРАН

PRINT

PRINT "РЕЗУЛЬТАТЫ РАСЧЕТА ПРОИЗВОДИТЕЛЬНОСТИ ПЕЧИ"

PRINT

PRINT "Длительность расплавления лома составляет "; Tl; " минут"

PRINT "Длительность плавления окатышей составляет "; Tok; " минут"

PRINT "Время простоев "; Tpr; " минут"

PRINT "Общее время плавки "; Tpl; " минут"

PRINT "Суточная производительность печи "; Pc; " тонн"

PRINT "Годовая производительность печи "; Pg; " тонн"

PRINT "Годовая производительность цеха "; Pz; " тонн при "; N; " печах"

PRINT "Средняя скорость загрузки окатышей составляет "; Cz; " кг/мин. и при"

PRINT N; " печах емкостью по "; M; " тонн скорость подачи окатышей в цех "

PRINT "должна составлять "; Cz * M / 1000 * Xo; " т/ч"

PRINT

PRINT

PRINT "Повторить расчет с дугими исходными данными (D)?"

400 I$ = INKEY$

IF I$ = "" THEN GOTO 400

IF I$ = "D" OR I$ = "d" THEN GOTO 1 ELSE 77

77 CLS

FOR y = 1 TO 15

PRINT

NEXT y

PRINT "---------------------- Результаты в файле < C:\RESPB.TXT > ------------------"

РАСЧЕТ ПРОИЗВОДИТЕЛЬНОСТИ ПЕЧИ РАБОТАЮЩЕЙ НА МЕТАЛЛИЗОВАНОМ СЫРЬЕ

ВВЕДИТЕ СЛЕДУЮЩИЕ ДАННЫЕ :

Вместимость печи (тонн) , M= 150

Количество печей в цехе (шт.), N= 4

Норма простоев печи (отн.ед.), Hp= .1

Мощность тепловых потерь печи в энергетический период (кВт), Qt= 8000

Мощность тепловых потерь печи в подготовительный период (кВт.ч), Qp= 1000

Мощность печного трансформатора (МВА), S= 90

Электрический КПД трансформатора (отн.ед.), КПД= .95

Коэффициент мощности при работе на скрапе (отн.ед.), CS= .75

Коэффициент мощности при работе на мет. окатышах (отн.ед.), CO= .65

Доля скрапа в шихте (отн.ед.), Xc= .5

Удельный расход эл.энергии на расплавление 1т. скрапа (кВт*ч/т), Wc= 450

Доля окатышей в шихте (отн.ед.), Xo= .5

Скорость плавления окатышей (кг/мин*МВт), Vok= 30

Время заправки печи (минут) Tza= 15

Время завалки шихты (минут) Tz= 6

Время перепуска электродов (минут) Tpe= 5

РЕЗУЛЬТАТЫ РАСЧЕТА ПРОИЗВОДИТЕЛЬНОСТИ ПЕЧИ

Длительность расплавления лома составляет 40.03564 минут

Длительность плавления окатышей составляет 50.83221 минут

Время простоев 26 минут

Общее время плавки 116.8678 минут

Суточная производительность печи 1848.241 тонн

Годовая производительность печи 608302.5 тонн

Годовая производительность цеха 2433210 тонн при 4 печах

Средняя скорость загрузки окатышей составляет 1667.25 кг/мин. и при