写一个matlab程序，计算某温度下给定波段内的黑体光谱辐射亮度和光谱辐射强度，给定波段内的积分辐射强度，，把计算结果写入excel文件

好的，以下是Matlab程序：

% 输入参数
T = input('请输入温度（K）：');
lambda1 = input('请输入波段起始波长（nm）：');
lambda2 = input('请输入波段终止波长（nm）：');
d_lambda = input('请输入波长间隔（nm）：');
I_lambda = input('请输入波段内的积分辐射强度（W/m^2/nm）：');
filename = input('请输入要保存的文件名：','s');

% 常数定义
h = 6.626e-34; % Planck常数
c = 2.998e8; % 光速
k = 1.381e-23; % 玻尔兹曼常数

% 计算波长和黑体光谱辐射亮度
lambda = lambda1:d_lambda:lambda2;
B_lambda = 2*h*c^2./lambda.^5./(exp(h*c./(lambda*k*T))-1);

% 计算光谱辐射强度
E_lambda = B_lambda./pi;
I_lambda_calc = trapz(lambda,E_lambda);

% 输出结果
disp(['波长范围：',num2str(lambda1),'nm - ',num2str(lambda2),'nm']);
disp(['波长间隔：',num2str(d_lambda),'nm']);
disp(['积分辐射强度：',num2str(I_lambda),'W/m^2/nm']);
disp(['计算得到的辐射强度：',num2str(I_lambda_calc),'W/m^2/nm']);

% 写入Excel文件
data = [lambda' B_lambda' E_lambda'];
header = {'波长（nm）','黑体光谱辐射亮度（W/m^2/nm/sr）','光谱辐射强度（W/m^2/nm）'};
xlswrite(filename,header,'Sheet1','A1');
xlswrite(filename,data,'Sheet1','A2');

你可以直接将上述代码复制到Matlab编辑器中运行，并按照提示输入参数即可。程序会计算给定温度下给定波段内的黑体光谱辐射亮度和光谱辐射强度，并将结果写入Excel文件中。