%%HP: T(3)A(D)F(.);
@ SPKR, by William K. McFadden
DIR
  CB
    DIR
      RESPONSE 'dBMAG=20*LOG(SQ(F/Fb)/\v/(SQ(SQ(F/Fb)-1)+SQ(F/Fb/Qb)))'
      DESIGN.EQ { 'Vb=Vas/Vr' 'Fb=Qr*Fs'
'F3dB=Qr*Fs*\v/((1/Qb^2-2+\v/((1/Qb^2-2)^2+4))/2)' 'dBPEAK=20*LOG(AMAX)'
'AMAX=IFTE(Qb>INV(\v/2),SQ(Qb)/\v/(SQ(Qb)-.25),1)' 'Vr=Qr^2-1' 'Qr=Qb/Qts'
'Par=(4*\pi^3*1.18_kg/m^3)*Fb^4*Vd^2/((345_m/s)*AMAX^2)'
'PeakSPL=112_dB+10*LOG(UVAL(UBASE(Par)))' 'Per=Par/\Gno'
'\Gno=10^((SPL-112_dB)/10)' 'Vd=Sd*xmax''Sd=\pi*(DIA*.83)^2/4' }
      Vas '10.7_ft^3'
      Qts .33
      Fs '30_Hz'
      SPL '95_dB'
      DIA '18_in'
      xmax '.216_in'
      Vb '2.97936589107_ft^3'
      Qb .707106781188
      Fb '64.2824346534_Hz'
      F3dB '64.2824346532_Hz'
      dBPEAK '0_dB'
      Par '2.78890515059_W'
      PeakSPL '116.454337444_dB'
      Per '139.776365727_W'
      \Gno '1.99526231497_Percent'
      Sd '175.303697504_in^2'
      Vd '37.8655986609_in^3'
      AMAX 1
      Vr 3.59136822774
      Qr 2.14274782178
      dBMAG '-3.01029995662_dB'
      F '40_Hz'
      EQ RESPONSE
      Mpar Library Data
      PPAR { (0,-10) (200,5) F 0 (0,0) FUNCTION Y }
      EQUALIZER
        DIR
          F3dB 20
          f 20
          CIRCUIT
            \<< RCLF CLLCD 2 ENG "R1=" '1.0824/(C1*\Gw1)' \->NUM \->STR +
" R8  =" + '(1-k)/k*R10' \->NUM \->STR + 1 DISP "R2=" '.9239/(C1*\Gw1)'
\->NUM \->STR + " R9  =" + '(1-k)/ABS(m)*R10' \->NUM \->STR + 2 DISP "R3="
'2.613/(C2*\Gw1)' \->NUM \->STR + " R10 =" + R10 \->STR + 3 DISP "R4="
'.3827/(C2*\Gw1)' \->NUM \->STR + " R11 \>=" + '2*n/(\Gw1*C3)' \->NUM
\->STR + 4 DISP "R5=" 'ABS(m)*R6' \->NUM \->STR + " C1-3=" + 1 ENG C
\->STR + 5 DISP 2 ENG "R6=" R6 \->STR + " C4  \>=" + '2*n*C3' \->NUM
\->STR + 6 DISP "R7=" '1/(\Gw1*C3)' \->NUM \->STR + 1 ENG " m=  " + m
\->NUM \->STR + 7 DISP 3 FREEZE STOF
            \>>
          R 22000
          C .000001
          n 25
          RESPONSE 'dB=20*LOG(ABS(F(s)))'
          dB 17.3121294002
          R6 R
          R10 R
          C3 C
          C2 C
          C1 C
          EQ RESPONSE
          PPAR { (0,-6) (100,20) f 0 (0,0) FUNCTION dB }
          H2
            \<< \-> s '(s/\Gw1)^2/((s/\Gw1)^2+1.8478*s/\Gw1+1)'
            \>>
          H1
            \<< \-> s '(s/\Gw1)^2/((s/\Gw1)^2+.7654*s/\Gw1+1)'
            \>>
          \Gw '2*\pi*f'
          s 'i*\Gw'
          \Gwc '2*\pi*Fb/1_Hz'
          \Gw1 '2*\pi*F3dB'
          k '1-(\Gw1/\Gwc)^2'
          m '\Gw1/(Qb*\Gwc)-.7654'
          F
            \<< \-> s '1/(1-k)*(1-k*H1(s)+m*(\Gw1/s)*H1(s))*H2(s)'
            \>>
          CST { F3dB CIRCUIT R C n }
        END
      CST { EQUALIZER }
    END
  PORTED
    DIR
      RESPONSE 'dBMAG=20*LOG(SQ(SQ(F/Fs))/\v/(SQ(SQ(SQ(F/Fs))-(1+SQ(Fb/Fs)+
Fb/(7*Fs*Qts)+Vas/Vb)*SQ(F/Fs)+SQ(Fb/Fs))+SQ((SQ(Fb/Fs)/Qts+Fb/(7*Fs))*(F/Fs)-
(1/Qts+Fb/(7*Fs))*(F/Fs)^3)))'
      DESIGN.EQ { 'Vb=15*Qts^2.87*Vas' 'Fb=(Vas/Vb)^.32*Fs'
'F3dB=\v/(Vas/Vb)*Fs' 'dBPEAK=20*LOG(2.6*Qts*(Vas/Vb)^.35)'
'\Gno=10^((SPL-112)/10)' 'Sd=\pi*(DIA*.83)^2/4' 'Vd=Sd*xmax'
'Par=(3_kg*s/m^4)*F3dB^4*Vd^2' 'PeakSPL=112_dB+10*LOG(UVAL(UBASE(Par)))'
'Per=Par/\Gno' }
      Vas '10.7_ft^3'
      Qts .33
      Fs '30_Hz'
      SPL '95_dB'
      DIA '18_in'
      xmax '.216_in'
      Vb '6.66208307846_ft^3'
      Fb '34.9115273652_Hz'
      F3dB '38.019650607_Hz'
      dBPEAK '.11016189141_dB'
      Par '2.41349106451_W'
      PeakSPL '115.826456953_dB'
      Per '120.961091001_W'
      \Gno '1.99526231497_Percent'
      Sd '175.303697504_in^2'
      Vd '37.8655986609_in^3'
      dBMAG '-19.8795577277_dB'
      F '20_Hz'
      Mpar Library Data
      PPAR { (0,-10) (200,3) F 0 (0,0) FUNCTION Y }
      EQ RESPONSE
      CST { }
    END
  Percent .01
  CST { CB PORTED }
END
