17.05.2015 Views

~ National ~ Semiconductor - Al Kossow's Bitsavers

~ National ~ Semiconductor - Al Kossow's Bitsavers

~ National ~ Semiconductor - Al Kossow's Bitsavers

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

.....<br />

U)<br />

z •<br />

U) r---------------------------------------------------------------------------------,<br />

c:(<br />

570 NEXT F<br />

580 LPRINT<br />

590 PRINT<br />

600 PRINT "INSERTION LOSS"<br />

610 LPRINT "INSERTION LOSS"<br />

620 LPRINT<br />

630 PRINT<br />

640 LPRINT<br />

650 PRINT<br />

660 LPRINT<br />

670 LPRINT<br />

680 E=l<br />

690 F=1800<br />

700 VGRII=O<br />

710 ILRII=O<br />

720 GOSUB 830<br />

730 VGRII=VGII<br />

740 ILRII=ILII<br />

750 IF 0 1<br />

760 PRINT<br />

"Freq<br />

"Freq<br />

Voltage<br />

Voltage<br />

Gain(dB)<br />

Gain(dB)<br />

Transducer"<br />

Transducer"<br />

Gain(dB)"<br />

Gain(dB)"<br />

'INITIALIZE VOLTAGE GAIN (dB)<br />

'INITIALIZE INSERTION LOSS (dB)<br />

'VG(dB) AT 1800 HZ<br />

'IL(dB) AT 1800 Hz<br />

THEN 1060<br />

770 LPRINT<br />

780 GOSUB 2090 'PAUSE SUBROUTINE<br />

790 FOR F=300 TO 3000 STEP 300<br />

800 GOSUB 830<br />

810 NEXT F<br />

820 GOTO 1060<br />

830 BOII=2*PIII*F*COII<br />

840 Bll1=1/2/PIII/F/LII<br />

850 AII=RSII/NOIl/600+NOII*(1+RPII/600)<br />

860 BII=NOII*Bll1*RSII*(1+RPII/600)<br />

870 MII=AII*(1+ROII/RSII)+BII*Bll1*ROII-NOII*(1+RPII/600)*ROII/RSII<br />

880 NII=AII*Bll1*ROII-BII*(l+ROII/RSII)<br />

890 ILII=10*FNLOG101l(ROIl/150/(MII A 2+NII A 2»<br />

900 GTRANSPRII=ROIl/150/(MII A 2+NIIA2)<br />

910 REALII=RPII+RSII/NOIIA2<br />

920 IMAGII=RSII*RPII*Bl11<br />

930 Y2111=1/NOII/SQR(REALIIA2+IMAGIIA2)<br />

940 MAG111=SQR(1/NOIIA4+(RPII*Bll1)A2)<br />

950 ANGLE111=-ATN(NOIIA2*RPII*Bll1)<br />

960 MAG211=SQR«RSII/NOIIA2+RPII)A2+(Bll1*RSII*RPII)A2)<br />

970 ANGLE211=-ATN(Bll1*RSII*RPII/(RSII/NOIIA2+RPII»<br />

980 REALII=(MAG111/MAG211)*COS(ANGLE111-ANGLE211)+GOII<br />

990 IMAGII=(MAG111/MAG211)*SIN(ANGLE111-ANGLE211)+BOII<br />

1000 YII=SQR(REALIIA2+IMAGIIA2)<br />

1010 VGII=20*FNLOG101l(Y21#/Y#)<br />

1020 RATI02PR#=Y21#/Y#<br />

1030 PRINT USING "#11##<br />

1040 LPRINT USING "####<br />

1050 RETURN<br />

1060 LPRINT<br />

1070 PRINT<br />

1080 E=O<br />

+11#.##<br />

+11#.1111<br />

'VOLTAGE GAIN (dB)<br />

'VOLTAGE GAIN<br />

+##.IIII";F, VG#-VGRII, IL#-ILRII<br />

+#II.#II";F, VG#-VGRII, IL#-ILRII<br />

1090 INPUT "CONTINUE [0], SET RO,CO [1], OR END [2]";0<br />

1100 PRINT<br />

1110 IF 0=0 THEN 1480 'APPARENT Zline ROUTINE<br />

1120 IF 0=2 THEN 1200<br />

1130 INPUT "INPUT RO (Ohms), CO (uF)";RO#,CO#<br />

1140 PRINT<br />

1150 GO#=l/RO#<br />

1160 COII=COII*.OOOOOl11<br />

1170 PRINT "Zin FROM LINE SIDE. ARBITRARY RO, CO"<br />

1180 LPRINT "Zin FROM LINE SIDE, ARBITRARY RO, CO"<br />

1190 GOTO 440<br />

1200 END<br />

TLlH/9442-5<br />

5-40

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!