Conference napalm::commusic_v1

    Tuning? You've got me there! My ignorance of musical theory might just
    cause a little embarassment here ... I'm simply looking for:
    
           .
           .
           a: j Hz
           b: k Hz
    middle c: l Hz
           d: m Hz
           e: n Hz
           .
           .
    etc .

  freq = 440 * pow(2, (note_number - 48) / 12)

27.5000 29.1352 30.8677 32.7032 34.6478 36.7081 
38.8909 41.2034 43.6535 46.2493 48.9994 51.9131 
55.0000 58.2705 61.7354 65.4064 69.2957 73.4162 
77.7817 82.4069 87.3071 92.4986 97.9989 103.8262 
110.0000 116.5409 123.4708 130.8128 138.5913 146.8324 
155.5635 164.8138 174.6141 184.9972 195.9977 207.6523 
220.0000 233.0819 246.9417 261.6256 277.1826 293.6648 
311.1270 329.6276 349.2282 369.9944 391.9954 415.3047 
440.0000 466.1638 493.8833 523.2511 554.3653 587.3295 
622.2540 659.2551 698.4565 739.9888 783.9909 830.6094 
880.0000 932.3275 987.7666 1046.5023 1108.7305 1174.6591 
1244.5079 1318.5102 1396.9129 1479.9777 1567.9817 1661.2188 
1760.0000 1864.6550 1975.5332 2093.0045 2217.4610 2349.3181 
2489.0159 2637.0205 2793.8259 2959.9554 3135.9635 3322.4376 
3520.0000 3729.3101 3951.0664 4186.0090 4434.9221 4698.6363 
4978.0317 5274.0409 5587.6517 5919.9108 6271.9270 6644.8752 
7040.0000 7458.6202 7902.1328 8372.0181 8869.8442 9397.2726 
9956.0635 10548.0818 11175.3034 11839.8215 12543.8540 13289.7503 
14080.0000 14917.2404 15804.2656 16744.0362 17739.6884 18794.5451 
19912.1270 21096.1636 22350.6068 23679.6431 25087.7079 26579.5006 
    

    Forgot to mention, A4 (I think it's 4) is 440.0 for "standard" tuning.
    I believe there is another tuning (European?) that's a little different
    maybe based on A4=442.?
    
    Also, this is equal tempered - there are other tunings as well.

#module SCALE "V1.0"

/*
**++
**  FACILITY:  Scale
**
**  MODULE DESCRIPTION:
**
**      Computer and prints out a musical scale to an A 440.0 reference.
**
**  AUTHORS:
**
**      Thomas E. Janzen
**
**  CREATION DATE:  23 May 1991
**
**  DESIGN ISSUES:
**
**      Help Rania play diagnostic music
**
**  MODIFICATION HISTORY:
**
**      First version
**--
*/


/*
**
**  INCLUDE FILES
**
*/

#include <stdlib.h>
#include <stdio.h>
#include <math.h>
#include <string.h>

/*
**
**  MACRO DEFINITIONS
**
*/

#define TWELFTH_ROOT_OF_2 pow (2.0, (1.0 / 12.0))
#define LOW_C	(440.0 * pow (2.0, -(9.0 / 12.0))) / 16
#define SHARP	'#'
#define OCTAVE_LENGTH 12
#define STRING_LEN 8
#define OCTAVE_QTY 9
#define PITCHES_PER_LINE 4

main ()
{
    auto unsigned int	Octave_Index,
			Pitch_Index;
    auto double Frequency;
    auto char Pitch_Name_Strings[OCTAVE_LENGTH][STRING_LEN] =
	{"C ","C#","D ","D#","E ","F ","F#","G ","G#","A ","A#","B "};

    for (Octave_Index = 0; Octave_Index < OCTAVE_QTY;  Octave_Index++)
    {
    	for (Pitch_Index = 0;  Pitch_Index < OCTAVE_LENGTH;  Pitch_Index++)
	{
	    Frequency = LOW_C * (
		pow (	TWELFTH_ROOT_OF_2, 
			(Octave_Index * OCTAVE_LENGTH ) + Pitch_Index));
	    if ((Pitch_Index % PITCHES_PER_LINE) == 0)
	    {
		printf ("\n");
	    }
	    if ((Octave_Index == 4) && (Pitch_Index == 0))
	    {
		printf ("MIDDLE C:\n");
	    }
	    printf ("%2s%1d : %4.3f;\t",
		    Pitch_Name_Strings[Pitch_Index], Octave_Index, Frequency);
	}
    }

    exit (0);
}

C 0 : 16.352;	C#0 : 17.324;	D 0 : 18.354;	D#0 : 19.445;	
E 0 : 20.602;	F 0 : 21.827;	F#0 : 23.125;	G 0 : 24.500;	
G#0 : 25.957;	A 0 : 27.500;	A#0 : 29.135;	B 0 : 30.868;	
C 1 : 32.703;	C#1 : 34.648;	D 1 : 36.708;	D#1 : 38.891;	
E 1 : 41.203;	F 1 : 43.654;	F#1 : 46.249;	G 1 : 48.999;	
G#1 : 51.913;	A 1 : 55.000;	A#1 : 58.270;	B 1 : 61.735;	
C 2 : 65.406;	C#2 : 69.296;	D 2 : 73.416;	D#2 : 77.782;	
E 2 : 82.407;	F 2 : 87.307;	F#2 : 92.499;	G 2 : 97.999;	
G#2 : 103.826;	A 2 : 110.000;	A#2 : 116.541;	B 2 : 123.471;	
C 3 : 130.813;	C#3 : 138.591;	D 3 : 146.832;	D#3 : 155.563;	
E 3 : 164.814;	F 3 : 174.614;	F#3 : 184.997;	G 3 : 195.998;	
G#3 : 207.652;	A 3 : 220.000;	A#3 : 233.082;	B 3 : 246.942;	
MIDDLE C:
C 4 : 261.626;	C#4 : 277.183;	D 4 : 293.665;	D#4 : 311.127;	
E 4 : 329.628;	F 4 : 349.228;	F#4 : 369.994;	G 4 : 391.995;	
G#4 : 415.305;	A 4 : 440.000;	A#4 : 466.164;	B 4 : 493.883;	
C 5 : 523.251;	C#5 : 554.365;	D 5 : 587.330;	D#5 : 622.254;	
E 5 : 659.255;	F 5 : 698.456;	F#5 : 739.989;	G 5 : 783.991;	
G#5 : 830.609;	A 5 : 880.000;	A#5 : 932.328;	B 5 : 987.767;	
C 6 : 1046.502;	C#6 : 1108.731;	D 6 : 1174.659;	D#6 : 1244.508;	
E 6 : 1318.510;	F 6 : 1396.913;	F#6 : 1479.978;	G 6 : 1567.982;	
G#6 : 1661.219;	A 6 : 1760.000;	A#6 : 1864.655;	B 6 : 1975.533;	
C 7 : 2093.005;	C#7 : 2217.461;	D 7 : 2349.318;	D#7 : 2489.016;	
E 7 : 2637.020;	F 7 : 2793.826;	F#7 : 2959.955;	G 7 : 3135.963;	
G#7 : 3322.438;	A 7 : 3520.000;	A#7 : 3729.310;	B 7 : 3951.066;	
C 8 : 4186.009;	C#8 : 4434.922;	D 8 : 4698.636;	D#8 : 4978.032;	
E 8 : 5274.041;	F 8 : 5587.652;	F#8 : 5919.911;	G 8 : 6271.927;	
G#8 : 6644.875;	A 8 : 7040.000;	A#8 : 7458.620;	B 8 : 7902.133;	

    GOSH! What a response - and in such short a time! Thanks a lot to
    all contributors. 
    
    Yours delighted
    
    Tayo

    Tayo,
    
    You realize, of course, that we in Commusic now have to charge for our
    time participating here.  So, what's your cost center?  ;^) ;^) ;^)
    
    Steve