0 CLR 5 REM COPYRIGHT 1991 COMPUTE PUBLICATIONS INTL LTD - ALL RIGHTS RESERVED 100 REM * * INITIALIZE * * * 110 HD$="INDUCTOR DESIGN[146]" 120 DIMTN(40):FORI=8TO40:READTN(I):NEXT 130 DEFFNPU(X)=3*VAL(CD$)*IN+9*IN*(X):DEFFNNN(X)=TN(GA)^2*.2*VAL(CD$)^2*X^2 140 POKE53280,0:POKE53281,0:POKE646,7 150 REM * * MENU PAGE * * * 160 PRINT"[147]"HD$ 170 PRINT"PARAMETERS FOR A SINGLE-LAYER,": 180 PRINT"AIR-CORE INDUCTOR USING ENAMEL WIRE." 190 PRINT"SELECT: 1- INDUCTANCE UNKNOWN"; 195 PRINT SPC(59)"2- "CHR$(34)" KNOWN" 200 INPUT"CHOICE: 1[157][157][157]";A$ 210 IFA$<>"1"ANDA$<>"2"THEN200 220 IFA$="1"THEN260 230 PRINT"ENTER THE VALUE OF INDUCTANCE" 240 INPUT"(IN MICROHENRIES)";IN$ 250 GOTO390 260 REM * * CALCULATE INDUCTANCE REQUIRED* 270 PRINT"[147]"HD$ 280 PRINT"DETERMINE INDUCTANCE REQUIRED:-" 290 PRINT"SELECT 1-INDUCTANCE OF AN EXISTING COIL" 300 PRINT"2-INDUCTANCE OF A TUNED INDUCTOR" 310 INPUT"CHOICE 1[157][157][157]";B$:IFB$<>"1"ANDB$<>"2"THEN310 320 IFB$="1"THEN400 330 PRINT"[147]"HD$ 340 INPUT"ENTER FREQ. IN KHZS";FR$ 350 INPUT"ENTER CAPACITANCE IN MMFDS";CA$ 360 IN$=STR$(INT(100*25330*10^6/(VAL(CA$)*VAL(FR$)^2)+.5)/100) 370 PRINT"INDUCTANCE REQIRED IS:":PRINT""IN$" MICROHENRIES" 380 GOSUB1310 390 IN=VAL(IN$) 400 REM * * CALCULATE INDUCTOR SIZE * * 410 PRINT"[147]"HD$:IFB$="2"ORA$="2"THEN430 420 PRINT"FOR AN EXISTING INDUCTOR ENTER ALL":PRINT"PARAMETERS.":GOTO440 430 PRINT"TO DETERMINE AN INDUCTOR SIZE ENTER":PRINT"ANY TWO PARAMETERS. 440 FL[178]0:CO[178]5:RO[178]6:[141]1270:[153]"WIRE SIZE (AWG 8-40):" 450 RO[178]8:[141]1270:[153]"COIL DIAMETER (INCHES):" 460 RO[178]10:[141]1270:[153]"COIL LENGTH (INCHES):" 470 CO[178]30:RO[178]6:[141]1270:[133]GA$:GA[178][197](GA$):[139]GA$[178]""[167]FL[178]FL[170]1:[137]490 480 [139]GA[179]8[176]GA[177]40[167][141]1300:[137]440 490 RO[178]8:[141]1270:[133]CD$:[139]CD$[178]""[167]FL[178]FL[170]1 500 [139]IN[177]0[175]FL[178]0[167]520 510 RO[178]10:[141]1270:[133]CL$:[139]CL$[178]""[167]FL[178]FL[170]1 520 [139]FL[175]IN$[178]""[167][141]1280:[137]440 530 [139]FL[177]1[167][153]"REQUIRE TWO PARAMETERS!":[137]440 540 [139]IN$[178]""[167]580 550 [139]GA$[178]""[167]650 560 [139]CD$[178]""[167]720 570 [139]CL$[178]""[167]820 580 IN[178][181](100[172].2[172][197](CD$)[174]2[172](TN(GA)[172][197](CL$))[174]2) 585 IN[178][181](IN[173]((3[172][197](CD$))[170](9[172][197](CL$)))[170].5) 590 IN[178]IN[173]100 600 [153]"A INDUCTOR WITH THE ABOVE PARAMETERS" 610 [153]"WILL HAVE AN INDUCTANCE OF:":[153]""IN"MICROHENRIES" 620 [153]"WITH CLOSE SPACING OF"TN(GA)[172][197](CL$)"TURNS." 630 [137]1040 640 [143] * * CALCULATE AWG# * * * 650 N[178][181](10[172][186]((3[172][197](CD$)[170]9[172][197](CL$))[172][197](IN$)[173](.2[172][197](CD$)[174]2))[170].5)[173]10 660 [129]I[178]8[164]40:[139][180](TN(I)[179]N[173][197](CL$))[167][130] 670 [153]"AN INDUCTANCE OF"IN"MICROHENRIES" 680 [153]"WILL REQUIRE"N"TURNS." 690 [153]"AWG#"I"HAS"TN(I)"PER INCH, CLOSE SPACED" 700 [153]"OR USE SMALLER AWG, LOOSELY SPACED." 710 GA[178]I:[137]1060 720 [143] * * CALCULATE DIAMETER * * * 730 N1[178]TN(GA)[172][197](CL$) 740 MF[178]N1[174]2[172].2[173]IN 750 CD[178][181](100[172](3[170][186](9[170]4[172]MF[172]9[172][197](CL$)))[173](2[172]MF)[170].5)[173]100:CD$[178][200]([196](CD),5) 760 [153]"FOR AN INDUCTANCE OF "IN$" MICROHENRIES" 770 [153]"AND THE ABOVE PARAMETERS, THE DIAMETER" 780 [153]"REQUIRED IS: "CD$" INCHES." 790 [153]"WITH"TN(GA)[172][197](CL$)"TURNS OVER "CL$" INCH.":CL[178][197](CL$):[141]1240 800 [153]"TOLERANCE "[181](1000[172](L[173][197](IN$)[171]1)[170].5)[173]10"%" 810 [137]1060 820 [143] * * CALCULATE LENGTH * * 830 RO[178]12:CO[178]10:[141]1270:[153]"DOING THE CALCULATION!":CO[178]1:[141]1270 840 [139][165]NN(1)[177][165]PU(1)[167]940 850 [129]I[178]1[164]4[169].1 860 [139][180]([165]NN(I)[171][165]PU(I))[178][171]1[167]DF[178][182]([165]NN(I)[171][165]PU(I)):[130]:[137]980 870 [139]DF[179][182]([165]NN(I)[171][165]PU(I))[167]I[178]I[171].1 880 [153]"FOR AN INDUCTANCE OF "IN$" MICROHENRIES" 890 [153]"AND THE ABOVE PARAMETERS, COIL LENGTH" 900 [153]"REQUIRED IS:"I" INCHES,":N1[178][181](10[172]TN(GA)[172]I[170].5)[173]10:CD[178][197](CD$):CL[178]I 910 [141]1240:[153]"WITH"N1"TURNS." 920 [153]"TOLERANCE "[181](1000[172](L[173][197](IN$)[171]1)[170].5)[173]10"%" 930 [153]"FOR BETTER ACCURACY TRY CUSTOM DESIGN":[137]1060 940 [129]I[178]1[164].05[169][171].05 950 [139][180]([165]NN(I)[171][165]PU(I))[178]1[167]DF[178][165]NN(I)[171][165]PU(I):[130]:[137]1010 960 [139]DF[179][182]([165]NN(I)[171][165]PU(I))[167]I[178]I[170].05 970 I[178][181](100[172]I[170].5)[173]100:[137]880 980 [153]"FOR THESE PARAMETERS THE LENGTH IS":[153]" GREATER THAN 4 INCHES. "; 990 [153]"TRY A LARGER":[153]" DIAMETER"; 995 [139]GA[179]40[167][153]", AND/OR SMALLER GA." 1000 [141]1310:[137]400 1010 [153]"FOR THESE PARAMETERS THE LENGTH IS":[153]" LESS THAN .05 INCHES. "; 1020 [153]"TRY A SMALLER":[153]" DIAMETER"; 1025 [139]GA[177]8[167][153]", AND/OR LARGER GA." 1030 [141]1310:[137]400 1040 [143] * * CUSTOM * * * 1050 [153]"FOR LOOSE SPACING OF FEWER TURNS SELECT":[153]"CUSTOM!" 1060 [153]"SHIFTWAIT TO END. . . CTRLWAIT CUSTOM DESIGN" 1070 [145][194](653)[137]1260,1070,1070,1090 1080 [137]1070 1090 [153]"LOADCUSTOM "HD$ 1100 [153]"AN INDUCTOR WITH:" 1110 [153]"# OF TURNS OF AWG#"GA 1120 [153]"COIL DIAMETER OF ":[153]"COIL LENGTH OF " 1130 CO[178]25:RO[178]4:[141]1270:[133]N1:RO[178]RO[170]2:[141]1270:[133]CD 1140 RO[178]RO[170]2:[141]1270:[133]CL 1150 [139]TN(GA[170]GC)[172]CL[179]N1[167]GC[178]GC[170]1 1160 [139]TN(GA[170]GC[171]1)[172]CL[178][177]N1[167]GC[178]GC[171]1 1170 [139]N1[177]TN(GA)[172]CL[170].0001[167][153]"MORE TURNS/INCH!WAIT - AWG# NOW"GA[170]GC 1180 CD[178]CD[170][181](100[172]1[173]TN(GA)[170].5)[173]100:L[178][181](100[172].2[172]CD[174]2[172]N1[174]2[173](3[172]CD[170]9[172]CL)[170].5)[173]100 1190 [153]"INDUCTANCE IS"L"UH" 1200 [153]"CHANGE :"; 1210 [153][181](1000[172](L[173]IN[171]1)[170].5)[173]10"%" 1220 [137]1060 1230 [143] * CALCULATE L * * * 1240 CD[178]CD[170][181](100[172]1[173]TN(GA)[170].5)[173]100:L[178][181](100[172].2[172]CD[174]2[172]N1[174]2[173](3[172]CD[170]9[172]CL)[170].5)[173]100 1250 [142] 1260 [128] 1270 [151]783,[194](783)[175]254:[151]782,CO:[151]781,RO:[158]65520:[142] 1280 [153]"WITH INDUCTANCE UNKNOWN ALL PARAMETERS ":CO[178]16:RO[178][194](214) 1290 [141]1270:[153]"ONREQUIRED!":[142] 1300 [153]"WIRE GAUGE IS OUTSIDE RANGE! ":[142] 1310 [153]"SHIFTWAIT TO CONTINUE!":[146]653,1:[142] 1320 [143] * * DATA STATEMENTS * * * 1330 [131]7.6,8.6,9.6,10.7,12,13.5,15,16.8 1340 [131]18.9,21.2,23.6,26.4,29.4,33.1,37,41.3 1350 [131]46.3,51.7,58,64.9,72.7,81.6,90.5,101 1360 [131]113,127,143,158,175,198,224,248,282