PSI-SI 源代码

function[signal,a_new,fact]=rescale(signal,a,delta_x1); % This routine calculates the parameters to transform the input for the % …

% 定义带宽和中心频率 fb = 1.5; fc = 1; % 设置有效支撑和网格 lb = -8; ub = 8; n = 1000; % 计算复Morlet小波cmor1.5-1 [psi,x] = cmorwavf(lb,ub,n,fb,fc)…

% 设置有效支撑和网格参数 lb = -5; ub = 5; n = 1000; % 计算4阶复Gaussian小波 [psi,x] = cgauwavf(lb,ub,n,4); % 画出4阶复Gaussian小波 subplot(211) plo…

% 设置阶次，带宽，中心频率等参数 m = 2; fb = 1; fc = 0.5; % 设置有效支撑和网格参数 lb = -20; ub = 20; n = 1000; % 计算复频率B样条小波 fbsp2-0.5-1 [psi,x] = fbsp…

% 指定小波类型 wname = 'db4'; % 画出小波函数 [phi,psi,xval] = wavefun(wname,7); subplot(211); plot(xval,psi); title('db4小波'); % 计算并画出小波积…

% 设置带宽和中心频率 fb = 1; fc = 1.5; % 设置有效支撑和网格参数 lb = -20; ub = 20; n = 1000; % 计算复Shannon小波shan1.5-1. [psi,x] = shanwavf…

% 设置小波名称和计算次数 iter = 10; wav = 'sym4'; % 用迭代算法计算小波函数的近似值 for i = 1:iter [phi,psi,xval] = wavefun(wav,i); plot(xval…

% 设置有效支撑和网格参数 lb = -8; ub = 8; n = 1024; % 计算并画出Meyer小波和尺度函数 [phi,psi,x] = meyer(lb,ub,n); subplot(211), plot(x,psi) title…

/* * Many processors support a floating-point coprocessor, which may * implement a faster multiplication instruction than…

Example 4. An Example of Output Generated by a Hydraulic Analysis Program using MEL. (From the input data given in Example 1.) …