亚洲免费在线-亚洲免费在线播放-亚洲免费在线观看-亚洲免费在线观看视频-亚洲免费在线看-亚洲免费在线视频

零階一類貝塞爾函數曲線及其包絡線 matlab源程序

系統 2919 0

廢話不多說,請看源程序:

    
      clear ,clc;
format long
x=(0:0.01:100)';
y_0=besselj(0,x);
% y_1=besselj(1,x); %一階,這里只畫了0階
% y_2=besselj(2,x); %二階


plot(x,y_0);grid on;
axis([0,100,-1,1]);
title('0階貝塞爾函數曲線圖');
xlabel('Variable X');
ylabel('Variable Y');

%畫包絡線
hold on;
[up,down] = envelope(x,y_0,'spline');
plot(x, up, 'r');
plot(x, down, 'r');




    
  


其中的envelope是個單獨的.m文件,是個函數,用來畫包絡線。說白了就是求拐點然后插值:

    
      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); 
    
  


效果:

零階一類貝塞爾函數曲線及其包絡線 matlab源程序

源程序下載: http://www.pudn.com/downloads495/sourcecode/windows/other/detail2062657.html

csdn上傳資源標簽里竟然沒有Matlab,桑不起啊。。。。

零階一類貝塞爾函數曲線及其包絡線 matlab源程序


更多文章、技術交流、商務合作、聯系博主

微信掃碼或搜索:z360901061

微信掃一掃加我為好友

QQ號聯系: 360901061

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描下面二維碼支持博主2元、5元、10元、20元等您想捐的金額吧,狠狠點擊下面給點支持吧,站長非常感激您!手機微信長按不能支付解決辦法:請將微信支付二維碼保存到相冊,切換到微信,然后點擊微信右上角掃一掃功能,選擇支付二維碼完成支付。

【本文對您有幫助就好】

您的支持是博主寫作最大的動力,如果您喜歡我的文章,感覺我的文章對您有幫助,請用微信掃描上面二維碼支持博主2元、5元、10元、自定義金額等您想捐的金額吧,站長會非常 感謝您的哦!!!

發表我的評論
最新評論 總共0條評論
主站蜘蛛池模板: 亚洲精品欧美日韩 | 国产精品98视频全部国产 | 四虎免费久久影院 | 国产精品三 | 精品一区二区三区免费毛片爱 | 色综合色狠狠天天久久婷婷基地 | 日韩在线手机看片免费看 | 国产97色在线 | 免费 | 免费中文字幕在线国语 | 国产亚洲精品一品区99热 | 91精品国产免费久久久久久青草 | 乱人伦中文字幕在线看 | 亚洲精品视频在线播放 | 四虎影视国产精品亚洲精品hd | 高清成人综合 | 久久中文字幕在线 | 亚洲性一区 | 国产三及| 欧美一级免费观看 | 亚洲人成网站色7799在线观看 | 精品国产视频在线观看 | 亚州综合网 | 中文字幕1区| 黄色日本视频 | 欧美综合网站 | 人人干视频在线观看 | 亚洲精品一区二区三区婷婷 | 91综合久久婷婷久久 | 久久精品男人影院 | 亚洲国产精品第一区二区 | 不卡的中文字幕 | 亚洲第一区在线 | 狠狠色噜噜狠狠狠合久 | 91不卡在线精品国产 | 精品视频香蕉尹人在线 | 亚洲一区日韩 | 成人午夜性a一级毛片美女 成人午夜性视频欧美成人 成人午夜亚洲影视在线观看 | 视频在线观看入口一二三2021 | 99国产福利 | 日本一区二区精品 | 午夜亚洲精品久久久久久 |