帮我编写matlab计算一张图像MTF的程序

好的，以下是MATLAB计算一张图像MTF的程序：

% 读入图像
image = imread('image.jpg');
% 将图像转换为灰度图像
image = rgb2gray(image);
% 计算图像大小
[M, N] = size(image);
% 定义空间频率范围
u = linspace(-0.5,0.5,N);
v = linspace(-0.5,0.5,M);
% 计算点扩散函数（PSF）
[x, y] = meshgrid(1:N, 1:M);
sigma = 10; % PSF的标准差
PSF = exp(-((x-N/2).^2+(y-M/2).^2)/(2*sigma^2));
PSF = PSF./sum(PSF(:)); % 归一化
% 对图像和PSF进行傅里叶变换
F_image = fft2(image);
F_PSF = fft2(PSF);
% 计算傅里叶变换的振幅谱
A_image = abs(F_image);
A_PSF = abs(F_PSF);
% 对振幅谱进行中心化
A_image = fftshift(A_image);
A_PSF = fftshift(A_PSF);
% 计算MTF值
MTF = A_image./A_PSF;
% 计算MTF曲线的峰值和位置
[peak_value, peak_location] = max(MTF(round(M/2)+1,:));
% 显示MTF曲线的峰值和位置
disp(['MTF曲线的峰值为：', num2str(peak_value)]);
disp(['MTF曲线的位置为：', num2str(u(peak_location))]);
% 绘制MTF曲线
plot(u, MTF(round(M/2)+1,:));
title('MTF');
xlabel('Spatial Frequency (cycles/pixel)');
ylabel('Modulation Transfer Function');

以上程序计算一张图像的MTF值，并绘制MTF曲线。程序中的MTF曲线为图像中心行（第M/2+1行）的MTF值，可以根据需要进行修改。计算MTF曲线的峰值和位置，可以用于评估图像的分辨能力。程序中的图像和PSF是示例图像和PSF，需要根据实际情况进行替换。