Расчет однофазного стабилизированного источника питания. Лабунский Л.С. - 27 стр.

UptoLike

ВУЗ: 

СамГУПС | Самара

Составители: 

Рубрика: 

27
ПРИЛОЖЕНИЕ 5
Программа расчета выпрямителя
10 CLS
20 PRINT:PRINT ”ПРОГРАММА”
30 PRINT:PRINT:PRINT TAB(21); “РАСЧЕТА ВЫПРЯМИТЕЛЯ”
31 PRINT:PRINT:PRINT TAB(21); “нажмите любую клавишу”
40 SLEEP: CLS
50 PRINT “ВВЕДИТЕ ИСХОДНЫЕ ДАННЫЕ :”
60 PRINT:PRINT ,”ТИП ВЫПРЯМИТЕЛЯ :“
70 PRINT , “ОДНОПОЛУПЕРИОДНЫЙ - ‘1’ “
80 PRINT , “ДВУХПОЛУПЕРИОДНЫЙ - ‘2’ ”
90 PRINT , “МОСТОВОЙ - ‘3’ ”
100 PRINT , “С УДВОЕНИЕМ - ‘4’ ” ;
110 INPUT T
120 IF T =1 THEN M=1: KR=2.3: K1=1: K2=1: K3=1: GOTO 170
130 IF T =2 THEN M=2: KR=4.7: K1=1: K2=1: K3=.5: GOTO 170
140 IF T =3 THEN M=2: KR=3.5: K1=2: K2=1: K3=1/SQR(2): GOTO 170
150 IF T =4 THEN M=1: KR=.9: K1=1: K2=.5: K3=SQR(2): GOTO 170
160 GOSUB 680: GOTO 60
170 PRINT, “ВЫПРЯМЛЕННОЕ НАПРЯЖЕНИЕ, В”;
180 INPUT E0: IF E0<=0 THEN GOSUB 680: GOTO 170
190 PRINT, “ТОК НАГРУЗКИ, А”;
200 INPUT I0: IF I0<=0 THEN GOSUB 680: GOTO 170
210 PRINT, “ТИП СЕРДЕЧНИКА :”
220 PRINT, “Ш ‘1’ , ШЛ - ‘2’ или ПЛ - ‘3’ “;
230 INPUT S$
240 IF S$=”1” OR S$=”2” THEN S=1: GOTO 270
250 IF S$=”3” THEN S=2: GOTO 270
260 GOSUB 680: GOTO 210
270 PRINT, “КОЭФФИЦИЕНТ ПУЛЬСАЦИЙ, % ” ;
280 INPUT KP
290 IF KP <1 THEN GOSUB 680: GOTO 270
300 KP=KP/100
310 F=50: BM=1.4
320 RT=KP*E0*(S*F*BM/(E0*I0))^.25/(I0*F*BM)
330 RI=.75*M/(3*I0)
340 R=RT+K1*RI
350 A0=I0*R/(M*E0)
360 A0=A0*3.14159
370 O1=32: OD=32
380 O=O1*3.14159/180
390 A=TAN(O)-O
400 DA=(A-A0)/A0: S1=SGN(DA): AD=ABS(DA)
410 IF AD<=.01 THEN 450
420 OD=.5*OD
430 O1=O1-S1*OD
440 GOTO 380
450 K0=SIN(O)-O*COS(O)
460 F0=3.14159*(1-COS(O))/K0
470 B0=1/(SQR(2)*COS(O))
480 D0=SQR(3.14159*(O*(1+COS(2*O)/2)-3*SIN(2*O)/4))/K0
490 U2=E0*B0*K2
500 IM=I0*F0/M
510 IV=I0*D0/M
520 IC=I0/M
530 I2=I0*DO*K3

Страницы