VPF::Журчание воды - Форум программистов

frost

Дата 2.11.2003, 21:07 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 30
Регистрация: 20.10.2003
Где: г. Королёв М.о., м-рн Комитетский лес, д.5, кв.40

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

Это скорее всего не вопрос.

Когда я сидел на голимом бейсике, я попробовал нечто вроде:

Код


while inkey$ = ""
sound 15000 * rnd, 0.01
wend

Было очень похоже на журчание воды, но не вполне. Иногда звук выбивался. Шум водопада называют "белым", а это походило на тонкую струйку.

Кто-нибудь знает, как сгенерировать более правдоподобный звук?

Я хочу, чтобы звук не выбивался, если вы меня понимаете.

Это сообщение отредактировал(а) frost - 2.11.2003, 21:07

val

Дата 3.11.2003, 16:19 (ссылка)

(нет голосов)

Загрузка ...

Program developer

Профиль
Группа: Участник Клуба
Сообщений: 992
Регистрация: 14.1.2003
Где: г. Киев

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

Так тебе нужен метод синтеза "белого шума" или звук журчащей воды?

--------------------

Терпимость - величайшее благо человечества...
Ярчайший признак интеллекта – постоянно хорошее настроение…

podval

Дата 3.11.2003, 20:53 (ссылка)

(нет голосов)

Загрузка ...

Где я? Кто я?

Профиль
Группа: Экс. модератор
Сообщений: 3094
Регистрация: 25.3.2002
Где: СПб

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

Скорее всего имеется в виду все же белый шум или

Цитата

Шум водопада

, как выразился автор. Это не журчание.

oleg1973

Дата 4.11.2003, 01:27 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

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

wavik проиграть

--------------------

SST 465555
icq 200-512-712

podval

Дата 4.11.2003, 10:04 (ссылка)

(нет голосов)

Загрузка ...

Где я? Кто я?

Профиль
Группа: Экс. модератор
Сообщений: 3094
Регистрация: 25.3.2002
Где: СПб

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

Код

 
//(с) Сергей Алейник, по книжке Хэмминга

float  Gauss_value(float Exp, float Sig)
{
  static const float  Mult = 2.F / RAND_MAX;
  static char         Key;
  static float        x2;
  float               v1, v2, s, x1;
    
  if(Key == 0)
  {
    do
    {
      v1 = -1 + Mult * rand();
      v2 = -1 + Mult * rand();
      s  = v1 * v1 + v2 * v2;
    }while(s >= 1);
        
    x1  = (float)(sqrt(-2 * log(s) / s));
    x2  = v2 * x1;
    Key = 1;
    return(v1 * x1 * Sig + Exp);
  }
  else
  {
    Key = 0;
    return(x2 * Sig + Exp);
  }
}

В принципе, это вполне приличный генератор БГШ, дает отсчеты гаусовской случайной величины с параметрами Exp - матожидание и Sig - СКО.

podval

Дата 4.11.2003, 10:06 (ссылка)

(нет голосов)

Загрузка ...

Где я? Кто я?

Профиль
Группа: Экс. модератор
Сообщений: 3094
Регистрация: 25.3.2002
Где: СПб

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

Код


float Pink_noise(float Sig, float Alpha)
{
    static float y, Mult;
    
    if(Mult == 0.F) Mult = 1.F / (float)sqrt((1-Alpha) / (1+Alpha));
    
    return(Sig * Mult * (y=Alpha*y+(1.F-Alpha)*Gauss_value(0., 1.)));
}

А это "розовый" шум.
Alpha меняется в пределах [0, 1).
0 - белый шум.
Чем ближе к 1 (1 не включается!), тем более розовый шум (ярче выражены НЧ компоненты).

podval

Дата 4.11.2003, 10:23 (ссылка)

(нет голосов)

Загрузка ...

Где я? Кто я?

Профиль
Группа: Экс. модератор
Сообщений: 3094
Регистрация: 25.3.2002
Где: СПб

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

Кстати, Alpha можно изменять и от -1 до 0 - получится "голубой" шум, т.е. более выражены ВЧ компоненты

SlHunter

Дата 8.12.2007, 19:44 (ссылка)

(нет голосов)

Загрузка ...

Новичок

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

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

А как проверить, получился белый шум или нет?

podval

Дата 9.12.2007, 19:28 (ссылка)

(нет голосов)

Загрузка ...

Где я? Кто я?

Профиль
Группа: Экс. модератор
Сообщений: 3094
Регистрация: 25.3.2002
Где: СПб

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

Воспользоваться определением - проверить на нулевое матожидание и АКФ типа дельта-функции.

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