SCREEN 13
CONST stp = .2
DIM Vertices(0 TO 319 / stp)
Frequency0 = 25
Frequency1 = 100
k = 0
FOR i = 0 TO (319 / stp)
Vertices(i) = 0
NEXT i
DO
FOR i = 0 TO 319 STEP stp
PSET (i, Vertices(i / stp)), 0
y0 = Frequency1 + SIN(((i + k) / 22050!) * 2! * 3.141592654# * Frequency0) * 25
y1 = 100 + SIN(((i + k) / 22050!) * 2! * 3.141592654# * y0) * 25
PSET (i, y1), 14
Vertices(i / stp) = y1
NEXT i
k = k + 25
LOOP UNTIL INKEY$ = CHR$(27)
Частотная модуляция
Вот еще одна проблемка: решил я промодулировать сигнал с частотой 100 герц - сигналом с частотой 25 герц. Вид модуляции - частотный. Частоты на самом деле могут быть самые разные. Написал тестовую программку на QBasic - е, что бы убедиться в работоспособности идеи, и... обломался =). Полученный сигнал оказался нестабильным. Если набраться немного терпения, то можно увидеть, что частота постоянно растет вверх =(. Может кто знает, что я сделал не так?
Вот исходник теста (на третьем пне не сильно тормозит =) :
Вот исходник теста (на третьем пне не сильно тормозит =) :
Код: