Расчет затвердевания плоской отливки
Категория реферата: Рефераты по металлургии
Теги реферата: банки рефератов, бесплатные банки рефератов
Добавил(а) на сайт: Osipov.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата
Вывод результатов
- [Конец.
Программа
CLEAR , , 2000
DIM T(1000), T1(1000), AP(1000), BP(1000), Vox(1000), N$(50)
2 CLS
N = 100: KV = 50: N9 = 5: L = .015
TM = 293: TI = 1345: TS = 1312.5
BM = 1300: a1 = .000036: a2 = .000021
TA0 = .01: ETA = .01: E = .01 l1 = 195: l2 = 101
R0 = 8600: LS = 221000
AF = 0: Pi = 3.14159265359#
3 PRINT "Число шагов N, штук"; N
PRINT "Длина отливки L, м"; L
PRINT "Температура формы Tf, К"; TM
PRINT "Начальная температура сплава Tн, К"; TI
PRINT "Температура затвердевания Tz, К"; TS
PRINT "Bф "; BM
PRINT "Первый шаг по времени, Tk0 "; TA0
PRINT "Точность по времени, Еt "; ETA
PRINT "Точность по температуре, ЕТ "; E
PRINT "Температуропроводность Ме твердого, а1 "; a1
PRINT "Температуропроводность Ме жидкого, а2 "; a2
PRINT "LS= "; LS
PRINT "Коэф. теплопроводности, l1 "; l1
PRINT "Коэф. теплопроводности, l2"; l2
PRINT "Плотность Ме твердого, р1 "; R0
INPUT "Изменить данные "; QV$
IF QV$ = "Y" THEN GOSUB 222
48 N1 = N - 1
DX = L / (N - 1)
A = a1 / DX ^ 2
B1 = 2 * A
RL = R0 * LS * DX
NF = 1
B2 = l1 / DX
KV1 = 1
AL = a2 / DX ^ 2
BL1 = 2 * AL
BL2 = l2 / DX
T(1) = TS
T1(1) = TS
FOR i = 2 TO N
T(i) = TI
T1(i) = TI
NEXT i
TA = TA0
K = 1 dta = .01
Рекомендуем скачать другие рефераты по теме: доклад образование, бесплатный решебник.
Предыдущая страница реферата | 1 2 3 4 5 6 7 8 9 10 11 | Следующая страница реферата