Matlab实现普朗克函数

本文分享了一段MATLAB代码,用于绘制不同温度下普朗克函数所表示的光谱辐出度随波长变化的图像。通过设置温度范围和波长计算步长,可以得到清晰直观的图像。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

做论文实验需要普朗克函数,在CSDN发现了这个算法,不错分享了。记录下来~~~~

普朗克函数+图像

在这里插入图片描述
代码:

clear all;
close all;
c1=3.741832;%第一辐射常数
c2=14387.86;%第二辐射常数
for T=270:10:370 % 设置辐射温度(K)
l=0.0001:0.02:15; % 设置波长范围及计算步长
M=1e+4.*(c1./(l.^5)./(exp(c2./(l.*T))-1)); % 计算指定温度光谱辐出度
plot(l,M,'-b','LineWidth',1.4) % 绘制光谱辐出度曲线
maxM = max(M) % 找出指定温度最大光谱辐出度
i=find(maxM==M); % 找峰值波长点
text(l(i+20),M(i+20),[num2str(T),'K'],'VerticalAlignment',...
'baseline','HorizontalAlignment','left','fontsize',7)
hold on % 在指定位置按给定方式标记对应温度
end
set(gca,'XTick',[0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15]) %设置横坐标点
xlabel('\lambda / \mum') % 横坐标名称及单位
ylabel('M_{b\lambda} / W\cdotcm^{-2}\cdot\mum^{-1}') % 纵坐标名称及单位
hold off
评论 1
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

Escape the bug

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值