Звучит неплохо, не правда ли?

Можно бесконечно подбирать этот коэффициент и найти среднее между красивым звучанием и длительностью, но лучше сразу перейти к Расширенному алгоритму Карплуса-Стронга.

Немного о Z-преобразовании

Пусть $\$inline\$x\$inline\$$ – массив входных значений, а $\$inline\$y\$inline\$$ – массив выходных значений. Каждый элемент массива y выражается следующей формулой:

$\$\$display\$\$y(n)=x(n)+x(n-1).\$\$display\$\$$

Если индекс выходит за пределы массива, то значение равно 0. То есть $\$inline\$x(0-1)=0\$inline\$$. (Посмотрите прошлый код, там это неявно использовалось).

Эту формулу можно записать в соответствующем Z-преобразовании:

$\$\$display\$\$H(z)=1+z^\{-1\}.\$\$display\$\$$

Если формула такая:

$\$\$display\$\$y(n)=x(n)+x(n-1)-y(n-1).\$\$display\$\$$

То есть каждый элемент входного массива зависит от прошлого элемента этого же массива (кроме нулевого элемента, конечно). То соответствующее Z-преобразование выглядит так:

$\$\$display\$\$H(z)=\backslash frac\{1+z^\{-1\}\}\{1+z^\{-1\}\}.\$\$display\$\$$

Обратный процесс: из Z-преобразования получить формулу для каждого элемента. Например,

$\$\$display\$\$H(z)=\backslash frac\{1+z^\{-1\}\}\{1-z^\{-1\}\}.\$\$display\$\$$

$\$\$display\$\$H(z)=\backslash frac\{Y(z)\}\{X(z)\}\; =\backslash frac\{1+z^\{-1\}\}\{1-z^\{-1\}\}.\; \$\$display\$\$$

$\$\$display\$\$Y(z)*(1-z^\{-1\}\; )=X(z)*(1+z^\{-1\}\; ).\; \$\$display\$\$$

$\$\$display\$\$Y(z)*1-Y(z)*z^\{-1\}=\; X(z)*1+X(z)*z^\{-1\}.\$\$display\$\$$

$\$\$display\$\$y(n)-y(n-1)=x(n)+x(n-1).\; \$\$display\$\$$

$\$\$display\$\$y(n)=x(n)+x(n-1)+y(n-1).\$\$display\$\$$

Если кто-то не понял, то формула такая: $\$inline\$Y(z)*\alpha *z^\{-k\}=\alpha *y(n-k)\$inline\$$, где $\$inline\$\alpha \$inline\$$ – любое действительное число.

Если надо умножить два Z-преобразования друг на друга, то $\$inline\$z^\{-a\}*z^\{-b\}=z^\{-a-b\}.\$inline\$$

Расширенный алгоритм Карплуса-Стронга

Иллюстрация взята с этого сайта.

Вот быстрое описание каждой функции.

Часть I. Функции, преобразующие начальный шум

1) Pick-direction lowpass filter (Фильтр низких частот) $\$inline\$H\_p\; (z)\$inline\$$.

$\$\$display\$\$H\_p\; (z)=\backslash frac\{1-p\}\{1-pz^\{-1\}\},p\; \in \; [0,1).\$\$display\$\$$

Соответствующая формула:

$\$\$display\$\$y(n)=(1-p)x(n)+py(n-1).\$\$display\$\$$

Код:

buffer = np.zeros_like(noise)
buffer[0] = (1 - p) * noise[0]
for i in range(1, N):
    buffer[i] = (1-p)*noise[i] + p*buffer[i-1]
noise = buffer

Необходимо всегда создавать еще один массив ради избежание ошибок. Может, здесь его можно было и не использовать, но в следующей фильтре без него не обойтись.

2) Pick-position comb filter (Гребенчатый фильтр) $\$inline\$H\_\beta \; (z)\$inline\$$.

$\$\$display\$\$H\_\beta \; (z)=1-z^\{-int(\beta *N+1/2)\},\beta \in (0,1).\$\$display\$\$$

