clear all clc close all TrainDatabasePath = uigetdir('C:\Users\86182\Desktop', 'Select training database path' ); TestDatabasePath = uigetdir('C:\Users\86182\Desktop', 'Select test database path'); prompt = {'Enter test image name (a number between 1 to 24):'}; dlg_title = 'Input of PCA-Based Face Recognition System'; num_lines= 1; def = {'1'}; TestImage = inputdlg(prompt,dlg_title,num_lines,def); TestImage = strcat(TestDatabasePath,'\',char(TestImage),'.bmp'); im = imread(TestImage); T = CreateDatabase(TrainDatabasePath); [m, A, Eigenfaces] = EigenfaceCore(T); OutputName = Recognition(TestImage, m, A, Eigenfaces); SelectedImage = strcat(TrainDatabasePath,'\',OutputName); SelectedImage = imread(SelectedImage); %显示识别结果 imshow(im) title('Test Image'); figure,imshow(SelectedImage); title('Equivalent Image'); str = strcat('Matched image is : ',OutputName); disp(str)帮我编写一个CreateDatabase函数，上述代码用于人脸识别

好的，以下是一个简单的CreateDatabase函数的示例代码：

function T = CreateDatabase(path)
% path: 训练集文件夹路径
% T: 保存训练集图像矩阵的cell数组

% 获取指定路径下的所有bmp格式文件
bmpFiles = dir(fullfile(path, '*.bmp'));
nFiles = length(bmpFiles);

% 遍历所有bmp文件，读取图像并保存到cell数组T中
T = cell(nFiles, 1);
for i = 1:nFiles
    filename = fullfile(path, bmpFiles(i).name);
    im = imread(filename);
    T{i} = im;
end

CreateDatabase函数的作用是读取训练集文件夹中的所有bmp格式图像文件，并将它们保存到一个cell数组T中。在人脸识别中，这些图像将用于训练特征向量。