Модераторы: korob2001, JackYF, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Конвертер частот в ноты 
:(
    Опции темы
semiono
  Дата 23.2.2022, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 45
Регистрация: 28.7.2007

Репутация: нет
Всего: нет



Здравствуйте, помогите написать конвертер частот в ноты + центы.
Я не программист, но если бы был готовый код Perl, подправил бы для своих задач.
Мне нужна программа с выводом результата в файл -> output.txt
Тоесть как-то написал списочек, скажем 10 пунктов и получил другой список.
Либо внутри кода, либо из внешнего файла input.txt.
Смысл в том чтобы избежать рутинной работы, скажем 100 строк вручную.
Есть примерно Python код, но он без центов, хотя бы его в Perl переписать!
Я бы потом say >>TXT добавил, хотя всё сам боюсь не справится.
Ещё есть скрипт html, там всё довольно точно, но он тоже "онлайн".
Пример: A4 plus 17 cents, либо A4 +17, формат частот 440.00
Пожалуйста!

Код


import math
 
def freq_to_note(freq):
    notes = ['A', 'A#', 'B', 'C', 'C#', 'D', 'D#', 'E', 'F', 'F#', 'G', 'G#']
 
    # formula taken from https://en.wikipedia.org/wiki/Piano_key_frequencies
    note_number = 12 * math.log2(freq / 440) + 49  
    note_number = round(note_number)
        
    note = (note_number - 1 ) % len(notes)
    note = notes[note]
    
    octave = (note_number + 8 ) // len(notes)
    
    return note, octave


Можно на Пайтоне, только как центы добавить и вывод списка в файл?
Или к хтмл вывод списка прикрутить как можно? Любые решения!

Это сообщение отредактировал(а) semiono - 23.2.2022, 13:53

Присоединённый файл ( Кол-во скачиваний: 2 )
Присоединённый файл  32960 5,24 Kb
PM MAIL ICQ Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0971 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.