%%HP: T(3)A(R)F(.); DIR CB DIR FREQresp ' dBmag=Fresp' POWresp.EQ { 'Pmax=Presp' PEmax } SPLresp.EQ { 'SPLmax=K2+40*LOG(F /Fb)' 'PeakSPL+ Fresp' } 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) ' 'Fmax=(345_m/s)/( \pi*.83*Dia)' 'Amax= IFTE(Qb>INV(\v/2),SQ( Qb)/\v/(SQ(Qb)-.25),1 )' 'Vr=Qr^2-1' 'Qr= 1/Qts/(1/Qb-.1)' ' K1=(4*\pi^3*1.18_kg/m ^3)*Fb^4*Vd^2/345_m /s' 'Par=K1/Amax^2' 'K2=112_dB+10*LOG( UVAL(UBASE(K1)))' ' PeakSPL=SPL+10*LOG( UVAL(UBASE(PEmax))) ' 'Per=Par/\Gno' '\Gno= 10^((SPL-112_dB)/10 )' 'Vd=Sd*xmax' 'Sd =\pi*(Dia*.83)^2/4' } Fresp \<< F Fb / SQ \-> Fr \<< Fr DUP SQ SWAP 1 - SQ Fr Qb INV SQ * + / LOG 10 * \>> \>> Presp \<< F Fb / SQ \-> Fr \<< Fr 1 - SQ Fr Qb INV SQ * + K1 * \Gno / UBASE \>> \>> Vas '10.7_ft^ 3' Qts .33 Fs '30_Hz' PEmax '200_W' SPL '95_dB' Dia '18_in' xmax '.216_in ' Vb ' 2.47875886772_ft^3' Qb .707106781188 Fb ' 69.1737579888_Hz' F3dB ' 69.1737579886_Hz' Fmax ' 289.390925206_Hz' dBpeak '0_dB' Par ' 3.73964138179_W' Per ' 187.42605189_W' \Gno ' 1.99526231497_ Percent' PeakSPL ' 118.010299957_dB' Sd ' 175.303697504_in^2' Vd ' 37.8655986609_in^3' Amax 1 K1 ' 3.73964138179_W' K2 ' 117.728299569_dB' Vr 4.3166764381 Qr 2.30579193296 F '102.5_Hz' dBmag ' -21.586698043_dB' Pmax ' 188.735789983_W' SPLmax ' 96.1718445896_dB' Depth '7.75_ in' Rdia '8.375_ in' Xvol '.15_ft^ 3' Ratio 1.61803398875 EQ FREQresp PPAR { (0,-12) (200,6) F 0 (0,0) FUNCTION Y } EQUALIZER DIR 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 \>> F3dB 16 R 33000 C .000001 n 25 FREQresp 'dBmag=20*LOG(ABS(A (s)))' POWresp ' Pmax=Presp/SQ(ABS(A (s)))' Presp \<< F Fb UBASE UVAL / SQ \-> Fr \<< Fr 1 - SQ Fr Qb INV SQ * + K1 * \Gno / UBASE \>> \>> A \<< \-> s ' 1/(1-k)*(1-k*H1(s)+ m*(\Gw1/s)*H1(s))*H2( s)' \>> H1 \<< \-> s ' (s/\Gw1)^2/((s/\Gw1)^2+ .7654*s/\Gw1+1)' \>> H2 \<< \-> s ' (s/\Gw1)^2/((s/\Gw1)^2+ 1.8478*s/\Gw1+1)' \>> \Gw '2*\pi*F' s 'i*\Gw' \Gw1 '2*\pi* F3dB' \Gwc '2*\pi* Fb/1_Hz' k '1-(\Gw1/ \Gwc)^2' m '\Gw1/(Qb *\Gwc)-.7654' C1 C C2 C C3 C R6 R R10 R F 16 dBmag 22.434400121 Pmax ' 1.07307789402_W' EQ FREQresp PPAR { (0,-6) (100,24) F 0 (0,0) FUNCTION dBmag } CST { CIRCUIT F3dB R C n } END CST { BCALC EQUALIZER } END PORTED DIR FREQresp ' dBmag=Fresp' POWresp.EQ { 'Pmax=Presp' PEmax } SPLresp.EQ { 'SPLmax=Sresp' ' PeakSPL+Fresp' } DESIGN.EQ { ' Vb=20*Qts^3.3*Vas' 'Fb=(Vas/Vb)^.31*Fs ' 'F3dB=(Vas/Vb)^ .44*Fs' 'dBpeak=20* LOG(Qts*(Vas/Vb)^.3 /.4)' 'Fmax=(345_m/ s)/(\pi*.83*Dia)' '\Gno =10^((SPL-112)/10)' 'Sd=\pi*(Dia*.83)^2/4 ' 'Vd=Sd*xmax' 'K1= (4*\pi^3*1.18_kg/m^3) *Fs^4*Vd^2/345_m/s' 'Par=(3_kg*s/m^4)* F3dB^4*Vd^2' 'K2= 112_dB+10*LOG(UVAL( UBASE(K1)))' ' PeakSPL=SPL+10*LOG( UVAL(UBASE(PEmax))) ' 'Per=Par/\Gno' 'Lv= (2362_m^2/s^2)*Dv^2 /(Fb^2*Vb)-.73*Dv' 'Dmin=\v/(Fb*Vd*1_s/m )' } Fresp \<< F Fs / SQ Fb Fs / SQ \-> Fn2 A \<< A Qts / Fb 7 / Fs / + 1 A + Vas Vb / + Fb 7 / Fs / Qts / + Qts INV Fb 7 / Fs / + \-> B C D \<< Fn2 SQ DUP SQ SWAP C Fn2 * - A + SQ D Fn2 * B - SQ Fn2 * + / LOG 10 * \>> \>> \>> Presp \<< F Fs / SQ DUP SQ Fb Fs / SQ DUP 97 * 49 / \-> Fn2 Fn4 A E \<< A Qts / Fb 7 / Fs / + 1 A + Vas Vb / + Fb 7 / Fs / Qts / + Qts INV Fb 7 / Fs / + \-> B C D \<< K1 \Gno / Fn4 E Fn2 * - A SQ + / Fn4 C Fn2 * - A + SQ D Fn2 * B - SQ Fn2 * + * UBASE \>> \>> \>> Sresp \<< F Fs / SQ Fb Fs / SQ DUP 97 * 49 / \-> Fn2 A E \<< Fn2 DUP SQ DUP SQ SWAP ROT E * - A SQ + / LOG 10 * K2 + \>> \>> Vas '10.7_ft^ 3' Qts .33 Fs '30_Hz' PEmax '200_W' SPL '95_dB' Dia '18_in' xmax '.216_in ' Vb ' 5.51454614187_ft^3' Fb ' 36.8436116154_Hz' F3dB ' 40.1592705693_Hz' Fmax ' 289.390925206_Hz' dBpeak ' 5.63229874882E-2_dB ' Par ' 3.00439114363_W' Per ' 150.576248601_W' \Gno ' 1.99526231497_ Percent' PeakSPL ' 118.010299957_dB' Dmin ' 5.95278736648_in' Dv '6_in' Lv ' 5.80912890373_in' Sd ' 175.303697504_in^2' Vd ' 37.8655986609_in^3' K1 ' .132296847403_W' K2 ' 103.215494952_dB' F '50_Hz' dBmag ' -21.2138986833_dB' Pmax ' 29.8704846312_W' SPLmax ' 88.5385240051_dB' Depth '7.75_ in' Rdia '8.375_ in' Xvol '.2_ft^3 ' Ratio 1.61803398875 EQ FREQresp PPAR { (0,-12) (200,6) F 0 (0,0) FUNCTION Y } CST { BCALC } END BCALC \<< BDISP { { "DEPTH" \<< Depth OBJ\-> SWAP DROP \->UNIT 'Depth' STO BDISP \>> } { "RDIA" \<< Rdia OBJ\-> SWAP DROP \->UNIT 'Rdia' STO BDISP \>> } { "XVOL" \<< Xvol OBJ\-> SWAP DROP \->UNIT 'Xvol' STO BDISP \>> } { "GOLD" \<< '(\v/5+1)/2' EVAL 'Ratio' STO BDISP \>> } { "1.25:1" \<< 1.25 'Ratio' STO BDISP \>> } { "CUST" \<< 'Ratio' STO BDISP \>> } } TMENU \>> BDISP \<< .9 Dia * 2 / Rdia 2 / \-> r1 r2 \<< Depth r1 * r1 r2 - / \-> h1 \<< h1 Depth - \-> h2 \<< 'VOL(r1 ,h1)-VOL(r2,h2)' EVAL \-> dvol \<< "Dia:" Dia \->STR DUP SIZE 1 - 2 SWAP SUB + " RDia:" + Rdia \->STR DUP SIZE 1 - 2 SWAP SUB + 1 DISP "Driver depth:" Depth \->STR + 2 DISP "Extra vol:" Xvol \->STR + 3 DISP "Vt:" Vb dvol + Xvol + \->STR + " R:" + Ratio \->STR + 4 DISP Vb Xvol + dvol + 3 XROOT \-> w \<< "Inside H:" w Ratio * \->STR + 5 DISP "Dimen- W:" w \->STR + 6 DISP "sions D:" w Ratio / \->STR + 7 DISP 3 FREEZE \>> \>> \>> \>> \>> \>> VOL \<< \-> r h '\pi/3*r^ 2*h' \>> Percent .01 CST { CB PORTED } END