8
ПРИЛО ЖЕНИЕ Д
(информационное)
ПРОГРАММА РАСЧЕТА ТЕПЛОПРО ВОДНОСТИ
10 REM
20 REM | Программа расчета теплопроводности по формулам (3) - (5) для зонда диаметром 1 мм и по формулам (3), (4) - для зондов диаметрами 3 и 5 мм |
30 REM |
40 REM |
50 REM
60 OPTION BASE 1
70 REM Ввод в операт ивную память коэффиц иентов d и b
80 DIM A[4], B1[20], B3[4,5], B5[4,5], D[20,4]
90 FOR К=1 ТО 20 Ввод d для зонда д иам етром 1 мм
100 FOR J=1 TO 4
110 READ D[К ,J]
12 0 NЕXT J
130 NEXT К
140 FOR К=1 TO 4
150 FOR J=1 ТО 5 Ввод b для зонда диам етром 3 мм
1 60 READ В3 [К ,J]
170 NEXT J
180 NEXT К
190 FOR К=1 ТО 4 Ввод b для зонда д иаметром 5 мм
200 FOR J=1 ТО 5
210 READ В5[К,J]
220 NEXT J
230 NEXT К
240 REM
250 REM | Ввод исходных данных |
2 60 REM
270 PRINT:PRINT
280 LPRINT:LPRINT
2 90 PRINT "ИСХОД НЫЕ ДА ННЫЕ"
300 LPRINT "ИСХО ДНЫЕ д анные"
3 10 INPUT "Д ИАМЕТР ЗОНД А, мм"; DP
320 LPRINT "ДИАМЕТР ЗОНДА, мм"; DP
330 INPUT "ТЕМ ПЕР АТУР А ИС ПЫТ АНИЙ, К"; Т
340 LPRINT "ТЕМ ПЕР АТУР А ИСПЫТ АНИЙ, К"; Т
350 INPUT "ВЛАЖНОСТЬ М АТЕРИАЛ А, %”; W
360 LPRINT "ВЛАЖНОСТЬ М АТЕРИ АЛ А, %"; W
370 INPUT "ПЛОТНОСТЬ М АТЕРИ АЛ А, кг/м3"; RO
380 LPRINT "ПЛОТНОСТЬ М АТЕРИ АЛ А, кг/м3"; RО
390 INPUT "ТЕ ПЛОЕМКО СТЬ М АТ ЕРИ АЛ А, Дж/( кг·К )"; С
400 LPRINT "ТЕПЛОЕМКОСТЬ М АТЕРИАЛ А. Дж/(кг ·К)"; С
410 INPUT "ТЕПЛОПРОВОДНОСТЬ ПО ФОРМУЛЕ (1), Вт/ (м ·К)"; LL
42 0 LPRINT "ТЕПЛОПРОВОДНОСТЬ ПО ФОРМУЛЕ (1), В т/ (м ·К) " ; LL
430 REM
440 REM | Расчет объемной теплоемкости материала |
450 REM
4 60 СО=RО * (С + 42 *W)/ 1000
470 IF DР=3 THEN 620
480 IF DP=5 ТHЕN 690