C-FOCAL,1969

01.10 SET PI=3.1415927
01.20 TYPE !"   MECHANICAL PROPERTIES OF LOUDSPEAKERS"!
01.30 SET V1=11.2*8.65*22.5
01.40 TYPE !"THE VOLUME OF OUR TEST BOX IS "V1," CU.IN."!
01.50 SET V1=V1*.0254^3 ; DO 4
01.70 ASK SS,D1,X0,X1,X2,X3,D3,D4,M4,I2,!

02.10 SET Q=X0/(X2-X3)
02.20 SET C4=.0254*(D3-D4)/9.8*M4
02.30 SET B1=9.8*M4/I2
02.40 SET C1=V1*(1.15*((X1/X0)^2)-1)/.14E6
02.50 SET D2=2*FSQT(FSQT(FABS<(C1/C4)>)/PI)/.0254
02.60 SET M3=1/C4*2*PI*X0^2
02.70 SET M2=M3-3.15*((D2/2)^3)*(.0254^3)
02.80 SET V2=.14E6*C1/1.44*.0254^3

03.10 TYPE !%5,SS, %6.02,D2, "   ",B1, %5.04,"    "M2
03.20 TYPE "  "%7.06,C4,%6.02,V2,Q,!
03.30 GOTO 1.7

04.10 T !" MODEL  EFF. CONE    BL PROD.   MASS   COMPLIANCE
04.20 T " OPT. VOL.    Q
04.30 T !"         DIA. IN.    WEB-MT.     KG        M/N
04.40 T "     CU.IN.
*
*    1.00
    8.00
   74.00
   88.00
   76.50
   70.20
    1.1990
    1.1460
    0.2367
    0.6600
    2.0000
    8.0000
   92.0000
  106.0000
  103.0000
   81.0000
    0.3720
    0.2680
    0.5139
    0.6230
    3.0000
   12.0000
   34.2000
   66.0000
   35.8000
   33.0000
    1.5990
    1.4470
    0.5139
    0.6300
    4.0000
   12.0000
   26.0000
   75.0000
   27.4000
   24.8000
    1.7880
    1.5760
    0.5139
    0.9400
    5.0000
   12.0000
   23.0000
   72.5000
   25.6000
   22.4000
    1.8050
    1.5830
    0.5139
    0.6200
    6.0000
   12.0000
   75.0000
  110.0000
   77.2000
   73.5000
    2.4380
    2.4020
    0.5139
    0.8400
    7.0000
   12.0000
   68.5000
  104.0000
   73.0000
   65.0000
    0.5200
    0.4890
    0.2367
    0.4900
@|