[решено] Вычисление формулы с записью в файл.

AZJIO · Отправлено: **17:08, 24-04-2013** | #2

Код:

$a = 440
$sOut = ''
For $n = 0 To 17
    $sOut &= Round($a * 17 ^ ($n / 43), 2) & @LF
Next
MsgBox(0, 'Сообщение', $sOut)

semiono · Отправлено: **16:22, 26-04-2013** | #3

Нельзя ли поправить программу, чтобы получилось следущее

Код:

;...
$file = FileOpen("test.txt", 10)
FileWrite($file,$sOut)
FileClose($file)

файл test.txt:

...
361.08
385.68
411.94
440.00 << базовая частота $a = 440
469.97
501.98
536.16
...

То есть вниз деление, а вверх умножение от выбранной базовой точки..

Хотя, наверное можно высчитать сразу некоторое нижнее значение и от него умножением подняться наверх?
Или есть лучше способ?

Iska · Отправлено: **16:57, 26-04-2013** | #4

semiono, лучше от базовой, в пределах октавы, в обе стороны. Дальше «танцевать» опять от «A», вверх и вниз, заданной умножением/делением базовой.

semiono · Отправлено: **17:48, 26-04-2013** | #5

Готово!

Код:

$a = 440 / 17
$sOut = ''
For $n = 0 To 17 * 5 + 1
    $sOut &= '(' & $n+1 & ') ' & Round($a * 17 ^ ($n / 43), 2) & @LF
Next
$file = FileOpen('17@43.hz',10)
		FileWrite($file,$sOut)
		FileClose($file)

AZJIO · Отправлено: **02:21, 27-04-2013** | #6

А что это ноты что-ли? Почему они с моим вариантам и частотами не сходится? У меня и играют правильно.

Код:

$a = 440
$sOut = ''
For $n = 0 To 17
    $sOut &= _Func($n) & @LF
Next
MsgBox(0, 'Сообщение', $sOut)

Func _Func($iNote, $Octave = 3)
    Return Round(440 * 2 ^ ($iNote / 12 + $Octave + 1 / 6 - 4))
EndFunc

semiono · Отправлено: **13:54, 27-04-2013** | #7

Ничего себе, Тико-тико на скрипте!

У меня это звуковой ряд только, но он "неправильный", идея в том чтобы построить ряд который не основывается на октаве.
Кстати, у меня проблемма в том, что инструменты обычно настраиваются в центах, а не частотах.
То-есть мне нужно будет перевести этот ряд в формат microtuning в центах.
Тут бы калькулятор помог.
Скачал программу Scala 2 http://www.huygens-fokker.org/scala/ но там столько лишнего, ничего не понятно и неудобно.
Но похоже что только в ней можно частоты в центы перевести..

В синтезаторах типа Rob Papen Albino есть множество microtune пресетов, но фишка в том что они все octave-based, а мне хочется новый лад зделать)

Либо в логарифмах сразу посчитать, как записано в TUN файле, но я не соображаю чё-то в логарифмах, теряюсь..

Iska · Отправлено: **17:22, 27-04-2013** | #8

Цитата semiono:

на скрипте! »

На TurboBasic: Файл 86013

.

AZJIO · Отправлено: **18:35, 27-04-2013** | #9

semiono, а воспроизведение на чём будет? MIDI разве поддерживает такие ноты? Там только питч-бэнд использовать.
Вот ссылка там есть DSBeep.au3, который звук (синусоиду) в колонки пускает по частоте.

semiono · Отправлено: **14:51, 28-04-2013** | #10

Цитата AZJIO:

а воспроизведение на чём будет? MIDI разве поддерживает такие ноты? »

Rob Papen Albino, Blue, Linplug SaxLab, Alpha итп. все они поддерживают микротюнинг в формате tun -файлов.
Ещё u-he Zebra, ACE и Cakewalk Z3ta+ поддерживают микротюнинг.

Проблема лишь рассчитать звукоряд в центах, что по идее является логарифмической последовательностью.