matlab实现六路高斯光通过透镜实现聚焦功能 代码

以下是一个简单的 Matlab 代码，演示了如何使用高斯光和透镜来实现聚焦功能。这里使用了六个不同的高斯光源，以模拟六路高斯光。

% 定义透镜参数
f = 10; % 焦距
d = 5; % 透镜直径

% 定义高斯光参数
sigma = 1; % 高斯光半径
amp = 1; % 高斯光强度

% 定义图像大小和分辨率
n = 100; % 图像大小
m = 0.1; % 分辨率

% 创建空白图像
img = zeros(n);

% 创建六个高斯光源
for i = 1:6
    % 随机生成高斯光中心位置
    x0 = randi([1 n]);
    y0 = randi([1 n]);

    % 计算高斯光强度分布
    [x, y] = meshgrid(1:n);
    r = sqrt((x-x0).^2 + (y-y0).^2);
    g = amp * exp(-(r/sigma).^2);

    % 将高斯光源加入图像
    img = img + g;
end

% 将图像进行傅里叶变换
fimg = fft2(img);

% 创建相空间坐标
[x, y] = meshgrid(-n/2:n/2-1);
k = 2*pi / (m*n); % 波数
fx = x * k;
fy = y * k;

% 计算透镜传递函数
H = exp(-1i*pi*f*(fx.^2 + fy.^2));

% 将透镜传递函数进行傅里叶变换
fH = fft2(H);

% 计算透镜对图像的影响
fimg2 = fimg .* fH;

% 将影响后的图像进行傅里叶逆变换
img2 = ifft2(fimg2);

% 显示原始图像和聚焦后的图像
figure;
subplot(1, 2, 1);
imshow(img, []);
title('原始图像');
subplot(1, 2, 2);
imshow(abs(img2), []);
title('聚焦后的图像');

这个代码生成了一个大小为100x100的图像，并在其中加入了六个不同位置和强度的高斯光源。然后，它使用傅里叶变换将图像转换到频域，并计算透镜传递函数。接下来，它将透镜传递函数应用到图像中，并使用傅里叶逆变换将图像转换回空域。最后，它显示原始图像和聚焦后的图像。