MATLAB算法大全

bucuo bucuo fexsxsxccwecewcecec

非常感谢楼主的资料

干得漂亮  顶起来

这个很有帮助，谢谢

为什么不能下载了

可以可以。。。。。。。。。。。。。。。。。。。。。。。。。。。

https://bbs.elecfans.com/jishu_66646_1_1.html

https://bbs.elecfans.com/jishu_66646_1_1.html

谢谢分享，收下了。

Verilog HDL 华为入门教程

学习了                                                            

非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好非常好

感谢分享  看看

这个用来考试足够了

function wmp=music(songname)
%
%输出： wmp——COM.wmplayer_ocx组件对象
%
%输入：songname——歌曲名称
%
%示例：
%     music('好心分手');
%
%停止播放：wmp.close 如果无WMP,自动存为ans。
%
%  音量调节 wmp.setting.volume=10

%  @王小川_matlab 制作 http://weibo.com/hgsz2003/
%  @baby_wolf 制作 http://weibo.com/n/%E8%9C%80%E5%B1%B1%E6%8E%8C%E9%97%A8V



clear wmp
clear ans
str=dec2hex(unicode2native(songname));
str=[repmat('%',size(str,1),1) str];
str=reshape(str',1,[]);
% str=songname
song_url=['http://mp3.baidu.com/m?f=ms&rf=idx&tn=baidump3&ct=134217728&lf=&rn=&word=',str,'&lm=-1'];
webfile_stream=urlread(song_url);
%filelist=regexp(webfile_stream,'http://box.zhangmen.baidu.com/m?word=mp3.{1,300}target','match');
music_page_url=regexp(webfile_stream,'http://mp3.baidu.com/d?song=.{1,400} target="_blank" onclick="return ','match');
music_page_url;
if ~isempty(music_page_url)   
spc = strfind(music_page_url{1}, ' ')    ;
music_page_url{1}=[music_page_url{1}(1:spc-1) '%20'  music_page_url{1}(spc+1:end)];
music_page=urlread(music_page_url{1}(1:end-47));
else
%     wmp=nan;
    disp(['没有找到与《',songname,'》相关的歌曲']);
    return;
end



filelist=regexp(music_page,'a id="downlink" href=".{1,200}" onclick','match');  %22 ***** 1
fileurl=['http://mp3.baidu.com' filelist{1}(23:end-9)];
% http...... " target
    close all;
    figure('visible','off');
    disp(['作者：@王小川@matlab & @baby_wolf 新浪微博：http://weibo.com/hgsz2003/ ; http://weibo.com/n/%E8%9C%80%E5%B1%B1%E6%8E%8C%E9%97%A8V'])
    disp('歌曲连接成功');
    disp(['歌曲下载链接：', music_page_url{1}(1:end-46),'' ]);
%     disp(music_page_url{1}(1:end-46));
    clipboard('copy',fileurl);
   
   % fprintf('%sn',song_url);
   % fprintf('%sn',filelist{1}(1:end-8));
   % web=actxcontrol('shell.explorer.2',[0 0 400 400 ]);
   % web.Navigate(filelist{1}(1:end-8))
   % web(filelist{1}(1:end-8),'-browser');
   wmp=actxserver('wmplayer.ocx');
   wmp.url=fileurl;
%  wmp.setting.volume=10;
   disp(['当前的播放状态为：',wmp.status]);
   disp('停止播放请清除在变量空间清除COM.wmplayer_ocx，或者输入：名称.close');
   disp('如需要调整音量，请按照如下设置：名称.setting.volume=10');
   
   

end
% end

很好的资料，感谢分享

下载后看看吧，多谢

正好需要，刚好看到，非常感谢

下下来学习学习。。。

好东西呀，真的是太好了，一直在找，原来就在这里