5 PRINT"%":GOSUB3000010 PRINT"%15 PRINT:PRINT:PRINT:PRINT20 PRINT"THIS IS A PROGRAM WHICH WILL FIGURE ALLTHE PARAMETERS FOR THE ";22 PRINT" PI-NET IN THEPOWER STAGE OF YOUR RF LINEAR AMPLIFIER.ENTER EACH ";24 PRINT"PIECE OF DATA AS IT ISREQUESTED. AT THE END OF THE PROGRAM YOU";26 PRINT"WILL BE ABLE TO REVIEW ANY OF THE DATAWHICH YOU HAVE ENTERED ";30 PRINT" EARLIER IN THEPROGRAM.":PRINT:PRINT:PRINT:PRINT:PRINT32 PRINT"PRESS ' R E T U R N ' WHEN READY TOCONTINUE.":INPUTA$40 PRINT"%":PRINT"WHAT IS THE DESEIGN FREQUENCY (IN MHZ)?":INPUTFR50 PRINT:PRINT"WHAT WILL BE YOUR PEAK DC INPUT (IN WATTS)?":INPUTWT60 PRINT:PRINT"WHAT WILL BE THE PLATE VOLTAGE?":INPUTPV:R=PV/(2*(WT/PV))70 PRINT:PRINT"WHAT WILL BE THE OPERATING Q?"72 PRINT"(NOTE: IT IS USUALLY BETWEEN 10AND 20":INPUTQ80 PRINT:PRINT"WHAT WILL BE THE FEEDLINE IMPEDANCE?":INPUTFZ:T=R/Q90 L=FZ*(SQR(R/(FZ*(Q*Q+1)-R)))100 XT=T+((FZ*FZ*L)/(FZ*FZ+L))110 PRINT"%":PRINT"IMPEDANCE OF THE TUNING CAPACITOR (BY PLATE) IS ";T;112 PRINT"OHMS."120 PRINT:PRINT"THIS WILL BE";1000000/(2*d*FR*T);" PICOFARADS."130 PRINT:PRINT"THE IMPEDANCE OF THE INDUCTOR WILL BE",XT;" OHMS."140 PRINT:PRINT"THIS WILL BE";XT/(2*d*FR);"MICROHENRIES."150 E=XT/(2*d*FR)160 PRINT:PRINT"THE IMPEDANCE OF THE LOADING CAPACTOR WILLBE";L;"OHMS."170 PRINT:PRINT"THE CAPACITANCE OF THE LOADING CAPACITORIS";1E6/(2*d*FR*L);172 PRINT" PICOFARADS."180 PRINT:PRINT"DO YOU WANT TO FIGURE THE INDUCTOR NOW? (Y/N)":GOSUB900190 IFKB$="N"THEN310250 PRINT"%":PRINT:PRINT:PRINT"WHAT WILL BE THE COIL RADIUS?":INPUTP260 PRINT:PRINT"WHAT WILL BE THE COIL LENGTH?":INPUTO270 G=9*P+10*O:BB=E*G/(P*P):J=SQR(BB)280 PRINT"%":PRINT:PRINT"THE NUMBER OF TURNS REQUIRED FOR ARADIUS OF";P;282 PRINT"INCHES AND A LENGTH","OF";O;" INCHES AT";E;"MICROHENRIES","IS ";284 PRINTJ;"TURNS.":GOTO300290 PRINT"%":PRINT:PRINT:PRINT"FREQUENCY IS";FR;"MHZ, PEAK DC INPUT","POWER IS";292 PRINTWT;"WATTS, THE PLATE VOLTAGE","IS";PV;"VOLTS, THE Q OF THE CIRCUIT",294 PRINT"IS APPROXIMATELY";Q;"AND THE ANTENNA","IMPEDANCE IS";FZ;"OHMS."300 PRINT:PRINT:PRINT" PRESS ' R E T U R N ' TO CONTINUE.":INPUTA$310 PRINT"%":PRINT:PRINT:PRINT:PRINT"SELECT WHICH OPTION YOU DESIRE":PRINT313 PRINT" 1) SEE INITIAL PARAMETERS"314 PRINT" 2) SEE PI-NET DATA"315 PRINT" 3) REFIGURE INDUCTOR"316 PRINT" 4) SEE PREVIOUS INDUCTOR DATA"317 PRINT" 5) END PROGRAM"318 PRINT" 6) FIGURE ANOTHER FREQUENCY"320 GETD$:IFD$=""THEN320322 IFD$>"0"ANDD$<"7"THEN330325 GOTO320330 D=ASC(D$)-48340 ONDGOTO290,110,250,280,29980,40900 GETKB$:IFKB$=""THEN900910 IFKB$="Y"ORKB$="N"THENRETURN920 GOTO90029980 PRINT"%":PRINT:PRINT:PRINT"GLAD I COULD DO SOME HARD BRAIN WORK FOR"29982 PRINT"YOU TODAY. COME BACK WHEN YOU ARE TIREDOF WORKING YOUR FINGERS";29984 PRINT" SORE ON THE CALCULATOR KEYBOARD AND I WILL GIVE YOU QUICK";29986 PRINT" ANSWERS TO YOUR PROBLEMS.":END30000 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT30002 PRINTTAB(13)"d-NETWORK DESEIGN"30010 PRINT:PRINT:PRINTTAB(12)"BY STEPHEN BUDENSIEK"30020 PRINT:PRINT:PRINTTAB(12)"FULTON, SOUTH DAKOTA"30030 FORCC=1TO4500:NEXTCC:RETURN