Соответствующая формула:

$\$\$display\$\$y(n)=x(n)-x(n-int(\beta *N+1/2)).\$\$display\$\$$

Код:

pick = int(beta*N+1/2)
if pick == 0:
    pick = N   # То есть фильтр не будет действовать
buffer = np.zeros_like(noise)
for i in range(N):
    if i-pick < 0:
        buffer[i] = noise[i]
    else:
        buffer[i] = noise[i]-noise[i-pick]
noise = buffer

В первом абзаце на странице 13 этого документа написано следующее (не дословно, но с сохранением смысла): коэффициент β имитирует расположение щипка струны. Если $\$inline\$\beta =1/2\$inline\$$, то это значит, что щипок произвели на середине струны. Если $\$inline\$\beta =1/10\$inline\$$ — щипок произвели на одной десятой части струны от моста.

Часть II. Функции, относящиеся к основной части алгоритма

Тут есть ловушка, которую нам придется обойти. Вот, например, String-dampling filter $\$inline\$H\_d\; (z)\$inline\$$ записывается так: $\$inline\$H\_d\; (z)=(1-S)+Sz^\{-1\}\$inline\$$. Но по рисунку видно, что он берет значение от туда, куда и отдает. То есть получается, что входной и выходной сигналы для этого фильтра это одно и то же. Это означает, что каждый фильтр нельзя применить отдельно, как в прошлой части, надо все фильтры применять одновременно. Это можно сделать, например, найдя произведение каждого фильтра. Но этот подход не рационален: при добавлении или изменении фильтра, придется все снова умножать. Это сделать возможно, но в этом нет смысла. Хотелось бы в один клик менять фильтр, а не умножать все снова и снова.
Так как выходной сигнал от фильтра считается входным для другого фильтра, то я предлагаю написать каждый фильтр отдельной функцией, вызывающей внутри себя функцию прошлого фильтра.
Думаю, на примере кода будет понятно, что я имею в виду.
1) Delay Line filter $\$inline\$z^\{-N\}.\; \$inline\$$

$\$\$display\$\$H(z)=z^\{-N\}.\$\$display\$\$$

Соответствующая формула:

$\$\$display\$\$y(n)=x(n-N).\$\$display\$\$$

Код:

# Неявно использутся тот факт, что на конце массива samples значение 0.
# То есть при n-N<0 значение будет 0, как и должно быть.
def DelayLine(n):
    return samples[n-N]

2) String-dampling filter $\$inline\$H\_d\; (z)\$inline\$$.

$\$\$display\$\$H\_d\; (z)=(1-S)+Sz^\{-1\},S\in [0,1].\; \$\$display\$\$$

В оригинальном алгоритме $\$inline\$S=0.5.\$inline\$$
Соответствующая формула:

$\$\$display\$\$y(n)=(1-S)x(n)+Sx(n-1).\$\$display\$\$$

Код:

# String-dampling filter.
# H(z) = 0.996*((1-S)+S*z^(-1)). В оригинальном алгоритме S = 0.5. S ∈ [0, 1]
# y(n)=0.996*((1-S)*x(n)+S*x(n-1))
def StringDampling_filter(n):
    return 0.996*((1-S)*DelayLine(n)+S*DelayLine(n-1))

В данном случае этот фильтр является One Zero String-dampling filter. Существуют и другие варианты, про них можно почитать здесь.

3) String-stiffness allpass filter $\$inline\$H\_s\; (z)\$inline\$$.
Сколько бы я не искал, увы, я не смог найти чего-то конкретного. Здесь этот фильтр написан в общем виде. Но это ничего не дает, так как самая сложная часть – это найти подходящие коэффициенты. Еще что-то есть в этом документе на 14 странице, но мне не хватает математической базы, чтобы понять, что там происходит и как это использовать. Если кто-то сможет – дайте знать.

4) First-order string-tuning allpass filter $\$inline\$H\_\rho \; (z)\$inline\$$.
Страница 6, слева внизу в этом документе:

