MATLAB实现菲涅尔公式与光学系数计算

1. 菲涅尔公式与光学系数计算原理

菲涅尔公式是描述光波在两种不同介质界面处反射和透射行为的核心方程。当一束光从介质1（折射率n₁）入射到介质2（折射率n₂）时，其反射系数和透射系数可以通过菲涅尔公式精确计算。这个计算过程需要考虑光的偏振状态——分为P波（平行偏振）和S波（垂直偏振）两种情况。

在MATLAB中实现菲涅尔公式计算，本质上是对复数运算和三角函数组合的编程实现。以P波反射系数rₚ为例，其数学表达式为：

matlab复制r_p = (n2*cos(theta1) - n1*cos(theta2)) / (n2*cos(theta1) + n1*cos(theta2));

其中theta1是入射角，theta2是折射角，两者通过斯涅尔定律关联。这个公式看似简单，但实际编程时需要处理多个细节：

1. 角度与弧度的转换（MATLAB三角函数默认使用弧度）
2. 复数折射率的处理（当介质有吸收时）
3. 全反射条件的判断（当入射角大于临界角时）

关键提示：在计算折射角theta2时，必须使用asin函数并考虑可能出现复数解的情况，这对应着光波在第二种介质中的倏逝波行为。

2. MATLAB实现框架设计

2.1 基础函数结构设计

一个健壮的菲涅尔系数计算程序应该采用模块化设计。建议创建以下核心函数：

matlab复制function [r_p, r_s, t_p, t_s] = fresnel_coeff(n1, n2, theta_i)
    % 输入参数验证
    validateattributes(n1, {'numeric'}, {'scalar'});
    validateattributes(n2, {'numeric'}, {'scalar'});
    validateattributes(theta_i, {'numeric'}, {'vector', '>=', 0, '<=', 90});
    
    % 角度转换为弧度
    theta_i_rad = deg2rad(theta_i);
    
    % 计算折射角（考虑复数情况）
    theta_t_rad = asin(n1./n2 .* sin(theta_i_rad));
    
    % P波和S波反射系数计算
    r_p = (n2*cos(theta_i_rad) - n1*cos(theta_t_rad)) ./ ...
          (n2*cos(theta_i_rad) + n1*cos(theta_t_rad));
    r_s = (n1*cos(theta_i_rad) - n2*cos(theta_t_rad)) ./ ...
          (n1*cos(theta_i_rad) + n2*cos(theta_t_rad));
    
    % 透射系数计算
    t_p = 2*n1*cos(theta_i_rad) ./ (n2*cos(theta_i_rad) + n1*cos(theta_t_rad));
    t_s = 2*n1*cos(theta_i_rad) ./ (n1*cos(theta_i_rad) + n2*cos(theta_t_rad));
end

2.2 复数折射率的处理

当介质存在吸收时（如金属材料），折射率变为复数形式ñ = n + iκ。这时需要特别注意：

1. 折射角计算会产生复数结果
2. 反射系数变为复数，其模表示振幅变化，幅角表示相位跃变
3. 能量守恒验证：R + T ≠ 1（因为部分能量被吸收）

改进后的复数处理代码段：

matlab复制% 复数折射率情况下的处理
if ~isreal(n2) || ~isreal(n1)
    cos_theta_t = sqrt(1 - (n1/n2 * sin(theta_i_rad)).^2); % 直接使用复数运算
else
    cos_theta_t = cos(theta_t_rad);
end

3. 可视化分析与应用案例

3.1 反射率随入射角变化曲线

典型的可视化需求是绘制反射率（|r|²）随入射角变化的曲线：

matlab复制theta = 0:0.1:90; % 入射角范围
n_air = 1.0;
n_glass = 1.5;

[r_p, r_s] = fresnel_coeff(n_air, n_glass, theta);

figure;
plot(theta, abs(r_p).^2, 'r-', 'LineWidth', 2); hold on;
plot(theta, abs(r_s).^2, 'b--', 'LineWidth', 2);
xlabel('入射角 (度)');
ylabel('反射率');
legend('P偏振', 'S偏振');
title('空气-玻璃界面的反射率曲线');
grid on;

3.2 布鲁斯特角现象分析

P波反射系数在布鲁斯特角处会出现零值点，这个特殊角度可以通过解析计算：

