- 在线时间
- 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)
6 K; N3 m7 `5 r8 ~: D& U, falpha=0.05;. d }) n& v- s/ j1 W0 p2 ~
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。
`3 c$ J7 I6 yA=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';: \; K+ |! p; J4 f M' F' D
[mu,sigma]=normfit(A);
5 y v8 \+ u# g- i; D2 Y# C, Jp1=normcdf(A,mu,sigma);! `+ c) f2 Y: }. p- U
[H1,s1]=kstest(A,[A,p1],alpha)
/ t8 P/ U/ Y- b$ G2 S: Tn=length(A);: H: f8 I* T) j5 E
if H1==0
; ?/ f0 d {* ndisp('该数据源服从正态分布。')
0 J" M9 R) S' _/ t4 y! ]0 V- x* ielse8 m4 f7 b7 j; {2 [0 ~+ Q8 b |
disp('该数据源不服从正态分布。') ) R/ p4 D' q: [) Q2 {+ F
end# k, X" s2 }! F
phat=gamfit(A,alpha);
4 y$ d9 c3 a6 u2 }; Y$ _+ h2 op2=gamcdf(A,phat(1),phat(2));+ j4 c, R$ z$ V4 P) s7 A+ y0 _
[H2,s2]=kstest(A,[A,p2],alpha)! i1 l; X( R# n
if H2==05 f( K# d) \8 K% g
disp('该数据源服从γ分布。') V+ J: ]& e9 B5 H* U8 n$ S
else
8 c" z* J/ ]; A# j! O0 U. b. xdisp('该数据源不服从γ分布。')6 ~( l9 _; o0 t! t. [2 S
end# S9 B" r* I9 g6 n6 Z
lamda=poissfit(A,alpha);. ] C% M2 X* X
p3=poisscdf(A,lamda);
! F) y/ E7 k4 d: J7 ~2 i8 ~& ^[H3,s3]=kstest(A,[A,p3],alpha)- \7 E6 k- X" [& `2 k
if H3==0% t) h$ |6 K3 ]3 f( o3 }' B! ]
disp('该数据源服从泊松分布。') - F, ]9 H* R \. A4 u! B
else
, W2 \, m; ^! o- ndisp('该数据源不服从泊松分布。') ) |. h. x3 K8 \
end1 j% [, L$ F/ F
mu=expfit(A,alpha);8 [! e/ C, s1 @* |
p4=expcdf(A,mu);6 I: Y3 E9 h6 a4 ^
[H4,s4]=kstest(A,[A,p4],alpha)3 V' A8 Z) z1 p. h
if H4==04 M" O) K# i* X
disp('该数据源服从指数分布。') 8 I6 p& L+ i4 v% _ y. ], A0 a
else& H; s ]0 S) d, B9 t
disp('该数据源不服从指数分布。')
" k$ J* G) }( Kend: ~1 a# K& L2 c& A) j/ N, f2 S/ T# _
[phat, pci] = raylfit(A, alpha)2 u8 K! k# ]4 f% l0 u9 [$ D: M8 j
p5=raylcdf(A,phat);6 k( i) V: m3 i' \% z
[H5,s5]=kstest(A,[A,p5],alpha)3 _, u3 J- k7 \* M# m
if H5==0
6 k: o4 \' t( d9 |/ h) K- U' ndisp('该数据源服从rayleigh分布。') ! L9 O7 j! ~. s( Y( f+ d' }2 f
else. U* G+ _$ `4 V# u1 ^, F
disp('该数据源不服从rayleigh分布。')5 D8 P! Z5 D7 _* K: j
end |
zan
|