p PROGRAM NAME "ACOUSTICALC" PROGRAM AUTHOR RICHARD E. SWEENY COPYRIGHT DECEMBER 1, 1986 RICHARD E. SWEENY VERSION 1.0+ THIS PROGRAM CALCULATES AND PRINTS THE FIRST FIVE RESONANT FREQUENCIES{ OF THE AXIAL, TANGENT, AND OBLIQUE DIMENSIONS OF A RECORDING STUDIO ROOM. TBL(,) :  ,: X (: ();: X X : X,: ();:)(): X  ,: X (: ();: X0 ,: X : ();: X^ X : X,: ();5)(): X ,: X : ();: X ,: X : ();: X X : X,: ();0)(): X ,: X : ();: X ,&: " ""  ,5: " "B  ,: " ":  ,0: " "T ,: " "  ,#: "CYBERLAB"  X : X!" ): X : ();: X# );();"A C O U S T I C A L C";()$ ): X : ();: X0( ,$: "VER. 1.0"g-  ,: "(C) COPYRIGHT 1986 RICHARD E. SWEENY"/ ,: "YOU WILL BE ASKED FOR THE DIMENSIONS OF THE ROOM YOU WISH TO ANALYSE."1 )"ROOMS WITH CURVED OR SLANTED WALLS WILL NOT FIT THIS MODELLING METHOD."62 )"THE ROOM MUST BE RECTANGULAR.@Y::fZ )"PRESS ANY KEY TO CONTINUE"w[ "" [d ****************************e INPUT DIMENSIONS OF THE ROOMf ****************************nx "HEIGHT IN METERS"y "WIDTH IN METERS"0z "LENGTH IN METERS"?} ,: MN~ ,: N] ,: Os "WIDTH IN FEET" "LENGTH IN FEET"H$(MQ)W$(NQ)L$(OQ)HH(H$)WW(W$)LL(L$)VOL HHWWLL# HH WW LL : dL **********************************u COMPUTATION AND TABLE LOADING LOOP **********************************:: ,: "CALCULATING NOW. PLEASE STAND BY."X H   W   L  * A(L)(LL)B B(W)(WW)Z  C(H)(HH)k  DABC|  E(D)  FE5 TBL(X,)L:TBL(X,)W:TBL(X,)H:TBL(X,)F XX L W$ H *************** SORT SUBROUTINE1 ***************7h:  ,: "SORTING NOW. PLEASE STAND BY."pXySW Y   TBL(Y,)TBL(Y,) SW TBL(Y,),TBL(Y,): TBL(Y,),TBL(Y,) TBL(Y,),TBL(Y,): TBL(Y,),TBL(Y,) Y&XX6  ,7: XG SW ^ *****************u PRINT SUBROUTINE ***************** :: ,: "READY TO PRINT! MAKE SURE YOUR PRINTER IS READY."  LINES  Y |, TBL(Y,) TBL(Y,) TBL(Y,)  g TBL(Y,) TBL(Y,) TBL(Y,)  :   TBL(Y,) TBL(Y,) TBL(Y,)  :   TBL(Y,) TBL(Y,) TBL(Y,)  :   TBL(Y,) TBL(Y,) TBL(Y,)  :  S TBL(Y,) TBL(Y,) TBL(Y,)  :   TBL(Y,) TBL(Y,) TBL(Y,)  :     LINES LINES  LINES 4 LINES : ( ):  Y ( ) , : "RUN THE PROGRAM AGAIN ( Y or N)";Q$L Q$ "Y" Q$ "y" dS Y  )TBL(Y,); )TBL(Y,);)TBL(Y,);)TBL(Y,): )TBL(Y,); )TBL(Y,);)TBL(Y,);()TBL(Y,): )TBL(Y,); )TBL(Y,);)TBL(Y,);7)TBL(Y,):)  ******************B  HEADING SUBROUTINE[  ******************r : $)"CYBERLAB"   )"ACOUSTIC ANALYSIS":  "STATISTICS:";)"LENGTH=";M;)"WIDTH=";N;()"HEIGHT=";O;5)"VOLUME=";(VOLB );"Cubic Meters"!L! )"L"; )"W";)"H";)"AXIAL";))"TANGENTIAL";8)"OBLIQUE"R!X!k! PRINT NOTICE~! ************!! "ACOUSTICALC IS DISTRIBUTED UNDER THE 'SHAREWARE' CONCEPT. IF YOU USE THIS")" "PROGRAM AND FIND IT OF VALUE, PLEASE REGISTER YOUR COPY BY SENDING $15 TO"F" "THE ADDRESS BELOW.":" "UNREGISTERED USERS WHO HAVE A QUESTION ABOUT THE SOFTWARE PACKAGE WILL NOT"" "BE ABLE TO RECEIVE HELP FROM CYBERLAB. ""!# "YOU ARE ALLOWED TO COPY AND DISTRIBUTE THIS PROGRAM AS LONG AS NO FEE IS"># "CHARGED FOR DOING SO.#: "PLEASE MENTION THE VERSION NUMBER WHEN REGISTERING. IF A NEW VERSION IS"# "AVAILABLE, IT WILL BE AVAILABLE AT LOW COST."#"$ "A HELP FILE CALLED `ACOUSTIC.HLP' SHOULD BE ON THE SAME DISK WITH ACOUSTICALC."p$ "TO PRINT IT OUT YOU CAN USE THE A WORD PROCESSOR OR THIS DOS COMMAND:"$: " TYPE ACOUSTIC.HLP >PRN"$% "-------------------------------------------------------------------------------"P% " CYBERLAB 2637 EUDORA DENVER, CO 80207 (303)-320-6119% "-------------------------------------------------------------------------------"%