24小时热门版块排行榜    

查看: 2161  |  回复: 14
当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖

qiusj

金虫 (正式写手)


[交流] 近红外kennard-stone选样本

各位大侠,我最近做近红外,图谱扫描了,选择校正集合验证集想采用kennard-stone选样本,该如何操作,具体怎么弄?是用matlab吗,又该怎么弄?
回复此楼

» 猜你喜欢

» 抢金币啦!回帖就可以得到:

查看全部散金贴

已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Nkxz

铁杆木虫 (著名写手)


★ ★
小木虫: 金币+0.5, 给个红包,谢谢回帖
leecius: 金币+1, 谢谢参与。 2012-10-18 09:05:16
(1)用opus把每个样品的光谱数据读出来,并存为matlab格式;
(2)用上面的程序来进行k-s分组。
5楼2012-10-17 21:47:20
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
查看全部 15 个回答

Nkxz

铁杆木虫 (著名写手)



小木虫: 金币+0.5, 给个红包,谢谢回帖
用下面的matlab程序即可。其中X是需要被分组的样品的近红外光谱样品集,k是需要选出的样品个数。



function [model,test]=kenstone(X,k)
tic
[m,n]=size(X);
if k>=m | k<=0  
    h=errordlg('Wrongly specified number of objects to be selected to model set.','Error');
    model=[];
    if nargout==2
        test=[];
    end
    waitfor(h)
    return
end

x=[[1:size(X,1)]' X];
n=size(x,2);
[i1,ind1]=min(fastdist(mean(x(:,2:n)),x(:,2:n)));
model(1)=x(ind1,1);
x(ind1,=[];

[i2,ind2]=max(fastdist(X(model(1),,x(:,2:n)));
model(2)=x(ind2,1);
x(ind2,=[];

%h=waitbar(0,'Please wait ...');
%h=waitbar(0/k,h);

for d=3:k
    [ii,ww]=max(min(fastdist(x(:,2:n),X(model,)));
        model(d)=x(ww,1);
        x(ww,=[];
%    h=waitbar(d/k,h);
end

if nargout==2
    test=1:size(X,1);
    test(model)=[];
end

%close(h);
toc

function D=fastdist(x,y)

% Calculated Euclideam distances between two sets of objetcs

D=((sum(y'.^2))'*ones(1,size(x,1)))+(ones(size(y,1),1)*(sum(x'.^2)))-2*(y*x');
2楼2012-10-16 15:35:36
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

Nkxz

铁杆木虫 (著名写手)


★ ★
小木虫: 金币+0.5, 给个红包,谢谢回帖
leecius: 金币+1, 谢谢参与。 2012-10-18 09:05:10
不知道为什么会有笑脸出来,这个可能是个bug吧,我传到附件上了,你自己看吧。
http://g.zhubajie.com/urllink.php?id=128733297robb6l7cg4keoy0
3楼2012-10-16 15:39:09
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖

qiusj

金虫 (正式写手)


引用回帖:
2楼: Originally posted by Nkxz at 2012-10-16 15:35:36
用下面的matlab程序即可。其中X是需要被分组的样品的近红外光谱样品集,k是需要选出的样品个数。



function =kenstone(X,k)
tic
=size(X);
if k>=m | k<=0  
    h=errordlg('Wrongly specified nu ...

样品NIR扫描了,具体如何操作。
4楼2012-10-17 21:19:32
已阅   回复此楼   关注TA 给TA发消息 送TA红花 TA的回帖
普通表情 高级回复 (可上传附件)
最具人气热帖推荐 [查看全部] 作者 回/看 最后发表
[公派出国] 售SCI一区文章,我:8.O.551.O.5.4,科目全,可伽急 +3 wsYGJnURYvm6 2026-08-31 3/150 2026-09-01 01:52 by o3EMxHUAQDtS
[公派出国] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 EZ67DG6CvcKL 2026-08-31 4/200 2026-09-01 01:30 by o3EMxHUAQDtS
[考博] 售SCI一区T0P文章,我:8O.55.1.O.54,科目全,可伽急 +3 EZ67DG6CvcKL 2026-08-31 4/200 2026-09-01 01:30 by o3EMxHUAQDtS
[基金申请] 怎么看青基中了没有啊 +6 叶九微 2026-08-26 6/300 2026-08-31 23:54 by yudaoqian88
[找工作] 售SCI一区文章,我:8.O.55.1.O.54,科目齐全,可伽急 +3 EZ67DG6CvcKL 2026-08-31 3/150 2026-08-31 22:23 by o3EMxHUAQDtS
[考研] 售SCI文章,我:8O.5.5.1O.54,科目全,可十急 +3 EZ67DG6CvcKL 2026-08-31 3/150 2026-08-31 22:12 by o3EMxHUAQDtS
[基金申请] 投票:  有多少人是今天查系统知道结果的? +17 爱看书的可乐 2026-08-26 19/950 2026-08-31 21:30 by xiangy672
[基金申请] 能否申诉? +7 echo8914667 2026-08-30 8/400 2026-08-31 17:00 by yihongxu
[基金申请] 29号明天会评吗 +4 笨笨唐 2026-08-28 4/200 2026-08-31 09:30 by huixian257
[基金申请] 基金不中,共勉 +12 eulota 2026-08-26 12/600 2026-08-31 08:42 by ZJTJZ
[基金申请] 为什么到现在没收到通知? +5 tannykie 2026-08-29 5/250 2026-08-30 21:05 by purplejack
[基金申请] 有没有仍没收到信息的 +7 德尚中行 2026-08-27 8/400 2026-08-30 20:52 by purplejack
[考博] 找导师 +6 yuanjiabao 2026-08-29 7/350 2026-08-30 14:40 by 生科新手
[基金申请] 国自然面上复盘~欢迎讨论 (金币+15) +15 晴天加油 2026-08-26 16/800 2026-08-29 18:28 by symmetry
[基金申请] 为什么资助数各大高校都创新高,自己申请怎么就这么难 +12 Kittylucky 2026-08-27 13/650 2026-08-29 00:04 by superceng
[基金申请] 出来了 +9 trojank 2026-08-26 9/450 2026-08-26 14:25 by 宝贝虫子
[基金申请] 为什么国自然不能直接公布 +4 bjdxyxy 2026-08-26 4/200 2026-08-26 13:12 by qingmu1201
[基金申请] 国合里面能看到了 +7 一怀馨秋 2026-08-26 7/350 2026-08-26 11:23 by zhaosm1982
[基金申请] 系统进不去 +4 yanglien 2026-08-26 5/250 2026-08-26 11:10 by wenfengw83
[基金申请] 今天务委会开完了,明天出结果吗 +19 angus9576 2026-08-25 23/1150 2026-08-26 10:03 by zp519
信息提示
请填处理意见