| 查看: 237 | 回复: 2 | |||
| 当前主题已经存档。 | |||
| 【有奖交流】积极回复本帖子，参与交流，就有机会分得作者 ddx-k 的 5 个金币 | |||
[交流]
【求助】如何做震荡曲线（光透射谱）的包络线？【已解决】
|
|||
|
如果解决问题10金币奖励。 我测了一个薄膜的透射谱图，想根据透射谱计算出折射率等信息，需要做包络线 请问如何做一个震荡曲线的包络线？ 就是把第一个图做成第二个图的样子？？ [ Last edited by ddx-k on 2008-12-18 at 18:44 ] |
回复此楼» 猜你喜欢
青椒八年已不青，大家都被折磨成啥样了？
已经有11人回复
-
限项规定
已经有9人回复
-
免疫学博士有名额，速联系
已经有4人回复
-
交叉科学部支持青年基金，对三无青椒是个机会吗？
已经有5人回复
-
国家基金申请书模板内插入图片不可调整大小?
已经有6人回复
-
国家级人才课题组招收2026年入学博士
已经有5人回复
-
Fe3O4@SiO2合成
已经有6人回复
-
青年基金C终止
已经有4人回复
-
26申博求博导推荐-遥感图像处理方向
已经有4人回复
-
西南交通大学国家级人才团队2026年博士研究生招生（考核制）—机械、材料、力学方向
已经有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