String Tension Calculation

[Ron Nossaman]

Terry,
Tunermeister Jim Coleman posted these some time back. 

==============================================

Greetings again to Richard and all of the others who have requested 
the Basic program which I offered.  To save me time I am putting it
here as an attachment.  This program runs under Qbasic which comes with
DOS 5.0 and upward.  If you are in DOS and in the directory where you 
saved the above file, you can give the command:

                        qbasic cents2hz.bas

When the program loads there will be an opportunity to see the survival
instructions.  Hit ESC to get to the program listing.  You can read the
simple instructions for running the program, then click on RUN or hold
down the shift key and hit F5.

If you have Win95, I can't help you much, I'm still running win3.1
If you have some other type Basic, I probably can't help you there
either.  I wrote this program on an 8088 IBM machine in the early 80's in
IBMBASIC language. Then I converted it to Qbasic and later to QuickBasic.
After a couple of Hard disk crashes, I don't have all of the previous
versions any longer.

Jim Coleman, Sr.

PS I'll post the other program: Hz2cents.bas later.  My file was corrupted
   when I went to check it out.

Content-Type: TEXT/PLAIN; charset=US-ASCII; name="cents2hz.bas"

Content-ID: <Pine.PCW.3.91.970207113913.5375B@ppp1-10.inre.asu.edu>
Content-Description: 

10 REM "   * * * * THE NAME OF THIS PROGRAM IS CENTS2HZ.BAS * * * *"
15 '                    Written by Jim Coleman, Sr.  1993
20 CLS
25 PRINT "THIS PROGRAM WILL COMPUTE THE BEAT RATE OF A SELECTED INTERVAL WHEN"
26 PRINT "YOU ENTER THE CENTS DEVIATION OF THE UPPER COINCIDENT PARTIAL"
30 PRINT "FIRST LOCATE THE KEYBOARD POSITION OF THE COINCIDENT PARTIALS OF THE"
40 PRINT "INTERVAL IN CONSIDERATION.  ENTER THIS NOTE # WHEN CALLED FOR."
50 PRINT "PLAY THE UPPER NOTE OF THE INTERVAL AND TAKE THE CENTS READING BY"
60 PRINT "USING THE CENTS BUTTONS TO STOP THE DOT PATTERN. ENTER CENTS READING"
70 PRINT "WHEN CALLED FOR IN PROGRAM. THEN PLAY THE LOWER NOTE OF THE INTERVAL"
80 PRINT "AND TAKE THE CENTS READING USING THE CENTS UP OR CENTS DOWN BUTTONS."
90 PRINT "ENTER THIS READING AND THE CENTS AND BEAT TOTALS WILL BE ON SCREEN"
100 REM
110 REM  CLS
120 PRINT
130 PRINT "A-5 IS THE FIRST COINCIDENT PARTIAL OF F3, A3, & D4. IT IS NOTE 61"
140 PRINT
150 INPUT "WHICH NOTE # IS NEAREST YOUR COINCIDENT PARTIALS? "; N: PRINT
160 PRINT
170 INPUT "WHAT IS THE CENTS READING OF THE UPPER NOTE OF YOUR INTERVAL? "; A
180 B = 25.9565563# * 2 ^ (N / 12)
190 X = A / 1200: A8 = 2 ^ X * B: PRINT A8
200 INPUT "WHAT IS THE CENTS READING OF THE LOWER NOTE OF YOUR INTERVAL? "; A3
210 Y = A3 / 1200: A7 = 2 ^ Y: A9 = B / (1 / A7): PRINT A9
220 PRINT "THE CENTS DIFFERENCE IS "; A - A3; "     THE BEAT DIFFERENCE IS
"; A8 - A9 


=========================================

Here is the program written in Qbasic which runs on DOS 5.0 or greater.

It is quite simple and runs just like the other program which I sent
earlier today on Cents2Hz.bas.  So now you can have it both ways.

This program is so short that you could edit it easily to run on 
whatever version you wish.

Jim Coleman, Sr.
Content-Type: TEXT/PLAIN; charset=US-ASCII; name="hz2cents.bas"

Content-ID: <Pine.PCW.3.91.970207134308.5375B@ppp1-15.inre.asu.edu>
Content-Description: 

REM     ************************* HZ2CENTS.BAS ***************************
REM
REM
PRINT "TO COMPUTE THE CENT WIDTH BETWEEN TWO FREQ'S, ENTER AS AN INPUT"
PRINT "THE HIGHER FREQ FIRST, THEN INPUT THE LOWER FREQUENCY, THE RESULTANT"
PRINT "CENTS WIDTH WILL BE PRINTED TO THE SCREEN."
REM
REM
10 INPUT "TYPE IN FIRST FREQUENCY "; A
20 INPUT "TUPE IN SECOND FREQUENCY "; B
30 CENTS = 1200 * (LOG(A / B) / LOG(2))
40 PRINT "CENTS = "; CENTS
END

=================================

Ron N