$\$\$display\$\$H\_\rho \; (z)=\backslash frac\{C+z^\{-1\}\}\{1+Cz^\{-1\}\},C\in (-1,1).\$\$display\$\$$

Соответствующая формула:

$\$\$display\$\$y(n)=Cx(n)+x(n-1)-Cy(n-1).\$\$display\$\$$

Код:

# First-order string-tuning allpass filter
# H(z) = (C+z^(-1))/(1+C*z^(-1)). C ∈ (-1, 1)
# y(n) = C*x(n)+x(n-1)-C*y(n-1)
def FirstOrder_stringTuning_allpass_filter(n):
    # Тут следовало использовать буфер и хранить прошлые значение, но это не нужно, так как
    # неявно используется тот факт, что прошлое значение уже сохранено и записано в массив samples.
    return C*(StringDampling_filter(n)-samples[n-1])+StringDampling_filter(n-1)

Нужно помнить, что если вы после этого фильтра добавите еще фильтры, то придется хранить прошлое значение, ибо оно уже не будет хранится в массиве samples.
Так как длина начального шума выражается целым числом, мы выбрасываем дробную часть при подсчете. Это вызывает ошибки и неточности. К примеру, если частота дискретизации равна 44100, а длина шума 133 и 134, то соответствующие значения частоты сигнала равны 331,57 Гц и 329,10 Гц. А частота ноты ми первой октавы (первая открытая струна) 329.63 Гц. Тут разница в десятых, но, например, для 15 лада, разница уже может быть в несколько Гц. Для уменьшения этой ошибки и существует этот фильтр. Его можно не использовать, если частота дискретизации большая (реально большая: несколько сотен тысяц Гц, а то больше) или основная частота мала, как, например, для басовых струн.
Cуществуют и другие вариации, прочитать про них можно все там же.

5) Используем наши функции.

def Modeling(n):
    return FirstOrder_stringTuning_allpass_filter(n)
 
for i in range(N, len(samples)):
    samples[i] = Modeling(i)

Часть III. Dynamic Level Lowpass Filter $\$inline\$H\_L\; (z).\$inline\$$

$\$inline\$\backslash check\{\omega \}=\omega \backslash frac\{T\}\{2\}=2\pi f\backslash frac\{T\}\{2\}=\pi \backslash frac\{f\}\{F\_s\}\$inline\$$, где $\$inline\$f\$inline\$$ – основная частота, $\$inline\$F\_s\; \$inline\$$– частота дискретизации.
Сначала мы находим массив $\$inline\$y\$inline\$$ следующей формулой:

$\$\$display\$\$H(z)=\backslash frac\{\backslash check\{\omega \}\}\{1+\backslash check\{\omega \}\}\backslash frac\{1+z^\{-1\}\}\{1-\backslash frac\{1-\backslash check\{\omega \}\}\{1+\backslash check\{\omega \}\}\; z^\{-1\}\}\$\$display\$\$$

Соответствующая формула:

$\$\$display\$\$y(n)=\backslash frac\{\backslash check\{\omega \}\}\{1+\backslash check\{\omega \}\}(x(n)+x(n-1))+\backslash frac\{1-\backslash check\{\omega \}\}\{1+\backslash check\{\omega \}\}y(n-1)\$\$display\$\$$

После применяем следующую формулу:

$\$\$display\$\$x(n)=L^\{\backslash frac\{4\}\{3\}\}x(n)+(1-L)y(n),L\in (0,1)\$\$display\$\$$

Код:

# Dynamic-level lowpass filter. L ∈ (0, 1/3)
w_tilde = np.pi*frequency/sample_rate
buffer = np.zeros_like(samples)
buffer[0] = w_tilde/(1+w_tilde)*samples[0]
for i in range(1, len(samples)):
    buffer[i] = w_tilde/(1+w_tilde)*(samples[i]+samples[i-1])+(1-w_tilde)/(1+w_tilde)*buffer[i-1]
samples = (L**(4/3)*samples)+(1.0-L)*buffer

