Руслан Измайлович Екутеч , Арамбий Асланович Паранук , Виталий Алексеевич Хрисониди - Общая электротехника и электроника

"I Напряжение,VI Toк,A I витков I провода I"
1010 LPRINT "I-------------I-------------I-------------I---------I"
1020 FOR X = 0 TO N
1030 I(0) = 1000 * I(0): I(0) = INT(I(0)) / 1000

366

1040 A$ = SPACE$(4): C$ = SPACE$(8): U$ = STR$(U(X))
1050 I$ = STR$(I(X)): W$ = STR$(W(X)): D$ = STR$(D(X)): K$ = SPACE$(2)
1060 LPRINT "I"; LEFT$((A$ + U$ + C$), 13); "I"; LEFT$((A$ + I$ + C$), 13);
"I"; LEFT$((A$ + W$ + C$), 13); "I"; LEFT$((K$ + D$ + C$), 9); "I"
1070 NEXT X
1080 LPRINT "I"; STRING$(51, "-"); "I"
1090 LPRINT "I
Сeчeние
I Расчетное IПринятое I"
1100 LPRINT "I сердечника, кв.сm I"; LEFT$((A$ + STR$(SE) + C$), 13);
"I"; LEFT$((K$ + STR$(SM) + C$), 9); "I"
1110 LPRINT "I"; STRING$(51, "-"); "I": M$ = " Wt"
1120 LPRINT "I Moщность трансформатора I"; LEFT$((SPACE$(10) +
STR$(INT(Y)) + M$ + C$), 23); "I"
1130 LPRINT STRING$(53, "=")
1140 GOTO 930
Приложение 3 – Программа расчета плоских теплоотводов
5 CLS
10 REM Программа моделирования теплоотводов
20 REM J.M. HOWELL
30 DEF FN A(X)=INT(X*100)/100
40 NX=3:NY=5:N=NX*NY
50 TAMB=25:KR=5.14E-14:KC=1.98E-06
60 DIM W(N),T(N),A(N,N),E(N),DT(N)
70 RESTORE
80 DATA "Алюминий",0.230,2.7,"Медь",0.377,8.9
90 DATA "Латунь",0.112,8.3,"Нержавеющая сталь",0.052,7.8
100 GOSUB 1490
110 FOR I=1 TO 4
120 READ M$,X,X
130 PRINT I;". ";M$
140 NEXT I
150 PRINT
160 INPUT "Выберите материал (1-4)";M
170 IF M4 THEN GOTO 160
180 INPUT "Коэффициент теплопроводности (0.5-4)";E
190 IF E4 THEN GOTO 180
200 WI=0
210 PRINT :PRINT "Введите 0 для завершения"
220 INPUT "Введите мощность источника тепла (Ватты)";W
230 IF W0 AND X>=Z AND Y>=X THEN GOTO 430
410 PRINT "Введите правильные значения"
420 GOTO 360
430 REM DETERMINE HEAT TRANSFER PROPERTIES
440 RESTORE
450 FOR I=1 TO M
460 READ M$,KM,RHO
470 NEXT I
480 HX=KM*Y*Z/X*NX/NY
490 HY=KM*X*Z/Y*NY/NX
500 REM DEFINE DISSIPATION COEFFICIENT CONSTANTS
510 B4=(273+TAMB)^4
520 S=X/NX*Y/NY*E
530 REM FIND AVERAGE PLATE TEMPERATURE
540 T=5
550 GOSUB 1540
560 IF WI>NX*NY*H THEN T=T+.5:GOTO 550
570 PRINT "Средний перегрев =";T;"Град. C"
580 PRINT
590 REM FIND SLOPE OF HEAT LOSS CURVE
600 GOSUB 1540
610 H0=H
620 T=T+1
630 GOSUB 1540
640 DHDT=H-H0
650 REM SET UP JACOBIAN MATRIX
660 FOR I=1 TO NX
670 FOR J=1 TO NY

368

680 K=I+J*NX-NX
690 A=DHDT
700 IF I>1 THEN A(K-1,K)=HX:A=A+HX
710 IF I1 THEN A(K-NX,K)=HY:A=A+HY
730 IF J1 THEN E=E+HX*(T(K-1)-T)
990 IF I1 THEN E=E+HY*(T(K-NX)-T)
1010 IF J.02 THEN GOTO 900
1290 REM OUTPUT RESULTS
1300 GOSUB 1490
1310 PRINT M$;"Теплоотвод в воздух";TAMB;" Град. C"
1320 PRINT "Размер =";Y;"на";X;"на";Z;"MM"
1330 PRINT "Вес =";X*Y*Z*RHO/1000;"Грамм"
1340 PRINT :PRINT "Источник тепловой мощности (Ватты)"
1350 FOR J=1 TO NY
1360 FOR I=1 TO NX
1370 PRINT TAB(I*12-11);FNA(W(I+J*NX-NX));
1380 NEXT I
1390 PRINT
1400 NEXT J
1410 PRINT :PRINT "TEMREPATURE DISTRIBUTION (DEG C)"
1420 FOR J=1 TO NY
1430 FOR I=1 TO NX
1440 PRINT TAB(I*12-11);FNA(T(I+J*NX-NX)+TAMB);
1450 NEXT I
1460 PRINT
1470 NEXT J
1480 INPUT"REPEAT (Y/N)";A$:IF A$="Y" OR A$="y" THEN RUN ELSE End
1490 REM PRINT TITLE
1500 CLS
1510 PRINT :PRINT "Тепловой расчет радиаторов"
1520 PRINT
1530 RETURN

370

1540 REM FIND HEAT LOSS H FOR TEMP RISE T
1550 A=T+TAMB+273
1560 HR=KR*(A*A*A*A-B4)
1570 HC=KC*SQR(SQR(ABS(T+TAMB)))*T
1580 H=(HR+HC)*S
1590 RETURN

371

Учебное издание

Екутеч Руслан Измайлович, Паранук Арамбий Асланович,
Хрисониди Виталий Алексеевич

ОБЩАЯ ЭЛЕКТРОТЕХНИКА И ЭЛЕКТРОНИКА

Подписано в печать 28.06.2019. Формат 60х90 1/16. Усл.печ.л.- 21,57.
Тираж 500 экз. Заказ

Издательство: Краснодарский ЦНТИ – филиал ФГБУ «РЭА» Минэнерго России
350058, г. Краснодар, ул. Старокубанская, д.116-а

372

--">