这段代码主要用来进行图像的批处理转换为灰度、二值和主成分图图像,希望给大家借鉴。其中 RGB to bw可以直接实现,但是效果不好,所以先用RGB to gray,之后再gray to bw。RGB to PAC 涉及到三维数据转换为二维的问题。这里面涉及到数据排序的问题,需要使用到LengthSortStr函数,我以作为附件添加。由于不太熟悉科学网添加方式,所以添加的不是很好,望大家见谅。
% The RGB to gray
path='D:7-21-simplewaystems11HOG adaboost';
file='*.tif';
pic=dir([path,file]);
filename=str2mat(pic.name); %取得文件名
%调用函数
sortfile=LengthSortStr(filename);
num=size(pic,1);
image_filename='D:7-21-simplewaystems11HOG adaboost';
mkdir(image_filename,'stemsgray')
output_default_path = fullfile(image_filename,'stemsgray');
cd(output_default_path)
% message = 'Select the output folder';
% uiwait(msgbox(message));
% output_folder = uigetdir(output_default_path);
f