直观推导式演进特征投影法 文件头.txt

来自「一个梯度优化算法的实例(演示)。。。。线性判别分析的伪逆算法程序（matlab6」· 文本 代码 · 共 62 行

文件头:
function fun_resohelp(action)



   global Step C S Data;%simudata peaks parameters: 1 80 10;1.5 130 20;1.2 170 3

switch(action)



case 'act_start'

   load resohelpdata;

   Step=0;

   subplot('position',[0.08 0.0800 0.92 0.75]);

   hold off;cla;

   mesh(data2d);

   xlabel('wavelength');

   ylabel('retention time');

   zlabel('absorption A');

   set(findobj(gcf,'Tag','Text3'),'FontSize',10);

   set(findobj(gcf,'Tag','Text3'),'ForegroundColor',[1 1 0]);

   set(findobj(gcf,'Tag','Text3'),'String','本例子演示一个3组分模拟二维数据的直观推导式演进特征投影法解析过程。其三维图如下');

case 'act_next'

   %%

   Step=Step+1;

   if Step==1

      load resohelpdata;

      subplot('position',[0.08 0.0800 0.92 0.75]);

      hold off;

      plot(mean(data2d'));

      hold on;

      plot([1:50],mean(data2d(1:50,:)'),'*r')

      plot([185:204],mean(data2d(185:204,:)'),'*g')

      legend('色谱图','峰簇前背景区域','峰簇后背景区域');

      hold off;

      set(findobj(gcf,'Tag','Tex