% 圖像增強處理，主要增強圖像對比度
function retstr = SofmIntensity(ImgName,AdjustPara,DataDir)
NNTWARN OFF
retstr=-1;
%%%% 輸入參數賦值開始 %%%%%%%%%%%%%%%%%%%%%%%
% 方便調試程序用，程序調試時去掉這部分的注釋
% 圖像增強參數，介于(0,1)
AdjustPara(1)=0.25;  
AdjustPara(2)=0.6;
% 當前應用程序路徑
DataDir='.';   
% 圖像文件名
ImgName = 'image/imgrec_0.gif';  
%%%% 輸入參數賦值結束 %%%%%%%%%%%%%%%%%%%%%%%%
% 保留原目錄
olddir=pwd;
% 切換到數據所在目錄
cd(DataDir);
% 裝載圖像
pho= imread(ImgName);
figure,imshow(pho);
% 圖像增強處理
J=imadjust(pho,[AdjustPara(1) AdjustPara(2)],[],1.2322);
figure,imshow(J);
cd(olddir);
retstr=1;