%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%【程序1】.求称量精度、稀释精度和仪器精度
%[r,p]=corrcoef(x);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%【程序2】.求相同溶剂不同样品间的相关系数
%[r,p]=corrcoef(x);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%【程序3】.求相同样品不同溶剂间的相关系数
%[r,p]=corrcoef(x);
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%【程序4】.画图1 (相同样品在不同溶剂中的光谱差异性比较)
%x;
%y11;
%y21;
%y31;
%y41;
%y12;
%y22;
%y32;
%y42;
%y13;
%y23;
%y33;
%y43;
%subplot(1,3,1);
%plot(x,y11,'r-',x,y21,'b-',x,y31,'g-',x,y41,'k-');
%title('样品277');
%xlabel('波长(nm)');
%ylabel('吸光度');
%subplot(1,3,2);
%plot(x,y12,'r-',x,y22,'b-',x,y32,'g-',x,y42,'k-');
%title('样品279');
%xlabel('波长(nm)');
%ylabel('吸光度');
%subplot(1,3,3);
%plot(x,y13,'r-',x,y23,'b-',x,y33,'g-',x,y43,'k-');
%title('样品281');
%xlabel('波长(nm)');
%ylabel('吸光度');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%【程序5】.画图2 (不同样品在相同溶剂中的光谱差异性比较)
%x;
%y11;
%y21;
%y31;
%y12;
%y22;
%y32;
%y13;
%y23;
%y33;
%y14;
%y24;
%y34;
%subplot(1,4,1);
%plot(x,y11,'r-',x,y21,'b-',x,y31,'k-');
%title('蒸馏水');
%xlabel('波长(nm)');
%ylabel('吸光度');
%subplot(1,4,2);
%plot(x,y12,'r-',x,y22,'b-',x,y32,'k-');
%title('无水乙醇');
%xlabel('波长(nm)');
%ylabel('吸光度');
%subplot(1,4,3);
%plot(x,y13,'r-',x,y23,'b-',x,y33,'k-');
%title('氯仿');
%xlabel('波长(nm)');
%ylabel('吸光度');
%subplot(1,4,4);
%plot(x,y14,'r-',x,y24,'b-',x,y34,'k-');
%title('石油醚');
%xlabel('波长(nm)');
%ylabel('吸光度');
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%