|ëVOLTMULTBAS ¸VOLTMULTDOC :ÿ 10 ESC$=CHR$(27) 20 CL$=ESC$+"[2J" 30 PRINT CL$; 40 PRINT " Voltage Multiplier Design Program" 50 PRINT:PRINT " By Greg Trice" 60 PRINT:PRINT:PRINT:PRINT 70 PRINT "Regulation from component values (1)" 80 PRINT "or capacitor values from regulation (2)" 90 INPUT Q 100 IF Q=1 THEN GOTO 130 110 IF Q=2 THEN GOTO 190 120 GOTO 90 130 GOSUB 350 140 INPUT "Capacitor value";C 150 GOSUB 400 160 PRINT:PRINT "Ripple on output =";R;"volts peak-peak" 170 PRINT "Regulation (zero to full load) =";R1;"volts" 180 GOTO 300 190 GOSUB 350 200 INPUT "Regulation desired (volts)";R2 210 C=1E-09 220 GOSUB 400 230 D=(R1-R2)/(R1+R2) 240 D1=1-D 250 IF ABS(D)<.001 THEN GOTO 280 260 C=C/D1 270 GOTO 220 280 PRINT:PRINT "Capacitor value is";C*1E+06;"microfarads" 290 PRINT "Ripple (peak to peak) =";R;"volts" 300 PRINT:PRINT "Another run (y/n)" 310 INPUT Q$ 320 IF Q$="Y" OR Q$="y" THEN GOTO 30 330 IF Q$="N" OR Q$="n" THEN SYSTEM 340 GOTO 310 350 INPUT "Number of stages";N 360 IF N<1 OR N<>INT(N) THEN GOTO 350 370 INPUT "Frequency (Hz)";F 380 INPUT "Load current";I 390 RETURN 400 R=N*(N+1)*(I/(2*F*C)) 410 R1=(I/(F*C))*(.667*N*N*N+.5*N*N-.1667*N) 420 RETURN  380 INPUT "Load current";I 390 RETURN 400 R=N*(N+1)*(I/(2*F VOLTMULT -------- by Greg Trice Voltmult is an aid to the design of Cockroft-Walton voltage multipliers. For a given design, ripple and regulation can be calculated, or capacitor values determined to give a particular value of ripple or regulation. The diodes are assumed to be ideal, which is realistic for most silicon rectifiers operated at frequencies where reverse recovery effects can be ignored. As voltage multipliers are usually operated at the kilovolt level, forward diode drop can be ignored with little error. Voltmult is written in standard Microsoft Basic and should run on just about anything.