Реферат: Станы холодной прокатки

'INPUT "Допустимое значение силы прокатки .....(МН) [P]="; Pd: Pd = Pd * 1000000!

'INPUT "Допустимое значение момента прокатки (кНм) [M]="; Md: Md = Md * 1000000!

'INPUT "Допустимое значение мощности прокатки (МВт) [N]="; Nd: Nd = Nd * 1000000!

OPEN "cold.txt" FOR OUTPUT AS 1

a0 = 240: a1 = 1130.6: a2 = -1138.9: a3 = 555.6

N = 5

h0 = 1.8

Hh0 = h0

b = 1400

R = 300

f = .09

S0 = .1: S1 = .1

V = 2

Pd = 2E+07

Md = 400000000

Nd = 3500000

PRINT " РЕЗУЛЬТАТЫ РАСЧЕТА ОБЖАТИЙ НА НЕПРЕРЫВНОМ СТАНЕ Х.ПР."

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

PRINT "│i │ H0 │ h0 │ h1 │ e │K2c │ P │ M │ N │ V │ "

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

PRINT "││ мм │ мм │ мм ││МПа │ МН │ кНм │ МВт │ м/с │ "

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

PRINT #1, " РЕЗУЛЬТАТЫ РАСЧЕТА ОБЖАТИЙ НА НЕПРЕРЫВНОМ СТАНЕ Х.ПР."

PRINT #1, "┌──┬────┬─────┬─────┬─────┬────┬──────┬──────┬──────┬─────┐"

PRINT #1, "│i │ H0 │ h0 │ h1 │ e │K2c │ P │ M │ N │ V │ "

PRINT #1, "├──┼────┼─────┼─────┼─────┼────┼──────┼──────┼──────┼─────┤"

PRINT #1, "││ мм │ мм │ мм ││МПа │ МН │ кНм │ МВт │ м/с │ "

PRINT #1, "├──┼────┼─────┼─────┼─────┼────┼──────┼──────┼──────┼─────┤"

FOR i = 1 TO N