Технология производства холоднокатаного проката низкоуглеродистой высокопрочной стали марки HC380LA

NEXT I

LOCATE 3, 2: PRINT CHR$(252); "кл.    H0       H1      Sig 0    Sig 1     Mu"

FOR I = 3 TO n + 4

LOCATE I, 1: PRINT a$: LOCATE I, 6: PRINT a$: LOCATE I, 15: PRINT a$

LOCATE I, 24: PRINT a$: LOCATE I, 33: PRINT a$: LOCATE I, 42: PRINT a$

LOCATE I, 51: PRINT a$

NEXT I

FOR I = 1 TO n

LOCATE I + 4, 2: PRINT I

NEXT I

REM < Ввод  исходных данных >

REM Ввод  толщин

10: LOCATE 13, 1: INPUT "Введите толщину полосы  перед 1-ой клетью, (1.2-6) мм"; h(0)

 IF h (0) < 1.2 OR h (0) > 6 THEN

  CALL h0

   CALL clr

    GOTO 10

    END IF

   LOCATE 13, 1: PRINT "                   "

  COLOR 15: LOCATE 5, 9: PRINT USING "#. ###"; h (0) 

     FOR I = 1 TO n

20   LOCATE 13, 1: PRINT "                                    "

     LOCATE 13, 1: PRINT "Введите толщину за"; I; "-ой клетью "

     LOCATE 13, 33: INPUT h (I)

  IF (h (I - 1) - h (I)) / h (I - 1) * 100 > 50 THEN

    CALL bigobg

     CALL clr

      GOTO 20

       END IF

  IF h(I) >= h(I - 1) THEN

    CALL badtol

     CALL clr

      GOTO 20

      END IF

   LOCATE 4 + I, 18: PRINT USING "#.###"; h(I)

   IF I <> n THEN LOCATE 5 + I, 9: PRINT USING "#.###"; h(I) ELSE 30

30 NEXT I

40 REM Ввод натяжений

    COLOR 15

    LOCATE 13, 1: PRINT "                                                     "

    LOCATE 13, 1: INPUT "Введите натяжение  полосы перед 1-ой клетью (5-50) МПа"; sigma(0)

IF sigma (0) < 5 OR sigma (0) > 50 THEN

  CALL sigma0

   CALL clr

    GOTO 40

    END IF

   LOCATE 13, 1: PRINT "                    "

  COLOR 15: LOCATE 5, 26: PRINT USING "###.#"; sigma (0)

FOR I = 1 TO n

50   LOCATE 13, 1: PRINT "                  "

     LOCATE 13, 1: PRINT "Введите натяжение за"; I; "-ой клетью (10-250) МПа"

     LOCATE 13, 48: INPUT sigma (I)

  IF sigma (I) > 250 OR sigma (I) < 10 THEN

    CALL sigmad

     CALL clr

      GOTO 50

       END IF

   LOCATE 4 + I, 35: PRINT USING "###.#"; sigma (I)

   IF I <> n THEN LOCATE 5 + I, 26: PRINT USING "###.#"; sigma (I) ELSE 60

60 NEXT I

70 REM Ввод  коэффициентов трения

   FOR I = 1 TO n

80 LOCATE 13, 1: PRINT "                  "

   LOCATE 13, 1: PRINT "Введите коэффициент трения в"; I; "-ой клети (0.05-0.1)"

   LOCATE 13, 54: INPUT mu (I)

  IF mu (I) > .1 OR mu (I) < .05 THEN

    CALL mut

     CALL clr

      GOTO 80

       END IF

   LOCATE 4 + I, 44: PRINT USING "#.###"; mu(I)

90 NEXT I

    LOCATE 13, 1: PRINT "                 "

CALL clr

REM < Определение  СРЕДНЕГО ДАВЛЕНИЯ >

CLS

Dop = 1600

Dp = 550

r = Dp / 2

bp = 1420

S02 (0) = 270

FOR I = 1 TO n

dh(I) = h(I - 1) - h(I)

   

REM <ОПРЕДЕЛЕНИЕ ДОПУСТИМЫХ УСИЛИЙ ПРОКАТКИ>

    Pbop = .8 * Dop ^ 3 * 120 / ((2 * .5 * Dop + 2030) - .5 * Dop) * 10 ^ 6

    Pshop = .4 * (.6 * Dop / 1000) ^ 3 * 120 / (.5 * Dop / 1000)

    Psr = (.4 * .6 * Dp / 1000 * .6) / ((r / 1000 * dh (I) / 1000) ^ .5)

e (I) = dh(I) / h(I - 1)

Esum (I) = (h (0) – h (I)) / h(0) * 100

95 sigmacp(I) = (sigma(I - 1) + sigma(I)) / 2

   tau2scp(I) = 1.15 * (s02(I - 1) + s02(I) / 2)

   betta(I) = 2.172 * 10 ^ (-5) * (tau2scp(I) - sigmacp(I)) * (2 - e(I)) / (mu(I) * e(I))

   Lk(I) = SQR(dh(I) * r + X0 ^ 2) + X0

   m(I) = mu(I) * Lk(I) / ((h(I) - h(I - 1)) / 2)

   ma(I) = (2 / (betta(I) * m(I))) * (1 - (1 - betta(I) * m(I) * (1 - betta(I) / 4))) ^ (.5) - 1

   me(I) = m(I) * (1 + betta(I) * (EXP(me1 - 1))) ^ (.5)

   Ld(I) = Lk(I) * (1 + betta(I) * (EXP(me - 1))) ^ (.5) 

fi = .4 

Lk (I) = SQR (dh (I) * r + X0 ^ 2) + X0

s02 (I) = s02 (0) + 34.6 * Esum (I) ^ (.6)

tau2s = 1.15 * s02 (I - 1)

Ksy = s02 (I) / s02 (I - 1)

m0 = 2 * mu (I) * Ld (I) / h(I - 1)

m1 = 2 * mu (I) * Ld (I) / h(I)

f = (1 - e(I)) / 2 * (1 - e(I) / 2)

g = 1 - 1 / m0 / 2.3 * LOG((ksy - sigma(I) / tau2s) / (1 - sigma(I - 1) / tau2s))

fi = f * g

a = ksy - sigma(I) / tau2s

b = (EXP(m1 * fi) - 1) / m1

c = 1 - sigma(I - 1) / tau2s

D = EXP (m0 * (1 - fi)) - 1

Pcp (I) = tau2s * (a * b + c * D)

IF ABS ((Pcp (I) - Pcp1(I)) / Pcp(I)) < .01 THEN GOTO 100

IF Pcp1 (I) < Pcp (I) THEN X0 = X0 - .01 ELSE X0 = X0 + .01'

Pcp1 (I) = Pcp (I)

       Al (I) = SQR(dh(I) / r)

       al (I) = al(I) * 3.14 / 180

       gamma (I) = (al(I) / 2) * (1 - (al(I) / (2 * mu(I))))

       S (I) = r * gamma (I) ^ 2 / h(I)

Iper (1) = 1.5806

Iper (2) = 1.5806

Iper (3) = 1.2222

Iper (4) = 1.0256

Iper (5) = .8182

   nnom (1) = 8200

   nnom (2) = 8200

   nnom (3) = 8200

   nnom (4) = 8200

   nnom (5) = 8200

     vnom(I) = 3.14 * r * .001 * Npr(I)

     v(0) = 5

     v(I) = v(I - 1) * h(I - 1) / h(I)

     vv(I) = v(I) / (1 - S(I))

     mpr(I) = nnom(I) * .85 * r * .001 / v(I)

     Npr(I) = mr(I) * (2 * v(I) / Dp)

GOTO 95

100 P (I) = Pcp (I) * Lk (I) * bp * 10 ^ (-6)

     mtr(I) = .002 * P(I)

     mr(I) = mpr(I) + mtr(I)

     q(I) = mr(I) / (28.08 * 1.42 * (r / 1000) * (h(I) / 1000) * (1 - S(I)))

     mdv(I) = mpr(I) / Iper(I)

  Ndv(I) = mdv(I) * r * .001 / v(I)

  mdop(I) = nnom(I) * r * .001 / vv(I)

  otn(I) = Ndv(I) * 1000 / nnom(I)

       ndop (1) = 8200 * .85

       ndop (2) = 8200 * .85

       ndop (3) = 8200 * .85

       ndop (4) = 8200 * .85

       ndop (5) = 8200 * .85

NEXT I

REM < Вывод  результатов работы программы  >

COLOR 7

a$ = CHR$(4)

