這段代碼主要用來進(jìn)行圖像的批處理轉(zhuǎn)換為灰度、二值和主成分圖圖像，希望給大家借鑒。其中 RGB to bw可以直接實(shí)現(xiàn)，但是效果不好，所以先用RGB to gray，之后再gray to bw。RGB to PAC 涉及到三維數(shù)據(jù)轉(zhuǎn)換為二維的問題。這里面涉及到數(shù)據(jù)排序的問題，需要使用到LengthSortStr函數(shù)，我以作為附件添加。由于不太熟悉科學(xué)網(wǎng)添加方式，所以添加的不是很好，望大家見諒。

% The RGB to gray

path='D:7-21-simplewaystems11HOG adaboost';

file='*.tif';

pic=dir([path,file]);

filename=str2mat(pic.name); %取得文件名

%調(diào)用函數(shù)

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);

for i=1:num;

tiff{i}=imread([path,sortfile(i,:)]);

images{i}=rgb2gray(tiff{i}); % color to gray

images{i}=imadjust(images{i}); % ajusting image quality

filenames= strcat('stemsgray',num2str(i),'.tif');

imwrite(images{i},filenames)

end

% The gray to bw

clear;clc

path='D:7-21-simplewaystems11HOG adabooststemsgray';

file='*.tif';

pic=dir([path,file]);% read the number of images

filename=str2mat(pic.name); %obtain filenames

sortfile=LengthSortStr(filename);% sort function

num=size(pic,1);

image_filename='D:7-21-simplewaystems11HOG adaboost';

mkdir(image_filename,'stemsgraybw')

output_default_path = fullfile(image_filename,'stemsgraybw');

cd(output_default_path)

for i=1:num;

tiff{i}=imread([path,sortfile(i,:)]);

images{i}=im2bw(tiff{i},0.5)

filenames= strcat('wbjin',num2str(i),'.tif');

imwrite(images{i},filenames);

end

% The RGB to PCA

path='D:simplewaystemssimplywaycodebadresults';

file='*.tif';

pic=dir([path,file]);

filename=str2mat(pic.name); %取得文件名

%調(diào)用函數(shù)

sortfile=LengthSortStr(filename);

num=size(pic,1);

tiff={};

for i=1:num;

tiff{i}=imread([path,sortfile(i,:)]);

R(:,:)=tiff{i}(:,:,1); % 3D to 2D

G(:,:)=tiff{i}(:,:,2);

B(:,:)=tiff{i}(:,:,3);

[m n]=size(R);% size of 2D

R1=reshape(R,prod(size(R)),1); % Multi-row and Single-column

G1=reshape(G,prod(size(G)),1);

B1=reshape(B,prod(size(B)),1);

RGB1=[R1,G1,B1]; % three columns of RGB

[coeff,score,latent] = pca(double(RGB1));% PCA caculation

score1=score(:,1);% the first principal is selected.

% percetanges=cumsum(latent)./sum(latent);

pcaiamges{i}=reshape(score1,m,n);

pcaiamges1{i}=im2bw(pcaiamges{i})

filenames= strcat('bw',num2str(i),'.tif');

imwrite(pcaiamges1{i},filenames);

end

轉(zhuǎn)載本文請(qǐng)聯(lián)系原作者獲取授權(quán)，同時(shí)請(qǐng)注明本文來自金秀良科學(xué)網(wǎng)博客。

鏈接地址：http://blog.sciencenet.cn/blog-620863-993279.html

上一篇：matlab圖像數(shù)據(jù)的調(diào)節(jié)和轉(zhuǎn)換

下一篇：matlab圖像數(shù)據(jù)的批處理cutting

總結(jié)

以上是生活随笔為你收集整理的matlab批量生成灰度图像_科学网—matlab彩色图像的批处理转换为灰度、二值和主成分图图像 - 金秀良的博文...的全部?jī)?nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。