Message Boards Message Boards

Cool sound after little algebra

GROUPS:

Consider the following code:

        a1=RandomInteger[30,{30}]
        b1=RandomInteger[30,{30}]
        c1=RandomInteger[30,{30}]
        c4=a1*b1*c1
        a3=(a1*b1)^-a/(a1-b1)
        d=(c4-a3)^a3
        f=b1/a1*Pi-(c4-(a1+b1+c1))^-c4
        g=d/f
        ListPlay[Table[Sqrt[2Sin[f]-1],{f,0,1,0.01}]]
        ListLinePlot[f]

Sound[{Play[Sin[1000t(1+f^2)],{f,0,.2}],Play[Sin[500f (1+f^3)],{f,0,10}]}]
Answer
4 months ago

Group Abstract Group Abstract