home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HAM Radio 1
/
HamRadio.cdr
/
tech
/
jbl
/
ts.bas
< prev
next >
Wrap
BASIC Source File
|
1984-01-02
|
849b
|
21 lines
1 CLS : COLOR 15 : KEY OFF ' IBM functions
2 PRINT : INPUT "DRIVER Fs ";FS
3 INPUT "DRIVER Qts ";QTS
4 INPUT "DRIVER Vas ";VAS
5 VB = (QTS^2.87)*15*VAS
6 F3 = (QTS^-1.4)*.26*FS
7 FB = (QTS^-.9)*.42*FS
8 PRINT : PRINT USING "BOX VOLUME = ###.## Ft^3, F3 = ###.# Hz, Fb = ###.# Hz";VB,F3,FB
9 PRINT
10 INPUT "Is the box size acceptable ";A$
11 IF A$="Y" OR A$="y" THEN 2
12 IF A$="N" OR A$="n" THEN 13 ELSE 10
13 INPUT "What box volume would you prefer ";VBX : PRINT
14 F3X=SQR(VAS/VBX)*FS
15 FBX=((VAS/VBX)^.32)*FS
16 PRINT USING "For a ###.# ft^3 box, F3 = ###.# Hz, FB = ###.# Hz";VBX,F3X,FBX
17 L1=LOG(10) : DDB=20*LOG(((VAS/VBX)^.35)*QTS*2.6)/L1 : PRINT
18 IF DDB>0 THEN B$="+"
19 PRINT USING "The flattest alignment will have !##.# dB of low frequency response ripple";B$,DDB
20 PRINT "with this box volume" : GOTO 9