我要一段基于几何相位原理的消色差超透镜位相分布的MATLAB代码

以下是一个基于几何相位原理的消色差超透镜位相分布的简单MATLAB代码：

clear; clc;

% Define parameters
lambda = 0.6328; % Wavelength (μm)
f = 100; % Focal length (mm)
d = 10; % Diameter of lens (mm)
n = 1.5; % Refractive index

% Generate a meshgrid of x and y coordinates
[x, y] = meshgrid(-d/2:0.1:d/2, -d/2:0.1:d/2);

% Calculate the wavefront using the geometric phase principle
z = lambda*f./(2*n*sqrt(x.^2 + y.^2));

% Plot the wavefront
mesh(x, y, z);
xlabel('x (mm)');
ylabel('y (mm)');
zlabel('Phase (rad)');

请注意，这只是一个简单的代码，并不保证在所有情况下都能正确工作。您可能需要根据您的具体需求对代码进行修改。