Параметр L влияет на значение уменьшение громкости. При его значениях равных 0.001, 0.01, 0.1, 0.32 громкость сигнала уменьшается на 60, 40, 20 и 10 дБ соответственно.

Оформим все как функцию. Собственно, вот и весь код.

import numpy as np
import scipy.io.wavfile as wave
 
 
def GuitarString(frequency, duration=1., sample_rate=44100, p=0.9, beta=0.1, S=0.5, C=0.1, L=0.1, toType=False):
    N = int(sample_rate/frequency)            # Длина шума в сэмплах
 
    noise = np.random.uniform(-1, 1, N)   # Создаем шум
 
    # Pick-direction lowpass filter (Фильтр низких частот).
    # H(z) = (1-p)/(1-p*z^(-1)). p ∈ [0, 1)
    # y(n) = (1-p)*x(n)+p*y(n-1)
    buffer = np.zeros_like(noise)
    buffer[0] = (1 - p) * noise[0]
    for i in range(1, N):
        buffer[i] = (1-p)*noise[i] + p*buffer[i-1]
    noise = buffer
 
    # Pick-position comb filter (Гребенчатый фильтр).
    # H(z) = 1-z^(-int(beta*N+1/2)). beta ∈ (0, 1)
    # y(n) = x(n)-x(n-int(beta*N+1/2))
    pick = int(beta*N+1/2)
    if pick == 0:
        pick = N   # То есть фильтр не будет действовать
    buffer = np.zeros_like(noise)
    for i in range(N):
        if i-pick < 0:
            buffer[i] = noise[i]
        else:
            buffer[i] = noise[i]-noise[i-pick]
    noise = buffer
 
    # Добавляем шум в начале.
    samples = np.zeros(int(sample_rate*duration))
    for i in range(N):
        samples[i] = noise[i]
 
    # Неявно использутся тот факт, что на конце массива samples значение 0.
    # То есть при n-N<0 значение будет 0, как и должно быть.
    def DelayLine(n):
        return samples[n-N]
 
    # String-dampling filter.
    # H(z) = 0.996*((1-S)+S*z^(-1)). В оригинальном алгоритме S = 0.5. S ∈ [0, 1]
    # y(n)=0.996*((1-S)*x(n)+S*x(n-1))
    def StringDampling_filter(n):
        return 0.996*((1-S)*DelayLine(n)+S*DelayLine(n-1))
 
    # First-order string-tuning allpass filter
    # H(z) = (C+z^(-1))/(1+C*z^(-1)). C ∈ (-1, 1)
    # y(n) = C*x(n)+x(n-1)-C*y(n-1)
    def FirstOrder_stringTuning_allpass_filter(n):
        # Тут следовало использовать буфер и хранить прошлые значение, но это не нужно, так как
        # неявно используется тот факт, что прошлое значение уже сохранено и записано в массив samples.
        return C*(StringDampling_filter(n)-samples[n-1])+StringDampling_filter(n-1)
 
    def Modeling(n):
        return FirstOrder_stringTuning_allpass_filter(n)
 
    for i in range(N, len(samples)):
        samples[i] = Modeling(i)
 
    # Dynamic-level lowpass filter. L ∈ (0, 1/3)
    w_tilde = np.pi*frequency/sample_rate
    buffer = np.zeros_like(samples)
    buffer[0] = w_tilde/(1+w_tilde)*samples[0]
    for i in range(1, len(samples)):
        buffer[i] = w_tilde/(1+w_tilde)*(samples[i]+samples[i-1])+(1-w_tilde)/(1+w_tilde)*buffer[i-1]
    samples = (L**(4/3)*samples)+(1.0-L)*buffer
 
    if toType:
        samples = samples/np.max(np.abs(samples))   # Нормируем от -1 до 1
        return np.int16(samples*32767)              # Переводим в тип данных int16
    else:
        return samples
 
 
frequency = 82.51
sound = GuitarString(frequency, duration=4, toType=True)
wave.write("SoundGuitarString.wav", 44100, sound)

Открытая шестая струна (82.41 Гц) звучит так: