搜索
人大经济论坛 附件下载

附件下载

所在主题:
文件名:  源程序.docx
资料下载链接地址: https://bbs.pinggu.org/a-1969616.html
附件大小:
14.59 KB   举报本内容
l=4;r=3;d=1;%d 是最终要得到的特征数 l是每次增加的特征 r是每次减去的特征chosen=[];%%表示已选的特征 chosen=[chosen 1]; while d<13 %-----------------------------1 选l个特征------------------------------------- for j=1:l %选l个特征 J=zeros([1 31]); for i=1:31 %%一共31组特征 [mm nn]=size(chosen); for p=1:nn if i==chosen(p) J(i)=0; break; else J(i)=J(i)-sum(sum((feature{i}-feature{chosen(p)}).^2)); end end end mi=min(J); for i=1:31 if J(i)==0 J(i)=mi; end end [ma1 we1]=max(J); chosen=[chosen we1]; end %-----------------------------2 去掉r个特征------------------------------------- dele=[]; for j=1:r %%删r个 [ch chnum]=size(chosen); J=zeros([1 chnum]);ii=0; for i=1:chnum% 去掉chosen中第i个的效果 [mm nn]=size(chosen); for p=1:nn for q=1:nn if (chosen(q)~=chosen(i)) & (chosen(p)~=chosen(i)) J(i)=J(i)-sum(sum((feature{chosen(q)}-feature{chosen(p)}).^2)); end end end end mi=min(J); for cc=1:chnum if J(cc)==0 J(cc)=mi; end end [ma we]=max(J); chosen(we)=[]; end d=d+l-r end [mm nn]=size(chosen); tezh=[]; for i=1:nn tezh=[tezh feature{chosen(i)}]; end


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载,请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品,拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知,将积极的采取必要措施;同时,本站也将在技术手段和能力范围内,履行版权保护的注意义务。
(如有侵权,欢迎举报)
二维码

扫码加我 拉你入群

请注明:姓名-公司-职位

以便审核进群资格,未注明则拒绝

GMT+8, 2025-12-26 15:05