matlab复制theta_B = atan(n2/n1); % 布鲁斯特角（弧度）
fprintf('布鲁斯特角：%.2f 度\n', rad2deg(theta_B));

在实际测量中，可以通过寻找反射光强最小值的位置来实验确定布鲁斯特角，这是材料光学常数测量的重要方法之一。

4. 工程应用中的进阶问题

4.1 多层膜系的计算

当需要计算多层薄膜系统的反射/透射特性时，可以采用传输矩阵法（Transfer Matrix Method）。核心思路是将每个单层膜的效应表示为2×2矩阵，然后通过矩阵连乘得到整体特性：

matlab复制function [M] = layer_matrix(n, d, lambda, theta)
    % 计算单层膜的传输矩阵
    kz = 2*pi/lambda * n .* cos(theta);
    M = [cos(kz*d), 1i/n*sin(kz*d); 
         1i*n*sin(kz*d), cos(kz*d)];
end

% 使用示例（三层膜系）：
lambda = 550e-9; % 波长550nm
n_stack = [1.0, 1.38, 2.35, 1.52]; % 空气/MgF2/ZnS/玻璃
d_stack = [0, 100e-9, 50e-9, 0]; % 各层厚度

M_total = eye(2);
for k = 2:length(n_stack)-1
    theta_k = asin(n_stack(1)/n_stack(k)*sin(theta_i));
    M_total = M_total * layer_matrix(n_stack(k), d_stack(k), lambda, theta_k);
end

4.2 材料色散关系的处理

实际材料的折射率随波长变化（色散），常用的色散模型包括：

1. 柯西公式：n(λ) = A + B/λ² + C/λ⁴
2. 塞尔迈耶尔方程：更精确但参数更多

MATLAB实现示例：

matlab复制% 柯西公式参数拟合
lambda_data = [400, 500, 600, 700, 800]; % nm
n_data = [1.53, 1.51, 1.49, 1.48, 1.47];
cauchy_fit = @(p,lam) p(1) + p(2)./lam.^2 + p(3)./lam.^4;
p0 = [1.4, 1e4, 1e7]; % 初始猜测
p = lsqcurvefit(cauchy_fit, p0, lambda_data, n_data);

% 使用拟合结果计算任意波长的折射率
lambda = 550; % nm
n_lambda = cauchy_fit(p, lambda);

5. 常见问题与调试技巧

5.1 数值不稳定问题

当入射角接近90度时，传统计算方法可能出现数值不稳定。解决方案：

1. 使用更精确的数学表达式变形
2. 对大角度情况单独处理

改进后的P波计算：

matlab复制% 更稳定的P波计算方式
n_rel = n2/n1;
cos_i = cos(theta_i_rad);
sin_i = sin(theta_i_rad);
term = sqrt(n_rel^2 - sin_i.^2);
r_p = (n_rel^2*cos_i - term) ./ (n_rel^2*cos_i + term);

5.2 能量守恒验证

正确的实现应该满足能量守恒（无吸收时）：

matlab复制R_p = abs(r_p).^2;
T_p = abs(t_p).^2 .* real(n2*cos(theta_t_rad)) ./ real(n1*cos(theta_i_rad));
energy_error = max(abs(R_p + T_p - 1));
fprintf('最大能量误差：%.2e\n', energy_error);

如果误差超过1e-10，说明实现可能存在问题，需要检查：

1. 折射角计算是否正确
2. 复数运算处理是否恰当
3. 角度是否已正确转换为弧度

6. 性能优化技巧

6.1 向量化计算

当需要计算大量入射角或波长时，向量化操作可以显著提升速度：

matlab复制% 批量计算多个波长的反射特性
lambda_range = 400:10:700; % nm
n_lambda = cauchy_fit(p, lambda_range); % 各波长对应的折射率

% 预分配内存
R = zeros(length(lambda_range), length(theta_range));

for k = 1:length(lambda_range)
    [r_p, ~] = fresnel_coeff(n1, n_lambda(k), theta_range);
    R(k,:) = abs(r_p).^2;
end

6.2 并行计算实现

对于更复杂的多层膜计算，可以使用并行计算工具箱：

matlab复制parfor k = 1:num_layers
    M_total = M_total * layer_matrix(n_stack(k), d_stack(k), lambda, theta_k);
end

重要提示：并行计算仅当单次计算耗时较长（>0.1秒）时才有效果，对于简单计算反而可能因通信开销而变慢。