9
490 REM
500 REM | Расчет теплопроводности по формулам (3) - (5) |
510 REM
520 FOR К=1 ТО 20
530 B [1,К]=D [К,1 ] + D [К.2 ]*Т + D[К,3] *Т^2 + D[К,4 ]*Т^3
540 NEXT К
550 N=0
560 FOR М=1 ТО 4
570 A[М ]=В1 [М + N]/СО^2 + В1[М+N+1]/СО+B1[М+N+2]
580 A[М]=A[М]+ВI [М+N+3]*CO+В1[М+N+4]*CO^2
590 N=N+4
600 NEXT М: GOTO 750
610 REM
620 REM | Расчет теплопроводности по формулам (3), (4) для зонда диаметром 3 мм |
630 REM
640 СО=СО/100
650 FOR К=1 TO 4
660 A[К] = B3 [К,1]/СO^ 2 + В3[К,2]/СО + В3[К,3] + B3 [К, 4]*СО + В3[К, 5]*С O^2
670 NEXT К: GОТО 750
680 REM
690 REM | Расчет теплопроводности по формулам (3), (4) для зонда диаметром 5 мм |
700 REM
710 СО=СО/100
720 FOR К=1 ТО4
730 A[К ] = B5 [К,1]/ СО ^2 + B5 [К,2]/СО + В5 [К.3] + В5 [К,4 ]*СО + В5 [К,5] * СO^2
740 NEXT К
750 L=A[1]/LL + A[2 ] + A[3] *LL + A[4] + LL^2
760 PRINT
770 LPRINT
780 LPRINT "РЕ ЗУЛ ЬТ АТ Р АСЧЕТ А:"
790 LPRINT "РЕЗУЛЬТ АТ РАСЧЕТА:"
800 PRINT "ТЕПЛОПРОВОД НО СТЬ ="
810 LPRINT "ТЕПЛОПРОВОДНОСТЬ ="
820 PRINT USING "#.# # #"; L;
830 LPRINT USING "#.# # #";L;
840 PRINT "Вт/(м·К)"
850 LPRINT " Вт/(м·К)"
860 GOTO 270
870 REM Знач ения коэфф ициенто в а и b:
880 DATA -5,2 64912Е-04 ; 9,29 895Е-08; 7,460507Е-09; -1,258118Е-11
890 data 8.192 884Е—05 ' и т.д. в соот ветствии с дан ными прилож ения Г
1150 END
ДАН НЫ Е ДЛЯ ТЕСТ ИРОВАНИЯ ПРОГРАММЫ
Пр им ер 1
И СХОДНЫЕ Д АННЫЕ
Д ИАМ ЕТР ЗОНДА 1 мм