设为首页收藏本站|繁體中文 快速切换版块

 找回密码
 立即加入
搜索
查看: 1601|回复: 1

半波傅氏算法的matlab实现

[复制链接]

该用户从未签到

尚未签到

发表于 2010-4-1 18:33:09 | 显示全部楼层 |阅读模式

马上加入,结交更多好友,共享更多资料,让你轻松玩转电力研学社区!

您需要 登录 才可以下载或查看,没有账号?立即加入

×
%半波傅氏算法,数据窗10ms7 }( R# b% K9 f2 w& g
N=12;
4 z# x4 L' F' D( n& a h=input('请输入谐波次数(1 or 3):'); % _0 N, f2 o1 k! j9 F5 F7 X4 J5 P
z=1+sqrt(-1)*sqrt(3);            $ W& k- ^( B! b" r
t=0:0.02/N:0.02;8 {" A1 R! Z5 R' m) e, d' F
u= sin(2*pi*50*t)+2*sin(2*3*pi*50*t-pi/6);  
$ H0 b1 U6 p1 ~6 G3 G  t1=0:0.0001:0.07;   
. L  J  k) x( o, I2 `6 }   u1=sin(2*pi*50*t1)+2*sin(2*3*pi*50*t1-pi/6);               
( m' r3 d, ~! @5 @. m       subplot(211);  plot(t1,u1);title('连续图');1 l2 R7 W9 o4 b8 L) l+ q
       subplot(212);  stem(t,u);title('离散图');# y& v( I- i. _& p
                                   i=u./z;  
6 W( b1 e) a+ D  q) B! M0 T3 y                              
- W9 ]+ p; ?& U9 I                S=0;C=0;, V; k% E8 B  E" X; `& Z3 o
        for  k=1:N/2            
7 W7 S! F" _) k                             S=S+u(k)*sin(h*(k-1)*2*pi/N);   ; [( S. o2 p5 o+ h1 R. \; h5 g' V
                             C=C+u(k)*cos(h*(k-1)*2*pi/N);% N2 e  `( b) F$ W, ]& \( l3 s3 m' D
                         . k8 C2 f) g" X4 j
        end
" G+ P; t+ u3 P6 A                                 Us=S*4/N; . Y0 ]' B4 U- B, Z$ X
                                Uc=4*C/N;6 l2 m$ m" U, T5 S8 f8 F
                               U=abs(Us+sqrt(-1)*Uc)/sqrt(2);" }8 t. O9 C1 [' p
                             JU=angle(Us+sqrt(-1)*Uc);+ G/ U( [& H& [5 w; Y& b. g
               S=0;C=0;
: K# w' ]( F( k         for  k=1:N/2
, v2 h7 {  z. @* i                                S=S+i(k)*sin(h*(k-1)*2*pi/N);' T* f- ^! C; n
                              
! Y9 ?+ d" ^/ t3 D3 X, r                                C=C+i(k)*cos(h*(k-1)*2*pi/N);
- D+ o2 m% v( }& M6 i1 ]                           + J" C3 d: ]/ T9 |3 v
         end
2 ~3 r8 M9 ^+ w8 L7 f$ X8 e  |                                Is=S*4/N;
- s, a! O5 o) }. }6 R$ r                             Ic=4*C/N;
8 ~8 g' c6 B5 K0 V+ f& G* c                          I=abs(Is+sqrt(-1)*Ic)/sqrt(2);
1 q+ Y2 n+ i( q. ~                         JI=angle(Is+sqrt(-1)*Ic);3 `  `. _% B/ b' K' B
U                        
; Y# O# ]9 L2 {  P/ m  {* n% zI  U5 i4 h$ R# h! f
cos(JU-JI)
"真诚赞赏,手留余香"
还没有人打赏,支持一下
楼主热帖
帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】

该用户从未签到

尚未签到

发表于 2010-7-11 13:59:37 | 显示全部楼层
谢了,哈哈,
"真诚赞赏,手留余香"
还没有人打赏,支持一下
帖文化:【文明发帖 和谐互动】 社区精神:【创新、交流、互助、共享】
您需要登录后才可以回帖 登录 | 立即加入

本版积分规则

招聘斑竹

小黑屋|手机版|APP下载(beta)|Archiver|电力研学网 ( 赣ICP备12000811号-1|赣公网安备36040302000210号 )|网站地图

GMT+8, 2026-10-24 20:46

Powered by Discuz! X3.5 Licensed

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表