This is the BAMA archive. These manuals are available for download and free of charge. Do not be tricked into paying for a manual that is available here for free.
-
2026-10-09
- 170 new manuals added in aes, alinco, bitsavers, b&k, century, collins, dovetron, ebooks, eico, electric-eye, freq-electronics, goodwill, hickok, johnson, kantronics, micronta, military, national, rca, scientific_radio, sencore, sylvania, tennelec, triplett, uniden, and xyz.
-
2026-10-21
- New beta site for public review.
Design Tools
Power Supply Design BASIC Code
10 CLS 20 REM POWER SUPPLY SPECIFICATION PR OGRAM 30 REM DY JACK CUNkELMAN 40 REM 3UNE 1995 50 INPUT "DO YOU WANT SCREEN DISPLAY (5) OR PRINTER OUTPUT (P)";D$ 60 IF D$="S" THEN 90 70 IF D$="P" THEN 500 75 PRINT "INPUT ERROR" : GOTO 50 90 CLS 95 PRINT"POWER SUPPLY TYPE" 90 PRINT" FULL WAYE BRIDGE Cl)" 100 PRINT" FULL WAVE CENTER TAP 2)" 110 PRINT" FULL WAVE BRIDGE CENTE R TAP (3)" 120 PRINT" ALL USING CAPACITOR INPUT FILTERING" 130 INPUT" SELECT TYPE 1 2 , 3 OR 0 TO QUIT";T 135 IF T=0 THEN END 140 ON T GOTO 1000,2000,3000 150 GOTO 90 500 CLS 510 PRINT "THE PRINTER OPTION PRINTS A TABLE OF VALUES FOR VARIOUS TRANSFORMERS" 520 PRINT "TYPE OF CIRCUIT." 530 PRINT" FULL WAVE BRIDGE (1)" 540 PRINT" FULL WAVE CENTER TAP 2)" 550 PRINT" FULL WAVE BRIDGE CENTE R TAP (3)" 560 PRINT" ALL USING CAPACITOR INPUT FILTERING" 570 INPUT" SELECT TYPE 1 , 2 3 OR 0 TO QUIT";T 590 IF T=0 THEN END 590 ON T GOTO 1500,2500,3500 1000 CLS 1010 PRINT"FULL WAVE BRIDGE , CAPACI TOR INPUT FILTER" 1020 INPUT"TRANSFORMER RMS VOLTAGE"; V 1025 IF V=0 THEN 90 1030 INPUT"TRANSFORMER CURRENT RAT IN 6 (AMPS)";C 1040 RVINT( (V*.95*1.414)+.04) 1050 DV=INT(2*RV) 1060 CV=INT(1.3*RV) 1070 OC INT(C/1.9$10) 1090 GOSUB 5000 1090 PRINT V;TAB(21)RV;TAB(31)DV;TAB (41) CV; TAB (52)OC/10 1100 GOTO 1010 1500 CLS 1510 INPUT"MINIMUM TRANSFORMER VOLTA GE"; M 1522 T$="FULL WAVE BRIDGE" 1524 GOSUD 6000 1530 FOR V M TO M+50 1540 RVINT((V*.95*1.414)+.04) 1550 DV=INT(2*RV) 1560 CV=INT(1.3$RY) 1590 LPRINT TAB(S) V;TAB(20)RV;TAB(31 DV; TAD (41) CV 1590 NEXT V 1600 GOTO 500 2000 CLS 2010 PRINT"FULL WAVE CENTER TAPPED , CAPACITOR INPUT FILTER" 2020 INPUT"TRANSFORMER RMS VOLTAGE ENTIRE SECONDARY) ";V 2025 IF V=0 THEN 90 2030 INPUT"TRANSFORMER CURRENT RATIN G (AMPS)";C 2040 RV=INT( (V*.95*1.414)+.04)/2 2050 DV=INT(4*RV) 2060 CV=INT(1.3*RV) 2070 DV=INT(4*RV) 2075 OC=INT(C/1.2S10) 2090 GOSUB 5000 2090 PRINT V;TAB(21)RV;TAB(31)DV;TAB (41)CV;TAB(52)OC/10 2110 GOTO 2010 2500 CLS 2510 INPUT"MINIMUN TRANSFORMER VOLTA GE (ENTIRE SECONDARY) ";M 2520 T$="FULL WAVE CENTER TAP" 2524 GOSUB 6000 2530 FOR V M TO M+50 2540 RV==INT((V*.95*1414)+.04)/2 2550 DV=INT(4SRV) 2560 CV=INT(1.3*RV) 2590 LPRINT TAB(S) V;TAB(20)RV;TAB(31 DV; TAD (41) CV 2590 NEXT V 2600 GOTO 500 3000 CLS 3010 PRINT "FULL WAVE BRIDGE CENTER TAP,CAPACITOR INPUT FILTER" 3020 INPUT"TRANSFORMER RMS VOLTAGE ENTIRE SECONDARY) ";V 3025 IF V0 THEN SO 3030 INPUT "TRANSFORMER CURRENT RATI NG (AMPS)";C 3040 RV INT((V$.9581.414)+.04)/2 3050 DV INT(4SRV) 3060 CV INT(1.3*RV) 3070 OC =INT((C/1.S)/2*10) 3090 GOSUD 5000 3090 PRINTV;TAB(1S)"+/"RV;TAB(31)DV ;TAB(41)CV;TAB(49) "+/"OC/10 3100 GOTO 3010 3500 CLS 3510 INPUT"MINIMUM TRANSFORMER VOLTA GE (ENTIRE SECONDARY) ";M 3520 T$="FULL WAVE BRIDGE CENTER TAP 3525 GOSUB 6000 3530 FOR V M TO M+50 3540 RV INT((V*.95*1.414)+.04)/2 3550 DV = INT(4*RV) 3580 CV INT(1.3$RV) 3580 LPRINT TAB(S) V;TAB(19)"+/"RV;T AB (31) DV; TAB (41 ) CV 3590 NEXT V 3600 GOTO 500 5000 PRINT "TRANSFORMER" ; TAB (20)" DC ";TAB(30) "DIODE";TAB(40) "CAPACITOR"; TAB(52) " DC " 5010 PRINT"VOLTAGE (RMS) "p TAD (20) "VOL TS";TAB (30)" PIV ";TAB(40) "VOLTAGE"; TAB(51) "CURRENT (AMPS)" 5020 RETURN 6000 LPRINT;LPRINT;LPRINT 6005 LPRINT TAB(20) T$ 6010 LPRINT TAD(20)"CAPACITOR INPUT FILTER" 6015 LPRINT 6020 LPRINTTAB(5) "TRANSFORMER"; TAB( 20)" DC ";TAB(30) "DIODE"TAB(40) "CAPA CITOR" 6030 LPRINTTAB (5) "VOLTAGE (RMS) ";TAB (20) "VOLTS";TAB(30)" PIV "p TAB(40) "V OLTAGE" 6035 LPRINT 6040 RETURN
POWER SUPPLY SPECIFICATION PROGRAM
10 CLS 20 REM POWER SUPPLY SPECIFICATION PROGRAM 30 REM DY JACK CUNkELMAN 40 REM 3UNE 1995 50 INPUT "DO YOU WANT SCREEN DISPLAY(5) OR PRINTER OUTPUT (P)";D$ 60 IF D$="S" THEN 90 70 IF D$="P" THEN 500 75 PRINT "INPUT ERROR" : GOTO 50 90 CLS 95 PRINT"POWER SUPPLY TYPE" 90 PRINT" FULL WAYE BRIDGE Cl)" 100 PRINT" FULL WAVE CENTER TAP2)" 110 PRINT" FULL WAVE BRIDGE CENTER TAP (3)" 120 PRINT" ALL USING CAPACITOR INPUT FILTERING" 130 INPUT" SELECT TYPE 1 2 , 3 OR 0 TO QUIT";T 135 IF T=0 THEN END 140 ON T GOTO 1000,2000,3000 150 GOTO 90 500 CLS 510 PRINT "THE PRINTER OPTION PRINTS A TABLE OF VALUES FOR VARIOUS TRANSFORMERS" 520 PRINT "TYPE OF CIRCUIT." 530 PRINT" FULL WAVE BRIDGE (1)" 540 PRINT" FULL WAVE CENTER TAP 2)" 550 PRINT" FULL WAVE BRIDGE CENTER TAP (3)" 560 PRINT" ALL USING CAPACITOR INPUT FILTERING" 570 INPUT" SELECT TYPE 1 , 2 3 OR 0 TO QUIT";T 590 IF T=0 THEN END 590 ON T GOTO 1500,2500,3500 1000 CLS 1010 PRINT"FULL WAVE BRIDGE , CAPACITOR INPUT FILTER" 1020 INPUT"TRANSFORMER RMS VOLTAGE";V 1025 IF V=0 THEN 90 1030 INPUT"TRANSFORMER CURRENT RAT IN 6 (AMPS)";C 1040 RVINT( (V*.95*1.414)+.04) 1050 DV=INT(2*RV) 1060 CV=INT(1.3*RV) 1070 OC INT(C/1.9$10) 1090 GOSUB 5000 1091 PRINT V;TAB(21)RV;TAB(31)DV;TAB(41) CV; TAB (52)OC/10 1100 GOTO 1010 1500 CLS 1510 INPUT"MINIMUM TRANSFORMER VOLTAGE"; M 1522 T$="FULL WAVE BRIDGE" 1524 GOSUD 6000 1530 FOR V M TO M+50 1540 RVINT((V*.95*1.414)+.04) 1550 DV=INT(2*RV) 1560 CV=INT(1.3$RY) 1590 LPRINT TAB(S) V;TAB(20)RV;TAB(31DV; TAD (41) CV 1590 NEXT V 1600 GOTO 500 2000 CLS 2010 PRINT"FULL WAVE CENTER TAPPED , CAPACITOR INPUT FILTER" 2020 INPUT"TRANSFORMER RMS VOLTAGE ENTIRE SECONDARY) ";V 2025 IF V=0 THEN 90 2030 INPUT"TRANSFORMER CURRENT RATING (AMPS)";C 2040 RV=INT( (V*.95*1.414)+.04)/2 2050 DV=INT(4*RV) 2060 CV=INT(1.3*RV) 2070 DV=INT(4*RV) 2075 OC=INT(C/1.2S10) 2090 GOSUB 5000 2090 PRINT V;TAB(21)RV;TAB(31)DV;TAB(41)CV;TAB(52)OC/10 2110 GOTO 2010 2500 CLS 2510 INPUT"MINIMUN TRANSFORMER VOLTAGE (ENTIRE SECONDARY) ";M 2520 T$="FULL WAVE CENTER TAP" 2524 GOSUB 6000 2530 FOR V M TO M+50 2540 RV==INT((V*.95*1414)+.04)/2 2550 DV=INT(4SRV) 2560 CV=INT(1.3*RV) 2590 LPRINT TAB(S) V;TAB(20)RV;TAB(31DV; TAD (41) CV 2590 NEXT V 2600 GOTO 500 3000 CLS 3010 PRINT "FULL WAVE BRIDGE CENTER TAP,CAPACITOR INPUT FILTER" 3020 INPUT"TRANSFORMER RMS VOLTAGE ENTIRE SECONDARY) ";V 3025 IF V0 THEN SO 3030 INPUT "TRANSFORMER CURRENT RATING (AMPS)";C 3040 RV INT((V$.9581.414)+.04)/2 3050 DV INT(4SRV) 3060 CV INT(1.3*RV) 3070 OC =INT((C/1.S)/2*10) 3090 GOSUD 5000 3090 PRINTV;TAB(1S)"+/"RV;TAB(31)DV;TAB(41)CV;TAB(49) "+/"OC/10 3100 GOTO 3010 3500 CLS 3510 INPUT"MINIMUM TRANSFORMER VOLTAGE (ENTIRE SECONDARY) ";M 3520 T$="FULL WAVE BRIDGE CENTER TAP 3525 GOSUB 6000 3530 FOR V M TO M+50 3540 RV INT((V*.95*1.414)+.04)/2 3550 DV = INT(4*RV) 3580 CV INT(1.3$RV) 3580 LPRINT TAB(S) V;TAB(19)"+/"RV;TAB (31) DV; TAB (41 ) CV 3590 NEXT V 3600 GOTO 500 5000 PRINT "TRANSFORMER" ; TAB (20)" DC";TAB(30) "DIODE";TAB(40) "CAPACITOR";TAB(52) " DC " 5010 PRINT"VOLTAGE (RMS) "p TAD (20) "VOLTS";TAB (30)" PIV ";TAB(40) "VOLTAGE";TAB(51) "CURRENT (AMPS)" 5020 RETURN 6000 LPRINT;LPRINT;LPRINT 6005 LPRINT TAB(20) T$ 6010 LPRINT TAD(20)"CAPACITOR INPUT FILTER" 6015 LPRINT 6020 LPRINTTAB(5) "TRANSFORMER"; TAB(20)" DC ";TAB(30) "DIODE"TAB(40) "CAPACITOR" 6030 LPRINTTAB (5) "VOLTAGE (RMS) ";TAB(20) "VOLTS";TAB(30)" PIV "p TAB(40) "VOLTAGE" 6035 LPRINT 6040 RETURN
Files
- Back powering Why are the lights on when the power is off - Analog Wire - Blogs - TI E2E Community_aspx.mht
- Computerized Power Supply Component Selection.pdf
- Designers Guide to Power Products Application Manual 2Ed.pdf
- Digital Power Design FAQ.xps
- HIGH VOLTAGE TRANSISTORS WITH POWER MOS EMITTER SWITCHING.pdf
- Power Nomograph.pdf
- Power Supply Design 4.6 ENVIRONMENTAL STRESS SCREENING.xps
- Power Supply Design EXECUTIVE SUMMARY.xps
- Power Supply Design BASIC Code.doc
- Power Supply Design How To Design a Power Supply.mht
- Power Supply Instability.doc
- Power Supply Instability.xps
- Power Supply Specification Program.doc
- Powerdevices & Electronics.pdf
- Underestimating Complexity of Power Supply Design.doc
Contact and submissions
If you have a better copy of any of these manuals, or a manual which is not listed, and wish to share it, upload it to cloud.edebris.com or email the archive directly. All formats are accepted.
BAMA is offered as a free service to the internet community. Please respect the archive and its download limits.
Viewers
These viewers may be required to read some manuals in the archive:
- Sumatra PDF (Windows)
- DjView (DjVu)
- WinDjView (Windows, DjVu)
- Adobe Acrobat Reader (PDF)