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

электротехники. - Л.: Энергоатомиздат, 1982. - 216 с.
Зельдин Е.А. Цифровые интегральные микросхемы в информационноизмерительной аппратуре. –Л.: Энергоатомиздат, 1986. – 280 с.
Касаткин А.С., Немцов М.В. Электротехника. - М.: Высш. шк. 2002. - 542
с.
Мальцева Л.А. и др. Основы цифровой техники/ Л.А. Мальцева, Э.М.
Фромберг, В.С. Ямпольский. – М.: Радио и связь, 1986, - 128 с.
Органик Э. Организация системы Интел – 432/ М.: Мир, 1987. – 446 с.
Основы промышленной электроники /Под ред. В.В. Герасимова. – М.:
Высш. шк., 1986. – 572 с.
Поликарпов А.Г., Сергиенко Е.Ф. Однотактные преобразователи напряжения в устройствах питания РЭА. – М.: Радио и связь, 1989. – 160 с.
Справочник по импульсной технике. / Яковлев В.Н., Воскресенский В.В.,
Генис А.А., Доронкин Е.Ф., Литвиненко О.Н., Мигулин И.Н., Сошников
В.И., Цветков А.В. – Техника, Киев, 1973. – 712 с.
Справочник радиолюбителя / Под ред. А.А. Куликовского. – М.: Госэнергоиздат, 1963. – 500 с.
Токхайм Р.Л. Микропроцессоры: Курс и упражнения/ Пер. с англ., под
ред. В.Н. Грасевича. – М.: Энергоатомиздат, 1988. – 336 с.
Шевкопляс Б.В. Микропроцессорные структуры. Инженерные решения:
Справочник./ 2 изд. перераб. и доп. – М.: Радио и связь, 1990. – 512 с.
Wood A. Microprocessors: Your questions answered Butterworths & Co.
Sevenoaks, 1982. – 184 p.
The Intel Data sheets: Intel Pentium D Processor/ Silicon Valley, 2006. – 26 p.

359

ПРИЛОЖЕНИЯ
Приложение 1 – Программа анализа нелинейных электрических цепей
10 CLS
20 PRINT"***Анализ электрических цепей***"
30 PRINT
40 GOTO 6000
1000 IF ABS(VR)>ABS(VI) GOTO 1050
1010 R=VR/VI:DE=VI+R*VR
1020 WR=(UR*R+UI)/DE
1030 WI=(UI*R-UR)/DE
1040 RETURN
1050 R=VI/VR:DE=VR+R*VI
1060 WR=(UR+UI*R)/DE
1070 WI=(UI-UR*R)/DE
1080 RETURN
1500 IF CS=0 THEN AL=90*SGN(SN):RETURN
1510 AL=180/3.14159*ATN(SN/CS)
1520 IF CS180 THEN AL=AL-360
1540 RETURN
1600 W=F*6.28319
1610 FOR I=1 TO U
1620 YR(I,U+1)=0:YI(I,U+1)=0
1630 IF I=IP THEN YR(I,U+1)=1
1640 IF I=IM THEN YR(I,U+1)=-1
1650 FOR J=1 TO U
1660 YR(I,J)=YY(I,J)+TT(I,J)
1670 YI(I,J)=YC(I,J)*W-YL(I,J)/W
1680 NEXT
1690 NEXT
2000 N=0
2010 N=N+1:K=N
2025 IF YR(K,N)=0 AND YI(K,N)=0 THEN K=K+1:GOTO 2025
2060 IF K=N GOTO 2120
2070 J=U+1
2080 FOR M=N TO J
2090 TR=YR(N,M):YR(N,M)=YR(K,M):YR(K,M)=TR
2100 TI=YI(N,M):YI(N,M)=YI(K,M):YI(K,M)=TI
2110 NEXT M
2120 FOR J=U+1 TO N STEP -1
2140 IF ABS(YR(N,N))>ABS(YI(N,N)) GOTO 2180

360

