caculate_thermallens.m

激光晶体热透镜效应相关计算

% 该程序上接pingao_thermalense_matrix.m主程序
% 注意需用“查找替换”使所有的“*”，“/”，“^”前都加点“.”，每次光标需定位到最前面

clear;
f=1:1:800;
ADhalf=5175451./378450./f-2797./2175-361./174.*(8461789./756900./f-5233./4350)./f;
plot(f,ADhalf)
xlabel('f(mm)'),ylabel('(A+D)/2')