第 18 樓發表于 2006-4-26 16:18 資料 文集 短消息  
請問樓主有對稱小波的程序嗎？謝謝了

[em04] 
    
 
   
 
 
 
  
 
q2384  


  應門書童 
 
   
  精華: 0
 積分: 7
 帖子: 12
 威望: 6 點
 振動幣: 2698 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2005-11-23
 
 
 
 


  第 19 樓發表于 2006-4-26 19:17 資料 文集 短消息  
謝謝 
    
 
   
 
 
 
  
 
zhawenhua  


  應門書童 
 
   
  精華: 0
 積分: 2
 帖子: 6
 威望: 1 點
 振動幣: 360 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-4-26
 
 
 
 


  第 20 樓發表于 2006-4-26 21:07 資料 文集 短消息  
辛苦了


謝謝！ 
    
 
   
 
 
 
  
 
ruola  


  應門書童 
 
   
  精華: 0
 積分: 1
 帖子: 2
 威望: 1 點
 振動幣: 163 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-4-30
 
 
 
 


  第 21 樓發表于 2006-4-30 10:50 資料 文集 短消息  
請問有沒有小波系數模極大值的程序啊！ 
    
 
   
 
 
 
  
 
arlay  


  布衣書生 
 
   
  精華: 0
 積分: 3
 帖子: 24
 威望: 1 點
 振動幣: 711 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-3-13
 
 
 
 


  第 22 樓發表于 2006-4-30 14:34 資料 文集 短消息  
謝謝分享！^_^ 
    
 
   
 
 
 
  
 
simon21  


  新科狀元 
 
   
  精華: 6 
 積分: 400
 帖子: 670
 威望: 321 點
 振動幣: 23552 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 80
 注冊: 2005-7-24
 
 
 
 


  第 23 樓發表于 2006-5-23 14:44 資料 個人空間 短消息  
回復：（simon21）[分享]個人收集的一些關于小波分析的...


消失矩作用的程序

clear;clc;
f=50;
T=0.001;
n=1:50;
y=sin(2*pi*f*n*T);
noise=[zeros(1,17),0.2*randn(1,15),zeros(1,18)];
y_noise=y+noise;
figure(1);
subplot(2,1,1);
plot(y);
title('signal');
subplot(2,1,2);
plot(y_noise);
title('noise & signal');
[yl2,yh2]=dwt(y,'db2');
[yl10,yh10]=dwt(y,'db10');
figure(2);
subplot(2,1,1);
plot(yl2);
title('db2 low frequency signal');
subplot(2,1,2);
plot(yh2);
title('db2 high frequency signal');
figure(3);
subplot(2,1,1);
plot(yl10);
title('db10 low frequency signal');
subplot(2,1,2);
plot(yh10);
title('db10 high frequency signal');
[yl2,yh2]=dwt(y_noise,'db2');
[yl10,yh10]=dwt(y_noise,'db10');
figure(4);
subplot(2,1,1);
plot(yl2);
title('db2 low frequency noise & signal');
subplot(2,1,2);
plot(yh2);
title('db2 high frequency noise & signal');
figure(5);
subplot(2,1,1);
plot(yl10);
title('db10 low frequency noise & signal');
subplot(2,1,2);
plot(yh10);
title('db10 high frequency noise & signal'); 
    
 
   
 
 
 
  
 
simon21  


  新科狀元 
 
   
  精華: 6 
 積分: 400
 帖子: 670
 威望: 321 點
 振動幣: 23552 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 80
 注冊: 2005-7-24
 
 
 
 


  第 24 樓發表于 2006-5-23 14:45 資料 個人空間 短消息  
回復：（simon21）[分享]個人收集的一些關于小波分析的...


