(何吉松)在无线电制作中，经常遇到设计制作电源变压器，计算起来既麻烦且费时。在PC－81微型计算机上键入下列程序，敲入铁芯的舌宽A、叠厚B、次级电压电流（U2、I2、U3、I3、U4、I4），运行后得到初次级匝数T1～T4，线径D1～D4，铁芯的截面积S。铁芯选定好以后，敲入选定铁芯的窗高H，还可得到线圈绕制以后的总厚度，看所选铁芯是否合适。
该程序可设计3组次级绕组，如果只需设计一组或两组，可将余下的U、I敲入0。如果你已选定好铁芯，可将已选定铁芯的舌宽A、叠厚B的数据敲入，计算机会根据已选铁芯计算出各种数据。如果需要计算机设计铁芯截面积，可将A、B分别敲入0。
例：键入下列数据：舌宽A＝0（mm），叠厚B＝0（mm），次级电压U2＝15（V），次级电流I2＝1.5（A），U3＝0，I3＝0，U4＝0，I4＝0，窗高H＝40（mm），机器运行后得到如下数据：
铁芯截面积S＝6.12（cm\(^{2}\)）
初级线圈匝数T1＝1616（匝）线径D1＝0.21（mm）
次级线圈匝数T2＝121（匝）线径D2＝0.79（mm）
线围绕制后总厚度F＝9（mm）
设计程序如下：
10 PRINT“INPUT A，B，U2，I2，U3，I3，U4，I4”
20 INPUT A
30 INPUT B
40 INPUT U2
50 INPUT I2
60 INPUT U3
70 INPUT I3
80 INPUT U4
90 INPUT I4
100 S＝（A*B）／100
110 PS＝0.85*（U2*I2＋U3*I3＋U4*I4）
120 PS1＝PS／0.9
130 11＝1.1*（PS1／220）
140 IF S＜＞0 THEN GOTO 160
150 S＝1.4*SQR PS
160 T＝4.5E＋5／（10000*S）
170 T1＝INT（220*T）
180 T2＝INT（1.1*U2*T）
190 T3＝INT（1.1*U3*T）
200 T4＝INT（1.1*U4*T）
210 D1＝2*SQR（I1／3／PI）
220 D2＝2*SQR（I2／3／PI）
230 D3＝2*SQR（I3／3／PI）
240 D4＝2*SQR（I4／3／PI）
250 PRINT“S＝”；S；“CM*CM”
260 PRINT“T1＝”； T1，“D1＝”；D1，“T2＝”；T2“D2＝”；D2，“T3＝”；T3，“D3＝”；D3，“T4＝”；T4，“D4＝”；D4
270 PRINT“INPUT H”
280 INPUT H
290 Z＝0.9*（H—3）
300 M1＝T1／［Z／（D1＋0.04）］
310 M2＝T2／［Z／（D2＋0.04）］
320 M3＝T3／［Z／（D3＋0.04）］
330 M4＝T4／［Z／（D4＋0.04）］
340 F＝2.5＋1.3*（D1*M1＋D2*M2＋D3*M3＋D4*M4）
350 PRINT“F＝”； F
360 STOP