(王贺洲)在PC—1500袖珍计算机上键入下列程序，并敲入数据：直流输出电压V\(_{D}\)（伏）、电压的调节范围Vmax和V\(_{min}\)（伏）、以及输出电流最大值IL(毫安）。机器运行后将得到打印的电路图和元器件参数值。下面举例说明。
[例]输入下面数据：V\(_{D}\)=12伏，Vmax=13.2伏，V\(_{min}\)=10.8伏，IL=300毫安。机器运行输出附图所示的电路原理图和元器件参数值。
根据参数值查元器件手册得到：变压器6瓦、次级输出15伏；D\(_{1}\)～D4为2CZ53A；调整管T\(_{1}\)用3DD53B（β≥30）；T2用3DG12A（β≥50）；T\(_{3}\)为3DG6（β≥50）；稳压二极管DW为2CW14；C\(_{1}\)和C3选用470μF／25V电解电容器；C\(_{2}\)用0.022μF瓷介质电容器；R1=390Ω，R\(_{2}\)=620Ω，R3=380Ω，R\(_{C}\)=2.2kΩ，RW=180Ω。按电路图装配后，实测电压范围在10.5～17.3伏之间，电源内阻小于0.4Ω，电压波动±10％时，输出直流电压变化小于100毫伏。
蹷
B：V2=15V S=6W
D1—D4：23V 1>3 mA
T1：VBceo=23V Icm=450mA Pc=4050mW hfe=30
T2: BVceo=23V Icm=15mA Pc=135mW hfe=50
T3：3DG6 hfe=50
DW：Vz=7V
C1：23V C=383
C3: 23V C=500
C2=0.022 R3=380 Rc=2300
R1=423 R2=636 RW=141
10：INPUT“VD=”;VD
20：INPUT “VM=”；VM
30：INPUT“VN=”；VN
40：INPUT“IL=”；IL
50：
60：ROTATE 1
70：CSJZE 1
80：SORCN
90：LINE（60，-10）－（60，-30）－（66，-36），0，0
100：FOR X=66 TO 106 STEP 8
110：LINE（X，-36）－（X+4，-32）－（X+8，-36），0，0
120：NEXT X
130：LINE （114，-36）－（120，-30）－（120，-10），0，0，
140：FOR I=-40 TO-41 STEP-1
150：LINE（50，I）－（130，I），0，0
160：NEXT I
170：LINE（0，-360）－（0，-60）－（90，-60）－（70，-80）－（70，-50）－（74，-44），0，0
180：FOR X＝74 TO 98 STEP 8
190：LINE（X，-44）－（X+4，-48）－（X＋8，-44），0，0
200：NEXT X
210：LINE（106，-44）－（110，-50）－（110，-80）－（90，-100）－（70，-80），0，0
220：LINE（90，-60）－（110，-80），0，0
230：LINE（90，-70）－（90，-76）－（94，-76）－（90，-84）－（86，-76）－（90，-76），0，0
240：LINE（86，-84），－（94，-84），0，0
250：LINE（90，-84）－（90，-90），0，0
260：LINE（90，-100）－（180，-100）－（180，-200）－（168，-208）－（180，-216），0，0
270：LINE（175，-211）－（180，-216）－（180，-360），0，0
280：LINE（0，-130）－（86，-130），0，0
290：LINE（90，-122）－（90，-138）－（94，-138）－（94，-122）-（90，-122），0，0
300：LINE（94，-130）－（180，-130），0，0
310：LINE（86，-122）－（86，-138），0，0
320：LINE（180，-160）－（160，-160）－（160，-156）－（140，-156）-（140，-164）－（160，-164），0，0
330：LINE（160，-164）－（160，-160），0，0
340：LINE（140，-160）－（120，-160）－（120，-200），0，0
350：LINE（120，-200）－（120，-270）－（98，-270）－（90，-280）－（82，-270），0，0
360：LINE（86，-272）－（82，-270）－（82，-250），0，0
370：LINE（180，-250）－（160，-250）－（160，-246）－（140，-246）－（140，-254）－（160，-254），0，0
380：LINE（160，-254）－（160，-250），0，0
390：LINE（140，-250）－（46，-250），0，0
400：LINE（0，-250）－（36，-250）－（36，-244）－（46，-250）－（36，-256）－（36，-250），0，0
410：LINE（44，-240）－（46，-246）－（46，-256）－（48，-260），0，0
420：LINE（82，-280）－（98，-280），0，0
430：LINE（90，-280）－（90，-296）－（91，-290），0，0
440：LINE（0，-300）－（30，-300）－（30，-294）－（50，-294）－（50，-304）－（30，-304）－（30，-300），0，0
450：LINE（50，-300）－（80，-300）－（80，-296）－（100，-296）－（100，-304）－（80，-304），0，0
460：LINE（80，-304）－（80，-300），0，0
470：LINE（100，-300）－（130，-300）－（130，-296）－（150，-296）－（150，-304）－（130，-304），0，0
480：LINE（130，-304）－（130，-300），0，0
490：LINE（150，-300）－（180，-300），0，0
500：LINE （0，-340）－（86，-340），0，0
510：LINE（86，-332）－（86，-348），0，0
520：LINE（94，-340）－（94，-332）－（90，-332）－（90，-348）－（94，-348）－（94，-340），0，0
530：LINE（94，-340）－（180，-340），0，0
540：LINE（0，-200）－（56，-200），0，0
550：LINE（56，-192）－（56，-208），0，0
560：LINE（60，-192）－（60，-208），0，0
570：LINE（60，-200）－（148，-200）－（160，-192）－（180，-192），0，0
580：LINE（148，-200）－（160，-208）－（156，-203），0，0
590：LINE（148，-192）－（148，-208），0，0
600：LINE（160，-208）－（168，-208），0，0
610：LINE（168，-200）－（168，-216），0，0
620：LINE（168，-216）－（90，10），9
630：LPRINT“AC 220v”
640：LINE－（140，-40），9：LPRINT“B”
650：LINE－（120，-60），9：LPRINT“D1-D4”
660：LINE－（90，-145），9：LPRINT“C1”
670：LINE－（145，-171），9：LPRINT“Rc”
680：LINE－（190，-205),9：LPRINT“T1”
690：LINE－（150，-215），9：LPRINT“T2”
700：LINE－（117，-198），9：LPRINT“*”
710：LINE－（60，-218），9：LPRINT“C2”
720：LINE－（30，-265），9：LPRINT“DW”
730：LINE－（110，-275），9：LPRINT “T3”
740：LINE－（150，-260），9：LPRINT “R3”
750：LINE－（20，-310），9：LPRINT“R2”
760：LINE－（90，-310），9：LPRINT“Rw”
770：LINE－（140，-310），9：LPRINT“R1”
780：LINE－（90，-355），9：LPRINT“C3”
790：CSIZE 2
800：LINE－（160，-360），9：LPRINT“+”
810：LINE－（15，-360），9：LPRINT“-”
820：V1=（3+VM）/0.9：V2=INT（V1/1.2＋0.5）
830：VR=INT（1.1*1.414*V2+0.5）
840: ID=INT〔(IL＋45）/2＋0.5〕
845：SB＝INT（2.3*ID*V2／1000＋0.5）
850：RL=V1／（IL＋45）／1000
860：C1=INT（2/RL/100+0.5
870：VC=INT（1.1*1.414*V2+0.5）
880：BV=INT（1.1*1.414*V2+0.5）
890: IC=1.5*IL：PC=INT 〔（1.1*V1－VN）*IC+0.5）〕
900: I2=IC／30；P2=INT〔（1.1*V1－UN）*I2〕
910: VZ=IVT（0.6*VD）
920：R3=INT〔（VN－VZ)／0.01〕
930: R=VD/0.01：R2=INT（VZ*R／VM）:RW=INT（VZ*R／VN－R2）:R1=R－R2-RW
940：RC=〔V1－（1.4＋VD）〕/0.002
950：CSIZE2:LINE－（200，-400），9
960: LPRINT“B：V2=”；V2；“VS=”；SB；“W”
970：LINE－（180，-400），9
980：LPRINT“D1－D4：”；VR；“V”；ID；“mA”
990：LINE－（160，-400），9
1000：LPRINT“T1：V
Bceo=”；BV；“V”
Icm=”；IC；“m
A Pc=”;PC；“m
W hfe=30”
1010：LINE－（140，-400）,9
1020: LPRINT“T2:B
Uceo＝”；Bv;“V
Icm =”；I2；“m
A Pc=”；P2；“m
W hfe=50”
1030：LINE－（120，-400），9
1040：LPRINT“T3：3DG6
hfe=50”
1050：LINE－（100，-400），9
1060：LPRINT“Dw：Vz=”； Vz；“V”
1070：LINE－（80，-400），9
1080：LPRINT“C1：”；VG；“V”；“C=”；C1
1090：LINE－（60，-400），9
1100：LPRINT“C3：”；VG； “V”；“C=500”
1110：LINE－（40，-400），9：
LPRINT“C2=0.022 R3=“；R3；“Rc=”； RC
1120：LINE－（20，-400），9：
LPRINT“R1=”；R1；
“ ”；“R2=”；R2；“ ”；
“Rw=”；RW
1130：END