应《网络安全法》要求，自2017年10月1日起，未进行实名认证将不得使用互联网跟帖服务。为保障您的帐号能够正常使用，请尽快对帐号进行手机号验证，感谢您的理解与支持！

24小时热门版块排行榜    

Znn3bq.jpeg
小木虫论坛-学术科研互动平台 » 计算模拟区 » 计算模拟 » 求懂MATLAB的高手相助，如何在MATLAB中画光谱曲线。
21/1返回列表
查看: 8840  |  回复: 1
只看楼主 @他人 存档 新回复提醒 (忽略) 收藏    在APP中查看

dongbeidushi

新虫 (初入文坛)

[求助] 求懂MATLAB的高手相助，如何在MATLAB中画光谱曲线。 已有1人参与

像这类的光谱图如何在matlab中画出来啊

求懂MATLAB的高手相助，如何在MATLAB中画光谱曲线。
[]7G8A_WA(BG1HE9RMBP%%1.png


求懂MATLAB的高手相助，如何在MATLAB中画光谱曲线。-1
R}6V)UHZ5GF(7RC3S)U{HPB.png
回复此楼

» 猜你喜欢

» 本主题相关价值贴推荐，对您同样有帮助:
1楼 2014-12-29 09:41:22
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

dbb627

荣誉版主 (著名写手)

【答案】应助回帖

★ ★ ★ ★ ★ ★ ★ ★ ★ ★
感谢参与，应助指数 +1
dongbeidushi: 金币+10 2014-12-31 09:04:43
CODE:
function spectrum_plot
[lambda, D65] = illuminant('d65');
figure;
id=lambda>=360;
lambda=lambda(id);
D65= D65(id);
plot(lambda, D65)
hold on
for i=1:(numel(lambda)-1)
    X=[lambda(i) lambda(i) lambda(i+1) lambda(i+1) lambda(i)];
    Y=[0 D65(i) D65(i+1) 0 0];
    RGB=Wavelength2RGB(lambda(i));
    fill(X',Y',[RGB(1)/255 RGB(2)/255 RGB(3)/255],'EdgeColor',[RGB(1)/255 RGB(2)/255 RGB(3)/255])
end
title('D_{65} illuminant')

求懂MATLAB的高手相助，如何在MATLAB中画光谱曲线。-2
untitled.jpg
CODE:
function RGB=Wavelength2RGB(Wavelength)
Gamma = 0.8;
IntensityMax = 255;

if Wavelength >= 380 & Wavelength <= 439
    Red = -(Wavelength - 440) / (440 - 350);
    Green = 0.0;
    Blue = 1.0;
elseif Wavelength >= 440 & Wavelength <= 489
    Red = 0.0;
    Green = (Wavelength - 440) / (490 - 440);
    Blue = 1.0;
elseif Wavelength >= 490 & Wavelength <= 509
    Red = 0.0;
    Green = 1.0;
    Blue = -(Wavelength - 510) / (510 - 490);
elseif Wavelength >= 510 & Wavelength <= 579
    Red = (Wavelength - 510) / (580 - 510);
    Green = 1.0;
    Blue = 0.0;
elseif Wavelength >= 580 & Wavelength <= 644
    Red = 1.0;
    Green = -(Wavelength - 645) / (645 - 580);
    Blue = 0.0;
elseif Wavelength >= 645 & Wavelength <= 780
    Red = 1.0;
    Green = 0.0;
    Blue = 0.0;
else
    Red = 0.0;
    Green = 0.0;
    Blue = 0.0;
end
  
if Wavelength >= 350 & Wavelength <= 419
    factor = 0.3 + 0.7*(Wavelength - 380)/(420 - 380);
elseif Wavelength >= 420 & Wavelength <= 700
    factor = 1.0;
elseif Wavelength >= 701 & Wavelength <= 780
    factor = 0.3 + 0.7*(780 - Wavelength)/(780 - 700);
else
    factor = 0.0;
end
r=255*(Red*factor)^Gamma;
g=255*(Green*factor)^Gamma;
b=255*(Blue*factor)^Gamma;

R=r;
G=g;
B=b;
RGB=[R G B];
赞一下(1人) 回复此楼
The more you learn, the more you know, the more you know, and the more you forget. The more you forget, the less you know. So why bother to learn.
2楼2014-12-29 18:49:20
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 dongbeidushi 的主题更新
21/1返回列表
信息提示
关闭
请填处理意见
关闭