| 查看: 234 | 回复: 2 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 ddx-k 的 5 个金币 | |||
[交流]
【求助】如何做震荡曲线（光透射谱）的包络线？【已解决】
|
|||
|
如果解决问题10金币奖励。 我测了一个薄膜的透射谱图，想根据透射谱计算出折射率等信息，需要做包络线 请问如何做一个震荡曲线的包络线？ 就是把第一个图做成第二个图的样子？？ [ Last edited by ddx-k on 2008-12-18 at 18:44 ] |
回复此楼» 猜你喜欢
请问哪里可以有青B申请的本子可以借鉴一下。
已经有4人回复
-
真诚求助：手里的省社科项目结项要求主持人一篇中文核心，有什么渠道能发核心吗
已经有6人回复
-
孩子确诊有中度注意力缺陷
已经有14人回复
-
三甲基碘化亚砜的氧化反应
已经有4人回复
-
请问下大家为什么这个铃木偶联几乎不反应呢
已经有5人回复
-
请问有评职称，把科研教学业绩算分排序的高校吗
已经有5人回复
-
2025冷门绝学什么时候出结果
已经有3人回复
-
天津工业大学郑柳春团队欢迎化学化工、高分子化学或有机合成方向的博士生和硕士生加入
已经有4人回复
-
康复大学泰山学者周祺惠团队招收博士研究生
已经有6人回复
-
AI论文写作工具：是科研加速器还是学术作弊器？
已经有3人回复
baijinj
木虫 (小有名气)
- 应助: 2 (幼儿园)
- 金币: 2238.9
- 红花: 2
- 帖子: 192
- 在线: 33.1小时
- 虫号: 180005
- 注册: 2006-02-09
- 性别: GG
- 专业: 光子与光电子器件
这是一个matlab程序，你试一下
★ ★ ★ ★ ★ ★ ★
GrasaVampiro(金币+2,VIP+0):原创吗？
ddx-k(金币+5,VIP+0):谢谢你的帮助，我试下如果可以，金币补起！！1
GrasaVampiro(金币+2,VIP+0):原创吗？
ddx-k(金币+5,VIP+0):谢谢你的帮助，我试下如果可以，金币补起！！1
|
function [up,down] = envelope(x,y,interpMethod) %ENVELOPE gets the data of upper and down envelope of the known input (x,y). % % Input parameters: % x the abscissa of the given data % y the ordinate of the given data % interpMethod the interpolation method % % Output parameters: % up the upper envelope, which has the same length as x. % down the down envelope, which has the same length as x. % % See also DIFF INTERP1 % Designed by: Lei Wang, <WangLeiBox@hotmail.com>, 11-Mar-2003. % Last Revision: 21-Mar-2003. % Dept. Mechanical & Aerospace Engineering, NC State University. % $Revision: 1.1 $ $Date: 3/21/2003 10:33 AM $ if length(x) ~= length(y) error('Two input data should have the same length.'); end if (nargin < 2)|(nargin > 3), error('Please see help for INPUT DATA.'); elseif (nargin == 2) interpMethod = 'linear'; end % Find the extreme maxim values % and the corresponding indexes %---------------------------------------------------- extrMaxValue = y(find(diff(sign(diff(y)))==-2)+1); extrMaxIndex = find(diff(sign(diff(y)))==-2)+1; % Find the extreme minim values % and the corresponding indexes %---------------------------------------------------- extrMinValue = y(find(diff(sign(diff(y)))==+2)+1); extrMinIndex = find(diff(sign(diff(y)))==+2)+1; up = extrMaxValue; up_x = x(extrMaxIndex); down = extrMinValue; down_x = x(extrMinIndex); % Interpolation of the upper/down envelope data %---------------------------------------------------- up = interp1(up_x,up,x,interpMethod); down = interp1(down_x,down,x,interpMethod); |
2楼2008-12-17 16:12:38
3楼2008-12-18 09:04:40