仕事

所定の周波数にチューニングされ、所定のポイントで押し下げられたストリングの、チューニングのずれたセント数とともに、発音されたノートを決定するプログラムを記述します。

簡単にするために、生成される音の周波数と、押された場所の右側の弦の長さが反比例していると仮定します。

注：このタスクでは、基音のみを扱い、倍音やその他の倍音は扱いません。

入力

プログラムには2つのデータが渡されます。

• 問題の文字列を表す、任意の長さの文字列。このストリングは、ストリングが押されるべきXでマークされます。

  [-----] is a string divided in six sections (five divisions).
  [--X--] is a string pressed at the exact center of the string.
  [X----] is a string pressed at 1/6 the length of the string. (Length used is 5/6)
  [-X--] is a string pressed at 2/5 of the length of the string. (Length used is 3/5)
  

  文字列のの右側の部分を使用して音が鳴ると仮定しXます。

• 数値（必ずしも整数ではない）。文字列がチューニングされる頻度を示します。この数値の精度は、小数点以下最大4桁です。

渡された周波数が間にあるだろうと仮定することができる10 Hzと40000 Hz。

入力は任意の形式で渡すことができます。回答には、プログラムへの入力の受け入れ方法を指定してください。

出力

プログラムは、12トーンの平均律チューニングシステムで最も近い音符*と、弦で示される音が最も近い音符から離れたセントの数（最も近いセントに丸められる）の両方を出力する必要があります。

+nセントはn、ノートがシャープ/上にある-nセント、およびフラットがノートの下にある場合に使用します。

メモは科学的なピッチ表記で出力されます。A4がに調整されて440Hzいると仮定します。フラット/シャープなノートにはbと＃を使用します。注：シャープまたはフラットのいずれかを使用できます。のメモは466.16Hz、A#またはのいずれかBbで出力されます。

出力に以前に指定された2つの情報のみが含まれている限り、出力の形式は自由です（つまり、可能なすべての出力を印刷することはできません）。

*最も近い音とは、入力によって示される音に最も近い音を指し、セント単位で測定されます（したがって、50 cents音の中にある音）。サウンドが50 cents2つの異なるノートから離れている場合（丸め後）、2つのノートのどちらかが出力される可能性があります。

例

プログラムは、以下の例だけでなく、すべてのケースで機能するはずです。

Output             Input Frequency   Input String
A4,  +0  cents     220               [-----X-----]
A5,  +0  cents     220               [--------X--]
D5,  -2  cents     440               [--X--------]
B4,  -49 cents     440               [X----------]
A#4, +19 cents*    314.1592          [X-]
Eb9, +8  cents*    400               [-----------------------X]
Eb11,+8  cents*    100               [--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------X]
D#1, +49 cents*    10                [--X]
A0,  -11 cents     11.7103           [---X--]

*シャープまたはフラットのどちらかが出力された可能性があります。

役立つ可能性のあるリンク

• 注意事項と頻度
• 科学的ピッチ表記法に関するウィキペディアのページ
• セントのウィキペディアのページ

これはコードゴルフなので、最も短い答えが優先されます。

BBCベーシック、161＃

  REM get frequency and string. Store length of string in n for later.
  INPUT f,s$
  n=LEN(s$)

  REM store floating-point value of note in semitones above (C0-0.5). Store integer value in n% (offset effectively means it will be rounded not truncated.)
  n=LN(f*(n-1)/(n-INSTR(s$,"X"))/15.8861)/LN(2)*12
  n%=n

  REM format printing to whole numbers only
  @%=2^17

  REM Output note name and octave. Output cents (discrepancy between n and n%, minus the offset of 0.5)
  PRINT MID$("C C#D D#E F F#G G#A A#B ",n%MOD12*2+1,2);INT(n/12)'(n-0.5-n%)*100'

スコアはコメントを除外します。まだゴルフをしていません。

出力

2つの長いものを除くすべてのテストケースで正しく実行されます。以下のためEb9には、テストケースから抜けて1つのダッシュがあるようです：22あります-し、1 X24等分に文字列を分割し、。私の手動計算によると、これは9600Hzで、D9を37セント上回っています。これはまさに私のプログラムが出力するものです。別のダッシュを追加すると、Eb9 + 8セントになります。残念ながら、BBC Basicは255文字を超える文字列を処理できないため、Eb11大文字と小文字はエラーになります。

C、179

main(n,d){float f;scanf("%*[^X]%nX%*[-]%n]%f",&n,&d,&f);f=log(f*d/(d-n))*17.3123-57.376;n=d=f+.5;n=n%12*7+784;printf("%c%d%c,%+2.0f cents\n",n/12,(d+9)/12,n%12/7*3+32,(f-d)*100);}

単独でライン上のアスキー画像を受け取り、別のラインで周波数を受け取ります。

マジックナンバー17.3123との精度を下げることで、いくつかのキャラクターを落とすことができます57.376。

ゴルフをしなければ、プログラムは次のようになります。

main(n,d)
{
    float f; // 'float' and '%f' better than 'double' and '%lf'

    scanf("%*[^X]%nX%*[-]%n]%f", &n, &d, &f);
    // n is the number of chars before 'X'
    // d is the number of chars before ']'
    // f is the frequency

    // Calculate the tuned frequency
    f = f * d / (d - n);

    // Convert the frequency to logarithmic scale, relative to pitch A0
    f=log(f)*17.3123-57.376;
    // alternatively: f = log2(f / (440 / 16)) * 12;

    // Round to nearest integer
    n=d=f+.5;

    // Calculate the note name ('A', 'B', etc), multipled by 12 for convenience
    n=n%12*7+784;

    printf("%c%d%c,%+2.0f cents\n", // output example: B4 ,-49 cents
        n/12,        // note name
        (d+9)/12,    // octave number
        n%12/7*3+32, // if n%12 is large enough, it's '#' else ' ' (natural)
        (f-d)*100);  // number of cents; stdio rounds it to integer
}

JavaScript（199）

たとえば、 t('[X-]',314.1592)

t=(s,f)=>{l=s.length-1;p='C C# D D# E F F# G G# A B H'.split(' ');n=12*Math.log2(f*l/(l-s.indexOf('X'))/16.3515978);m=n+.5|0;return p[m%12]+(n/12|0)+' '+((n-m)*100+.5|0)}

修繕。（私はヨーロッパに住んでいるので、B =の代わりにBとHの代わりにBを使用しました）

Python 3：175

import math
def t(b,s):l=len(s)-1;n=12*math.log2(b*l/(l-s.index("X"))/16.35);m=round(n);return"%s%s%+d"%(("C C# D D# E F F# G G# A A# B".split()*99)[m],m//12,round(100*(n-m)))

非ゴルフ：

import math

c0 = 16.35

def tuning (base_frequency, string):
    return formatted (note_number (frequency (base_frequency, string)))

def formatted (note_number):
    return "{name}{octave:d}{cents:+d}".format (name=note_name (note_number),
                             octave=octave (note_number),
                             cents=cents_out (note_number))

def note_name (note_number):
    return ("C C# D D# E F F# G G# A A# B".split() * 99)[round (note_number)]

def note_number (frequency):
    return 12 * math.log2 (frequency / c0)

def octave (note_number):
    return round (note_number) // 12

def cents_out (note_number):
    return round (100 * (note_number - round (note_number)))

def frequency (base_frequency, string):
    string_length = len (string) - 1
    held_length = string_length - string.index ("X")
    return base_frequency * string_length / held_length

if "__main__" == __name__:

    print ("Testing functions against known values...")
    assert "A4+0"     == tuning (220,      "[-----X-----]")
    assert "A5+0"     == tuning (220,      "[--------X--]")
    assert "D5-2"     == tuning (440,      "[--X--------]")
    assert "B4-49"    == tuning (440,      "[X----------]")
    assert "A#4+19"   == tuning (314.1592, "[X-]")
    assert "D#9+8"    == tuning (400,      "[-----------------------X]")
    assert "D#11+8"   == tuning (100,      "[--------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------X]")
    assert "D#1+49"   == tuning (10,       "[--X]")
    assert "A0-11"    == tuning (11.7103,  "[---X--]")
    print ("Tests passed.")