平移變換平移法(cycle_spinning)消除gibbs效應 
clear;
clc; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 1.原始信號 f=50; % 信號頻率
fs=800; % 采樣頻率
N=128; % 采樣點 % 信號賦值
n=1:N;
y=sin(2*pi*f*n/fs); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 2.噪聲
noise=0.4*rand(1,128); %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 3.染噪信號
y_noise=y+noise; %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 4.硬消噪采用cycle_spinning技術 % 累加量
z5=zeros(1,N); % 平移變換頻移法
for i=1:N;
z=circshift(y_noise.',i-1).'; % 源信號右平移
[z1,z2]=lwt(z,'db3'); % 小波正變換
z2=zeros(1,N/2); % 高頻分量全部為零（主要噪聲，硬消噪）
z3=ilwt(z1,z2,'db3'); % 小波反變換 
z4=circshift(z3.',-(i-1)).'; % 變換后信號左平移 
z5=z5+z4/N; % 平均 
end;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 5.顯示 error=norm(y-z5)/norm(y); % 相對誤差 figure(1);
subplot(2,1,1)
plot(y,'r');
legend('源信號');
subplot(2,1,2);
plot(y_noise);
legend('染噪信號'); 
figure(2);
subplot(2,1,1)
plot(y,'r');
legend('源信號');
title(error);
subplot(2,1,2);
plot(z5);
legend('消噪后信號'); 
    
 
   
 
 
 
  
 
yushouzhuo  


  應門書童 
 
   
  精華: 0
 積分: 2
 帖子: 10
 威望: 1 點
 振動幣: 654 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2005-11-15
 
 
 
 


  第 25 樓發表于 2006-5-23 16:39 資料 文集 短消息  
哇！真是好東西啊
 
    
 
   
 
 
 
  
 
cinda  


  應門書童 
 
   
  精華: 0
 積分: 1
 帖子: 1
 威望: 1 點
 振動幣: 120 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-5-23
 
 
 
 


  第 26 樓發表于 2006-5-24 16:08 資料 文集 短消息  
請教一個問題，關于三樓那個程序（2代小波示意程序 ）


2代小波示意程序 （三樓）中

……

f1(:,T+1)=f1(:,1); % 補列

f2(T+1,:)=f2(1,:); % 補行


……

補行是把分裂的偶數的第一行補到偶數的最后，但是補列

是怎么進行的？比如圖像是256×256，分裂后奇數為128

×256，偶數也為128×256，

進行f1(:,T+1)=f1(:,1); 補列之后，相當于把原來的第129列

替換成第1列

這樣補行和補列后，奇數和偶數的分裂結果為128×256和

129×256

還請大俠不吝賜教，小生在此謝過了



[em24] 
[此貼子已經被作者于2006-5-24 16:09:37編輯過]
 
    
 
   
 
 
 
  
 
crosstree  


  應門書童 
 
   
  精華: 0
 積分: 1
 帖子: 2
 威望: 1 點
 振動幣: 136 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-6-10
 
 
 
 


  第 27 樓發表于 2006-6-10 13:17 資料 文集 短消息  
多謝樓主，都是好東西~ 
    
 
   
 
 
 
  
 
灰色軌跡  


  應門書童 
 
   
  精華: 0
 積分: 2
 帖子: 11
 威望: 1 點
 振動幣: 152 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-6-10
 
 
 
 


  第 28 樓發表于 2006-6-11 08:34 資料 個人空間 短消息  
經典，謝謝 
    
 
   
 
 
 
  
 
wj118  


  應門書童 
 
   
  精華: 0
 積分: 2
 帖子: 7
 威望: 1 點
 振動幣: 359 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-6-8
 
 
 
 


  第 29 樓發表于 2006-6-13 19:13 資料 文集 短消息  
thanks


LZ是個大好人,謝謝了.收藏. 
    
 
   
 
  
 
  
 
cike5  


  布衣書生 
 
   
  精華: 0
 積分: 4
 帖子: 26
 威望: 1 點
 振動幣: 528 個
 管理積分: 0 點
 人氣指數: 0
 閱讀權限: 10
 注冊: 2006-8-13
 
 
 
 


  第 30 樓發表于 2006-8-14 19:55 資料 文集 短消息  
真的不錯


其實我一直在努力,但是水平有限,還是先向各位學習,謝謝大家! 
    
 
 53  2/4 ??1234?? 投票 
交易 
懸賞 
活動 
 


振動論壇 
家園建設 
  > 論壇公告 
  > 論壇建設 
      > 版面建設、版主申請 
  > 專家講壇 
      > 專家講壇資料 
  > 新手上路 
      > 新人送積分活動 
振動基礎 
  > 基礎力學理論 
  > 一般力學和振動理論 
  > 數學與非線性科學 
  > 算法原理及編程 
  > 結構可靠性及優化設計 
  > 控制理論及應用 
  > NVH及振動利用工程 
CFD專區 
  > CFD基礎理論與實踐 
  > Fluent討論區 
  > 其他CFD軟件討論區 
信號處理 
  > 振動實驗與測試技術 
  > 信號處理方法 
  > 故障診斷及健康監測 
噪聲分析 
  > 聲學基礎及噪聲治理 
  > 聲學分析軟件 
  > 聲學測量 
數學軟件 
  > Matlab討論區 
  > Simulink仿真專區 
  > 虛擬儀器技術 
  > 其他數學軟件 
工程軟件 
  > Ansys討論區 
  > MSC系列軟件專區 
  > ABAQUS討論區 
  > CAD軟件討論區 
  > 其他軟件及相關討論 
綜合討論 
  > 電腦安全維護 
  > 科學研究方法 
  > 信息廣場 
休閑娛樂 
  > 心情故事 
  > 圖行天下 
管理專區 



當前時區 GMT+8, 現在時間是 2007-3-31 16:04
黑ICP備06005726號 

      Powered by Discuz! 5.0.0  ? 2001-2006 Comsenz Inc. 
Processed in 0.100503 second(s), 9 queries , Gzip enabled  TOP
清除 Cookies - 聯系我們 - 中國振動聯盟 - Archiver - WAP  

社區銀行 
論壇勛章 
虛擬股市 
寵物中心 
宣傳中心 
人氣排行