[程序分享] 用R语言谱曲 [推广有奖]

1关注
84粉丝

学科带头人

29%

还不是VIP/贵宾

威望: 3 级
论坛币: -8924352 个
通用积分: 179.5533
学术水平: 189 点
热心指数: 250 点
信用等级: 158 点
经验: 45709 点
帖子: 1109
精华: 0
在线时间: 1492 小时
注册时间: 2013-2-24
最后登录: 2021-1-20

楼主

求证1加1 发表于 2013-3-9 08:31:54 |只看作者 |坛友微信交流群|倒序 |AI写论文

是否 +2 论坛币

k人参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

感觉蛮好玩的，没仔细看文档，随便码了一段，求别喷。。。求各路大神帮忙改进。

本帖隐藏的内容

library(sound)
s0 <- Sine(0,0.5)
s1 <- Sine(523.25,0.25)
s2 <- Sine(587.33,0.25)
s3 <- Sine(659.26,0.25)
s4 <- Sine(698.46,0.25)
s5 <- Sine(784,0.25)
s6 <- Sine(880,0.25)
s7 <- Sine(987.77,0.25)
s11 <- Sine(1046.5,0.25)
s12 <- Sine(1174.66,0.25)
s13 <- Sine(1318.51,0.25)
B1<-appendSample(s0,s5,s5,s3,s3,s4,s4,s5,s5,s5,s5,s5,s5);
B2<-appendSample(s0,s5,s5,s3,s3,s4,s4,s5,s5,s5,s5,s5,s5);
B3<-appendSample(s0,s5,s5,s3,s3,s4,s4,s5,s5,s5,s11,s11,s12);
B4<-appendSample(s7,s7,s7,s7,s7,s7,s3,s5,s5,s5,s5,s5,s0);
B5<-appendSample(s5,s6,s6,s13,s13,s12,s12,s12,s12,s12,s12,s12,s12);
B6<-appendSample(s3,s5,s5,s12,s12,s12,s11,s11,s11,s11,s11,s11,s11);
B7<-appendSample(s3,s4,s4,s11,s11,s11,s11,s12,s13,s13,s11,s11,s7,s7,s7,s11,s11,s11,s11,s11);
s<-appendSample(B1,B2,B3,B4,B5,B6,B7);
s<-mirror(s)
play(s)

再附上一首完整点的

本帖隐藏的内容

ss5<- Sine(391,0.25);
s0 <- Sine(0,0.25);
s1 <- Sine(523.25,0.25);
s2 <- Sine(587.33,0.25);
s3 <- Sine(659.26,0.25);
s4 <- Sine(698.46,0.25);
s5 <- Sine(784,0.25);
s6 <- Sine(880,0.25);
s7 <- Sine(987.77,0.25);
s11 <- Sine(1046.5,0.25);
s12 <- Sine(1174.66,0.25);
s13 <- Sine(1318.51,0.25);
s14 <- Sine(1397,0.25);
s15 <- Sine(1568,0.25);
A1<-appendSample(s0,ss5,s3,s2,s3,s2,s3,s5);
A2<-appendSample(s0,s2,s3,s2,s3,s2,s3,s5);
A3<-appendSample(s0,s2,s3,s2,s3,s7,s7,s5);
A4<-appendSample(s5,s5,s5,s5,s5,s5,s4,s4,s3,s3);
A5<-appendSample(s1,s2,s1,s1,s1,s5,s5,s5);
A6<-appendSample(s5,s2,s3,s1,s1,s1,ss5);
A7<-appendSample(s5,s5,s6,s6,s6,s2,s2,s2,s2,s2,s2);
A8<-A1;A9<-A2;
A10<-appendSample(s7,s7,s11,s7,s5,s3,s3,s3);
A11<-appendSample(s5,s5,s5,s5,s5,s6,s11);
A12<-appendSample(s12,s12,s11,s6,s6,s6,s6,s6);
A13<-appendSample(s6,s5,s5,s5,s3,s2,s1,s1);
A14<-appendSample(s2,s2,s2,s2,s3,s3,s3,s3);
A15<-appendSample(s4,s4,s4,s4,s5,s5,s5,s5);
A16<-appendSample(s6,s6,s6,s6,s13,s13,s12,s12);
A17<-appendSample(s12,s12,s12,s12,s0,s5);
A18<-appendSample(s7,s7,s7,s5,s3,s2,s3,s3);
A19<-appendSample(s3,s3,s3,s3,s5,s5,s6,s6);
A20<-appendSample(s1,s1,s1,s3,s3,s5,s5,s6,s6);
A21<-appendSample(s5,s5,s5,s13,s13,s12,s12,s11,s11);
A22<-appendSample(s0,s13,s13,s13,s12,s13,s12,s15,s15,s14,s14,s13,s13,s11,s11);
A23<-appendSample(s11,s11,s11,s11,s11,s6,s1);
A24<-appendSample(s7,s7,s7,s7,s0,s7,s7,s5);
A25<-appendSample(s5,s3,s3,s3,s3,s5,s5,s6,s6);
A26<-appendSample(s6,s6,s6,s3,s3,s5,s5,s6,s6);
A27<-appendSample(s1,s1,s1,s3,s3,s5,s5,s6,s6);
A28<-appendSample(s1,s1,s1,s6,s6,s5,s5,s3,s3,s1,s1,s1,s1,s1,s1,s1,s1);
s<-appendSample(A1,A2,A3,A4,A5,A6,A7,A8,A9,A10,A11,A12,A13,A14,A15,A16,A17,A18,A19,A20,A21,A22,A23,A24,A25,A26,A27,A28);
s<-mirror(s);
play(s)