- 在线时间
- 34 小时
- 最后登录
- 2014-5-13
- 注册时间
- 2012-2-7
- 听众数
- 4
- 收听数
- 0
- 能力
- 0 分
- 体力
- 370 点
- 威望
- 0 点
- 阅读权限
- 30
- 积分
- 163
- 相册
- 0
- 日志
- 0
- 记录
- 0
- 帖子
- 96
- 主题
- 5
- 精华
- 0
- 分享
- 0
- 好友
- 37
升级   31.5% TA的每日心情 | 无聊 2014-3-17 18:33 |
|---|
签到天数: 54 天 [LV.5]常住居民I
 群组: 学术交流B |
function f=p_judge(A,alpha)
3 S4 h, u$ `, I' b0 J5 w* Kalpha=0.05;# B# T9 r3 @: G3 h
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。
- r7 |0 h7 S0 ^! ]) i: _A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';
8 i9 d8 S5 Z5 j# |! Y, E0 ^[mu,sigma]=normfit(A); ~; T3 o& k/ p# ^. Z( J G
p1=normcdf(A,mu,sigma);( [/ N9 V3 g7 [6 a6 k
[H1,s1]=kstest(A,[A,p1],alpha)
/ O: Q# q3 m. a7 z, @n=length(A);. \. {' H1 |/ ?* x/ O8 p
if H1==0
1 z0 G9 _( J/ R6 @. N6 T" Adisp('该数据源服从正态分布。')
; _* m8 ]# H& kelse5 T7 l1 }4 t# U. a M9 O2 v
disp('该数据源不服从正态分布。')
" K9 Z/ F' r2 F6 \$ I( Dend. {1 @" Y d- k! P0 e
phat=gamfit(A,alpha);& T4 V1 I- H% G& F6 g7 |6 U
p2=gamcdf(A,phat(1),phat(2));6 c6 o; _; B9 H/ K
[H2,s2]=kstest(A,[A,p2],alpha)
! G" s+ ^1 G& R! Aif H2==09 w! H& l6 m. d
disp('该数据源服从γ分布。')2 {2 s. A' D- `, H
else
5 h/ N. P6 p; m6 o" Wdisp('该数据源不服从γ分布。')
3 b9 N) k8 P+ j' ~" w' Rend* U, C% d" c5 S' L0 W
lamda=poissfit(A,alpha);7 Z5 j& X2 K% Y/ z
p3=poisscdf(A,lamda);
$ Z" q# Y$ d4 A4 b) x1 i5 H1 @ H[H3,s3]=kstest(A,[A,p3],alpha)
) z$ Y+ A& o5 c; d! uif H3==0
$ l A' L/ t# m; Kdisp('该数据源服从泊松分布。') ; @) h. F7 ^" N' X) L1 t% _
else
1 ~: D) v$ }, c4 n! W7 V! }disp('该数据源不服从泊松分布。') / F4 c$ H( P9 M* y% I, f
end+ i8 m4 B7 p% c, |8 [7 S
mu=expfit(A,alpha);/ e2 o) k4 ? N+ ?/ d
p4=expcdf(A,mu);
+ ~9 d) c; F+ G. f0 }# } M" ^[H4,s4]=kstest(A,[A,p4],alpha)( P( U. ]' k- V% V% i. Q
if H4==0' t1 G& E- X6 p* X
disp('该数据源服从指数分布。') 2 e" A' j1 ?1 B* W! l$ ]
else
$ Z9 m. A; E* ^disp('该数据源不服从指数分布。')
% V: h4 W8 p5 W6 ]3 z( h" Wend
7 U5 R) q1 `, P- v4 L/ p% I, \7 i[phat, pci] = raylfit(A, alpha)
# F% F: g# a0 K3 p( r( ap5=raylcdf(A,phat);) s4 ^, a8 {2 \
[H5,s5]=kstest(A,[A,p5],alpha)( n. p8 P* ?9 v' a4 y/ g, S( ~% Y
if H5==0
* Z- h# v- k5 o8 j% Y; D1 Rdisp('该数据源服从rayleigh分布。') $ W, R8 O1 H1 q, V5 J2 ~5 v
else( ^; ]3 I/ J) V9 q
disp('该数据源不服从rayleigh分布。'), Y8 P' S. Z( w1 T7 V3 t1 m
end |
zan
|