声振论坛

 找回密码
 我要加入

QQ登录

只需一步,快速开始

查看: 2469|回复: 14

[编程技巧] 用MATLAB编了一首曲子,有音箱的朋友听听。

  [复制链接]
发表于 2012-9-14 21:42 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?我要加入

x
%吕颂贤版笑傲江湖

fd=[256 288 320 341.33 384 426.67 480 512];
x=1:8;
[a,s]=polyfit(x,fd,2);
shiji=[-1 -2 -3 -4 -5 -6 -7 1 2 3 4 5 6 7];
zhuanhuan=[-6 -5 -4 -3 -2 -1 0 1 2 3 4 5 6 7];

g=[-6 1;-6 1;-6 0.5;-6 0.5;-6 0.5;-6 0.5;
-6 2;-6 2;
3 1; 6 0.75;3 0.25; 5 0.5;5 1;3 0.5;
2 0.5;3 0.5;5 0.5; 6 0.5; 3 2;
3 1; 6 0.75; 3 0.25; 5 0.5;5 1;3 0.5;
2 0.5;3 0.5;5 0.5; 6 0.25;5 0.25;3 2;0 0.25;3 0.5; 2 0.25;
1 0.75;1 0.25;2 0.5;3 0.5;2 0.5;2 0.75;2 0.5;1 0.25;
-6 0.5;-6 0.25;1 0.25;2 0.5;3 0.5;5 0.75;6 0.25;5 0.5;3 0.25;2 0.25;
1 0.75;2 0.75;3 0.5;2 0.5;2 0.75;1 0.75;
-6 0.5;-6 0.25;1 0.25;2 0.25;3 0.5;5 0.25;6 2;

3 1; 6 0.75;3 0.25; 5 0.5;5 1;3 0.5;
2 0.5;3 0.5;5 0.5; 6 0.25;5 0.25;3 2;
3 1; 6 0.75; 3 0.25; 5 0.5;5 1;3 0.5;
2 0.5;3 0.5;5 0.5; 6 0.25;5 0.25;3 2;0 0.25;3 0.5; 2 0.25;
1 0.75;1 0.25;2 0.5;3 0.5;2 0.5;2 0.75;2 0.5;1 0.25;
-6 0.5;-6 0.25;1 0.25;2 0.5;3 0.5;5 0.75;6 0.25;5 0.5;3 0.25;2 0.25;
1 0.75;2 0.75;3 0.5;2 0.5;2 0.75;1 0.75;
-6 0.5;-6 0.25;1 0.25;2 0.25;3 0.5;5 0.25;6 2;
2 0.75;2 0.5;3 0.5;2 0.25;1 0.5;1 0.75;-6 0.5;1 0.25;
2 0.75;2 0.5;3 0.5;2 0.25;1 0.5;-6 0.5;0 0.25;1 0.25;-6 0.25;1 0.25;
2 0.75;2 0.5;3 0.5;2 0.25;1 0.5;1 0.5;0 0.25;1 0.25;-6 0.25;1 0.25;
2 0.5;2 0.5;2 0.25;5 0.5;3 2.25;
-6 0.75;-6 0.75;-6 0.5; 2 0.75;2 0.75;3 0.25;2 0.25;
1 0.75;1 0.75;2 0.25;-6 0.75;-6 0.75;-5 0.5;
-6 0.75;-6 0.75;-5 0.5;3 0.75;3 0.75;-5 0.5;
2 0.75;2 0.75;2 0.5;3 2;
-6 2;2 1.5;3 0.5;
1 1.5;2 0.5;-6 1.5;1 0.25;
-5 1.5;-6 0.5;3 0.75;2 0.25;3 0.5;5 0.5;
6 4;


];
N=length(g);

g(:,2)=g(:,2)*0.5;
for i=1:N
   if g(i,1)<0
      g(i,1)=g(i,1)*(-1)-7;
   end
    t=zeros(1,1);
    t=0.0001:0.0001:g(i,2);
    M(i)=length(t);
   
    fdd(i)=a(1)*g(i,1)*g(i,1)+a(2)*g(i,1)+a(3);
    W=sum(M);
    Q=sum(M)-M(i)+1;
    sheng(Q:W)=sin(2*pi*fdd(i)*t);
end

sound(sheng);


点评

建议楼主说明下是否原创或转载  发表于 2012-9-16 21:13

评分

1

查看全部评分

回复
分享到:

使用道具 举报

发表于 2012-9-15 23:44 | 显示全部楼层
楼主厉害!!
发表于 2012-9-16 12:49 | 显示全部楼层
 楼主| 发表于 2012-9-17 19:58 | 显示全部楼层
原创,手敲的代码。
发表于 2012-9-19 18:44 | 显示全部楼层
给力
发表于 2012-9-29 10:42 | 显示全部楼层
棒极了,楼主
发表于 2012-10-11 16:39 | 显示全部楼层
楼主你真牛B
发表于 2012-10-12 11:36 | 显示全部楼层
太牛了,有解释的话,就可以推广了呀
发表于 2012-10-12 14:34 | 显示全部楼层
太牛了,这怎么出声啊

点评

help sound  发表于 2012-10-24 23:13
发表于 2012-10-18 11:00 | 显示全部楼层
挺不错的
发表于 2012-10-22 22:21 | 显示全部楼层
mark神贴
发表于 2012-10-22 22:23 | 显示全部楼层
厉害啊@楼主,呵呵。
发表于 2012-10-23 16:25 | 显示全部楼层
有点意思
发表于 2012-11-8 13:01 | 显示全部楼层
complexman2005 发表于 2012-10-23 16:25
有点意思

真有天赋啊
您需要登录后才可以回帖 登录 | 我要加入

本版积分规则

QQ|小黑屋|Archiver|手机版|联系我们|声振论坛

GMT+8, 2024-11-15 22:36 , Processed in 0.071026 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表