FOR I = 1 TO 74

LOCATE 5, I: PRINT a$

LOCATE 7, I: PRINT a$

LOCATE n + 12, I: PRINT a$

NEXT I

COLOR 15

LOCATE 6, 2: PRINT CHR$(252); "кл.   H0,мм    H1,мм    E, %    Есум.,%   Пред.тек.  Рср, МПа    Р, МН"

COLOR 7

FOR I = 8 TO n + 4

LOCATE I, 1: PRINT a$: LOCATE I, 6: PRINT a$: LOCATE I, 15: PRINT a$

LOCATE I, 24: PRINT a$: LOCATE I, 33: PRINT a$: LOCATE I, 43: PRINT a$

LOCATE I, 54: PRINT a$: LOCATE I, 65: PRINT a$: LOCATE I, 74: PRINT a$

NEXT I

FOR I = 1 TO n

LOCATE I + 7, 2: PRINT I

NEXT I

COLOR 15

FOR I = 1 TO n

LOCATE I + 7, 8: PRINT USING "#.###"; h(I - 1)

LOCATE I + 7, 17: PRINT USING "#.###"; h(I)

LOCATE I + 7, 26: PRINT USING "##.##"; e(I) * 100

LOCATE I + 7, 35: PRINT USING "##.##"; Esum(I)

LOCATE I + 7, 46: PRINT USING "###.##"; s02(I - 1)

LOCATE I + 7, 56: PRINT USING "####.##"; Pcp(I)

LOCATE I + 7, 66: PRINT USING "###.##"; P(I)

NEXT I

LOCATE 1, 28: PRINT "Результат вычислений"

COLOR 7

       INPUT j: CLS

LOCATE 1, 2: PRINT "                 Режим  обжатий пpи пpокатке полосы"

LOCATE 2, 1: PRINT   "┌─────┬───────┬──────────┬───────────────┬───────┬─────────┬─────────┐ "

LOCATE 3, 1: PRINT "│Номер│Толщина│Абсолютное│ Относительное │ Коэфф.│Натяжение│ Предел  │"

LOCATE 4, 1: PRINT "│клети│полосы │ обжатие │ обжатие   , % │трения │ полосы │текучести│"

LOCATE 5, 1: PRINT "│     │       │          ├───────┬───────┤       │         │         │"

LOCATE 6, 1: PRINT "│     │  мм   │    мм    │ част. │ сумм. │       │   МПа   │   МПа   │"

LOCATE 7, 1: PRINT "├─────┼───────┼──────────┼───────┼───────┼───────┼─────────┼─────────┤" 

r$ = "│  #  │ #.### │   #.###  │ ##.###│  ##.## │ #.### │  ###.#  │ ####.## │"

fr$ = "│     │ #.### │          │       │       │       │  ###.#  │  ####.## │"

PRINT USING fr$; h (0); sigma (0); s02 (0) 

    FOR I = 1 TO n

     PRINT USING r$; I; h(I); dh(I); e(I); Esum(I); mu(I); sigma(I); s02(I)

NEXT I

PRINT "└─────┴───────┴──────────┴───────┴───────┴───────┴─────────┴─────────┘" 

     INPUT j: CLS

PRINT "                                                             Таблица "

PRINT

PRINT « Энеpгосиловые паpаметpы пpоцесса пpокатки "

PRINT « полосы "

PRINT "┌─────┬───────┬────────┬────────┬────────┬────────┬────────┬──────────┐"

PRINT "│Номер│ Длина │Скорость│Среднее │ Усилие │ Момент │ Момент │ Момент  │"

PRINT "│клети│ дуги  │прокатки│давление│прокатки│прокатки│рабочий │допустимый│"

PRINT "│     │   мм  │ м/с   │   МПа  │    МН  │ kНм   │   кНм  │    кНм   │"

PRINT "├─────┼───────┼────────┼────────┼────────┼────────┼────────┼──────────┤"

t1$ = "│  #  │ ##.###│  ##.#  │####.## │ ##.### │####.## │ ###.## │ ###.### │" 
 

    FOR I = 1 TO n

      PRINT USING t1$; I; Lk(I); v(I); Pcp(I); P(I); mpr(I); mr(I); mdop(I) 

    NEXT I

PRINT "└─────┴───────┴────────┴────────┴────────┴────────┴────────┴──────────┘"