Tips for Sound Waves

[NotLKH]

Just wondering if any of you have any ideas for sounds.
I'm programming wave files in my off time, and so far I've
concentrated on waves from simple sin constructions, sin
constructions where the frquency varies by another sin or cos
function, multiples of sin/cos functions with 2 different frquencies
and 2 different amplitudes. Any Suggestions?

for example, one of my wav subs looks like this:

Private Sub SIREN(ByRef IN_WAVE As Variant)
Dim MyLen As Long
Dim PIE As Double
Dim MyVal As Long
 
Dim MyInc_01 As Double
Dim MyInc_02 As Double
Dim MyInc_03 As Double
Dim MyInc_04 As Double
Dim MyHight01 As Long
Dim MyHight02 As Long
Dim Freq_01 As Long
Dim Freq_02 As Long
Freq_01 = Val(TogTxt(2).Text)
Freq_02 = Val(TogTxt(3).Text)
MyInc_04 = (Freq_01 - Freq_02)
PIE = 3.14159265358979
MyLen = UBound(IN_WAVE)
MyInc_01 = 2 * Freq_01 * PIE / MyLen
MyInc_02 = 2 * Freq_02 * PIE / MyLen
MyInc_03 = Val(TogTxt(4).Text) * PIE / MyLen
MyHight01 = Val(TogTxt(0).Text)
MyHight02 = Val(TogTxt(1).Text)
    For i = 0 To UBound(IN_WAVE) ' Step 2
        MyInc_01 = 2 * ((Sin(MyInc_03 * i)) * MyInc_04 + Freq_02) * PIE / MyLen
        MyVal = MyHight01 + Int(MyHight02 * Sin(i * MyInc_01))  '+ Int(MyHight02 * Sin(i * (MyLen - (2 * i)) * MyInc_02 / MyLen)))
        If MyVal > 32000 Then
            MyVal = 32000
        Else
            If MyVal < -32000 Then
                MyVal = -32000
            End If
        End If
        IN_WAVE(i) = MyVal
    Next i
End Sub

and a couple of sample outputs are attacheded.

Any Suggestions?

[thinktank2]

Mathematica has a play function that can generate sound files.

Actually they are quite funny !!

One of the commands is Play

"Play[f, {t, tmin, tmax}] plays a sound whose amplitude is given by f as function of time t in seconds between tmin and tmax."

you can even generate sounds in number of channels.

Play[{f1,f2,f3,...fn},{t,tmin,tmax}]

There are probably many sound related functions in mathematica but I only remember this one.

http://documents.wolfram.com/v4/MainBook/2.9.18.html

[NotLKH]

Sorry,
I was hoping for a more personal response.

I"M making wave files by hand, and I was hoping for some tips,
ie, equations to generate interesting sounds. Mathematica might
be able to, but I want to do it by hand. So....\If you have any
good equations you can suggest, please do so. BTW, their
equation is just a simple wave, but still, good for this thread, for
all the possible followers.


-Lou

[thinktank2]

http://www.geocities.com/Vienna/9349/

Maths to MIDI