如何用計算機生成一段隨機的音樂？

我用mathematica試了一下（新手，不會用），好像不行，代碼如下：

t = 0;

For[i = 0, i &< 100, i++, r = RandomReal[];

EmitSound[

Sound[(*Append[#,

"Violin"]/@*){SoundNote[

RandomChoice[{"A", "B", "C", "D", "E", "F", "G"}]

, {t, r}]}]]; t = t + r]

謝謝

2011年的Chuck Ronco獲獎作品...大概是這個思路:

rule=ArrayRules[ToString/@{C,D,E,F5,G,A1,B3,C5,D5,C3}];
length=Sound[SoundNote@@@Table[{{RealDigits[N[Pi,#]][[1,i]]},.46,"NewAge"},{i,#}]/.rule];
length[100]


你的思路的話...還不如

Sound[SoundNote[#,RandomReal[],"Violin"]/@RandomChoice[{"A","B","C","D","E","F","G"},100]]


好像能聽的樣子...

範例里就有好多...你還自己瞎造輪子......

送你個起床鈴....

Sound[SoundNote[DeleteCases[3 Range[21]Reverse[#],0]-24,.1]/@Transpose[CellularAutomaton[90,{{1},0},20]]]


不過我感覺還是這個最魔性...

Sound[Table[SoundNote[RandomInteger[7],.2,RandomChoice[{"Piano","Guitar","Violin"}]],1000]]