Основы автоматизированного проектирования химических производств. Миронов В.М - 65 стр.

UptoLike

ВУЗ: 

ТПУ | Томск

Составители: 

Рубрика: 

65
'Вывод результатов в виде графика (эпюры)
graph:
CLS 0
SCREEN 9
PALETTE
VIEW (1, 1)-(600, 275), , 3
ga1 = ABS(G1 / 1000000!):Rmax = xn * 1000
WINDOW (-ga1 - ga1 / 10, 1.1 * Rmax + 5)-(1.1 * Simax + 5, -35)
LINE (0, 0)-(0, Rmax + 5)
LINE (0, 0)-(5 + Simax, 0)
LOCATE 2, 3: PRINT "R"
COLOR 12: LOCATE 17, 71: PRINT "Gt"
COLOR 14: LOCATE 17, 74: PRINT "Gr"
FOR i = 0 TO n
PSET (gr(i) / 1000000!, x(i, j) * 1000!), 14
PSET (gt(i) / 1000000!, x(i, j) * 1000), 12
NEXT
'Меню перехода от графика к таблице, окончанию расчета
'или к расчету другого диска
a:
COLOR 7
LOCATE 22, 12
PRINT "Рассчитать другой диск.......... <Enter>"
LOCATE 23, 12
PRINT "Закончить расчет................ <Esc>"
LOCATE 21, 12
PRINT "Возврат к таблице............... <Tab>"
'Определение кода нажимаемой клавиши
ss1:
k$ = "": WHILE k$ = "": k$ = INKEY$: WEND
cod = ASC(RIGHT$(k$, 1))
'Переход на метку по коду клавиши
SELECT CASE cod
CASE 13:
GOTO op
CASE 27
CLS 0: STOP
CASE 9
SCREEN 0
GOTO tabl
CASE ELSE: GOTO ss1

Страницы