main.m

klt经典程序

I=imread('football.jpg');
clf reset						
set(gcf,'unit','normalized','position',[0.1,0.2,0.45,0.45]);%设置图形窗大小
set(gcf,'defaultuicontrolunits','normalized');
set(gcf,'defaultuicontrolfontsize',11);
set(gcf,'defaultuicontrolfontname','楷书');
set(gcf,'defaultuicontrolhorizontal','left');
% set(gcf,'menubar','none');								%删除图形窗工具条
str='KLT DCT WHT性能比较';
set(gcf,'name',str ,'numbertitle','off');		%书写图形窗名
z=32;
str1='量化矩阵中1的个数=';
htext=uicontrol(gcf,'style','text',...	%制作静态说明文本框				
   'position',[0.1,0.8,0.33,0.1],...
   'string',[str1,sprintf('%1.4g\',z)]);
hslider=uicontrol(gcf,'style','slider',...	%创建滑动键					
   'position',[0.1,0.6,0.8,0.1],...
   'max',64,'min',0,...		%设最大阻尼比为2，最小阻尼比为0.02		
   'sliderstep',[1/64,1/64],...%箭头操纵滑动步长1%，游标滑动步长5%		
   'Value',32);					%缺省取阻尼比等于0.5   						
set(hslider,'callback',[...						%操作滑动键,引起回调			
   'z=get(gcbo,''value'');',...				%获得滑动键状态值		
   'callcheck(htext,str1,z)']);	%被回调的函数文件				
hpush=uicontrol(gcf,'Style','push',...	%制作与列表框配用的按键		
   'position',[0.1,0.05,0.18,0.15],'string','原始图像');
set(hpush,'callback','jpeg_show(I)')

hpush=uicontrol(gcf,'Style','push',...	%制作与列表框配用的按键		
   'position',[0.3,0.05,0.18,0.15],'string','KLT');
set(hpush,'callback','jpeg_klt(I,z)')

hpush=uicontrol(gcf,'Style','push',...	%制作与列表框配用的按键			
   'position',[0.5,0.05,0.18,0.15],'string','DCT');
set(hpush,'callback','jpeg_dct(I,z)')

hpush=uicontrol(gcf,'Style','push',...	%制作与列表框配用的按键			
   'position',[0.7,0.05,0.18,0.15],'string','WHT');
set(hpush,'callback','jpeg_wht(I,z)')