2150 R=YR(N,N)/YI(N,N):DE=YI(N,N)+R*YR(N,N)
2160 TR=(YR(N,J)*R+YI(N,J))/DE:TI=(YI(N,J)*R-YR(N,J))/DE
2170 GOTO 2200
2180 R=YI(N,N)/YR(N,N):DE=YR(N,N)+R*YI(N,N)
2190 TR=(YR(N,J)+YI(N,J)*R)/DE:TI=(YI(N,J)-YR(N,J)*R)/DE
2200 YR(N,J)=TR:YI(N,J)=TI
2210 NEXT J
2220 M=U+1
2230 FOR I=K+1 TO U
2235 IF N+1=M GOTO 2290
2240 FOR J=N+1 TO M
2250 TR=YR(I,J)-YR(I,N)*YR(N,J)+YI(I,N)*YI(N,J)
2260 YI(I,J)=YI(I,J)-YI(I,N)*YR(N,J)-YR(I,N)*YI(N,J)
2270 YR(I,J)=TR
2280 NEXT J
2290 NEXT I
2300 IF NU GOTO 2010
2310 FOR I=U TO 1 STEP -1
2320 AR(I)=YR(I,M)
2330 AI(I)=YI(I,M)
2340 FOR K=I-1 TO 1 STEP -1
2350 TR=YR(K,M)-YR(K,I)*AR(I)+YI(K,I)*AI(I)
2360 YI(K,M)=YI(K,M)-YR(K,I)*AI(I)-YI(K,I)*AR(I)
2370 YR(K,M)=TR
2380 NEXT K
2390 NEXT I
2400 RETURN
2500
PRINT"aR(IP)=";AR(IP);"AR(IM)=";AR(IM);"AI(IP)=";AI(IP);"ai(im)=";AI(IM)
3000 UR=AR(OP)-AR(OM):UI=AI(OP)-AI(OM)
3010 VR=AR(IP)-AR(IM):VI=AI(IP)-AI(IM)
3020 GOSUB 1000
3030 K=SQR(WR^2+WI^2)
3040 KL=INT(868.6*LOG(K+1E-30)+.5)/100
3050 CS=WR:SN=WI:GOSUB 1500
3060 PH=INT(AL*10+.5)/10
3070 PRINTF,K,KL,PH
3080 RETURN
3500 Z=SQR((AR(IP)-AR(IM))^2+(AI(IP)-AI(IM))^2)
3510 CS=AR(IP)-AR(IM):SN=AI(IM)
3520 GOSUB 1500
3530 PH=INT (AL*10+.5)/10
3540 PRINT F, Z, PH

361

3550 RETURN
4000 INPUT I
4010 IF I>=0 AND I R1 THEN 560
550 IP = Q: R1 = ABS(D(X) - DP(Q))
560 NEXT Q
570 PRINT
580 IF YY = 1 THEN 600
590 PRINT "Выбран стандартный диаметр провода"; DP(IP); "mm"
600 D(X) = DP(IP): N(X) = NP(IP)
610 K = 1
620 IF X > 0 THEN K = 1.08
630 W(X) = INT((U(X) * K) / (4.44 * 50 * B * SM) * 10000) + 1

365

640 IF YY = 1 THEN 700
650 PRINT "Koличество витков"; W(X)
660 PRINT "Плотность токa"; J(X); "A/кв.mm"
670 S1 = S1 + W(X) / NP(IP)
680 PRINT : PRINT
690 PRINT "Нажмите ВК": INPUT A
700 NEXT
710 INPUT "Принтер Y/N"; P$: IF P$ = "y" OR P$ = "Y" THEN GOTO 950
720 PRINT TAB(12); STRING$(53, "=")
730 PRINT TAB(12); "I
Результаты расчета
I"
740 PRINT TAB(12); "I"; STRING$(51, "="); "I"
750 PRINT TAB(12); "I
Oбмотка
I Число I Диаметр I"
760 PRINT TAB(12); "I-------------+-------------I
I
I"
770 PRINT TAB(12); "I Напряжение,VI Toк,A I витков I провода I"
780 PRINT TAB(12); "I-------------I-------------I-------------I---------I"
790 FOR X = 0 TO N
800 I(0) = 1000! * I(0): I(0) = INT(I(0)) / 1000!
810 A$ = SPACE$(4): C$ = SPACE$(8): U$ = STR$(U(X))
820 I$ = STR$(I(X)): W$ = STR$(W(X)): D$ = STR$(D(X))
830 K$ = SPACE$(2)
840 PRINT TAB(12); "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"
850 NEXT X
860 PRINT TAB(12); "I"; STRING$(51, "-"); "I"
870 PRINT TAB(12); "I
Сeчeние
I Расчетное IПринятое I"
880 PRINT TAB(12); "I сeрдeчникa, кв.сm I"; LEFT$((A$ + STR$(SE) +
C$), 13); "I"; LEFT$((K$ + STR$(SM) + C$), 9); "I"
890 PRINT TAB(12); "I"; STRING$(51, "-"); "I"
900 M$ = " Wt"
910 PRINT TAB(12); "I Moщность трансформатора I"; LEFT$((SPACE$(10) +
STR$(INT(Y)) + M$ + C$), 23); "I"
920 PRINT TAB(12); STRING$(53, "=")
930 INPUT "Пoвтoрить Y/N"; A$
940 IF A$ = "y" OR A$ = "Y" THEN RUN ELSE run "radio"
950 LPRINT STRING$(53, "=")
960 LPRINT "I
Рeзультаты расчетa
I"
970 LPRINT "I"; STRING$(51, "="); "I"
980 LPRINT "I
Oбмоткa
I Число I Диаметр I"
990 LPRINT "I-------------+-------------I
I
I"
1000 LPRINT --">