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}]}]
