| 查看: 1903 | 回复: 14 | |||
| 当前只显示满足指定条件的回帖,点击这里查看本话题的所有回帖 | |||
[交流]
近红外kennard-stone选样本
|
|||
| 各位大侠,我最近做近红外,图谱扫描了,选择校正集合验证集想采用kennard-stone选样本,该如何操作,具体怎么弄?是用matlab吗,又该怎么弄? |
» 猜你喜欢
309求调剂
已经有8人回复
一志愿南航 335分 | 0856 | GPA 4.07 | 有科研经历
已经有8人回复
求调剂
已经有5人回复
求化学调剂
已经有5人回复
085600,材料与化工321分求调剂
已经有10人回复
0703 化学 求调剂,一志愿山东大学 342 分
已经有5人回复
一志愿南开大学0710生物学359求调剂
已经有3人回复
085600,专业课化工原理,320分求调剂
已经有4人回复
材料与化工272求调剂
已经有16人回复
290求调剂
已经有3人回复
» 抢金币啦!回帖就可以得到:
南方科技大学纳米-飞秒-超快动力学课题组---诚聘博士后/助理研究员
+1/189
多通道数据采集/线性功率放大器租赁|自动化控制实验
+1/94
2026年武汉纺织大学国家杰青课题组招收调剂化学 生物 医学 食品 环境研究生
+1/87
中山大学潘越教授现新增1个分子医学学术学位硕士名额
+1/48
安徽工程大学化学与环境工程学院对外招收2026级调剂硕士研究生
+1/36
福建师范大学环境与资源学院环境电化学课题组招收2026硕士(调剂,4月8号线上面试)
+1/29
西南科技大学杨文彬教授课题组接收材料、化工、化学专业研究生调剂
+1/20
电子信息数一英一336分求调剂
+1/20
汕头大学海洋与生命学科李升康教授团队招收生物类调剂生
+1/18
【实战型】【生物医药】2026青岛大学招博士生 含少数民族骨干计划2名!
+1/17
赣南师范大学智能制造与未来能源学院2026年硕士调剂信息
+1/16
西北工业大学机电学院 复合材料加工制造方向招聘博士后
+1/15
福建师范大学环境与资源学院2026级学硕专硕调剂(网络远程面试)
+1/13
中国农业大学资源与环境学院 - 招聘杰出人才(教授-专技四级)、青年研究员、优秀人才
+1/12
【博士招生】广东工业大学国家优青课题组招收2026年环境方向博士生
+1/7
南京林业大学化学工程学院柏惺峰课题组诚聘科研助理、水杉英才E类/F类青年教师或博后
+1/6
诚聘博士科研人员(有机合成化学方向)
+1/6
墨子实验室理论计算和模拟研究组诚聘海内外优秀人才
+1/5
南开大学环境科学与工程学院王鑫教授课题组招收申请考核制博士生
+1/3
福建师范大学环境与资源学院2026级学硕专硕调剂(网络远程面试)
+1/2
★ ★
小木虫: 金币+0.5, 给个红包,谢谢回帖
leecius: 金币+1, 谢谢参与。 2012-10-18 09:05:10
小木虫: 金币+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
★
小木虫: 金币+0.5, 给个红包,谢谢回帖
小木虫: 金币+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
4楼2012-10-17 21:19:32
5楼2012-10-17 21:47:20














回复此楼
=[];