- 在线时间
- 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); J" Q2 g* t) a) p: O
alpha=0.05;3 k. v2 G; z7 H$ T( C6 y, L u2 i
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。
- x! x: {5 H- e/ O9 D; h" NA=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';
8 _' E0 S1 b4 w; ~# _[mu,sigma]=normfit(A);1 _$ P) H3 H+ [
p1=normcdf(A,mu,sigma);
% N5 A5 U/ K% N" a4 p) q8 {[H1,s1]=kstest(A,[A,p1],alpha)( u3 o( ]+ Q4 K7 F) q
n=length(A);1 O( G: J( l2 j
if H1==0( `# q' K5 B, _# E; f, t- o( e! ]. K
disp('该数据源服从正态分布。')8 y- L5 f2 G& p2 I
else: O/ L3 L: p. _
disp('该数据源不服从正态分布。')
( s0 P5 j0 E/ y1 S& aend% t; S& w$ z, U5 t3 ]" Q7 V+ y0 g! [
phat=gamfit(A,alpha);9 J# J, Q; V2 o9 H1 o" T- c
p2=gamcdf(A,phat(1),phat(2));
3 @- ]2 s) p$ Q/ l: P0 H# `7 _[H2,s2]=kstest(A,[A,p2],alpha)
7 s# Z% G# V9 fif H2==0/ N( Z5 P a5 i* b, U0 {2 G
disp('该数据源服从γ分布。')
6 {* \" R# ?9 ~else% A8 J# j; A6 S" c! x
disp('该数据源不服从γ分布。')
. x0 F. O5 s. e: S2 Fend
3 o9 ^2 W& N# j/ {lamda=poissfit(A,alpha);6 D3 m: L( ^7 g! B9 M! ~! ?
p3=poisscdf(A,lamda);
0 X) Z. [" {9 f5 x6 l* l1 q[H3,s3]=kstest(A,[A,p3],alpha)7 a" r; q- z& s; n5 [
if H3==0
- J8 T( c6 `; i& c: Q; C& xdisp('该数据源服从泊松分布。') 4 R& L5 G" e& G! e* R5 l+ Y
else
- D8 Y e ?- `3 f" cdisp('该数据源不服从泊松分布。')
' g& R* k, H% @+ qend
8 J0 |0 Y$ T. B5 B5 q4 ?* _, M3 m4 Wmu=expfit(A,alpha);- e1 B/ Q% V. x. K' J) T2 L% _
p4=expcdf(A,mu);
! D% B, g* ?; X# g( Y( D2 h/ v[H4,s4]=kstest(A,[A,p4],alpha)
3 n8 c+ Z2 D# H4 c) l( s- qif H4==0* a% q* R$ V/ {* L
disp('该数据源服从指数分布。')
4 `4 S" a8 `- p1 _& Aelse
- c/ A" l+ F2 y' v. \ Cdisp('该数据源不服从指数分布。')
& f7 M: y' V! m$ `2 H) Zend. K4 \% j# P, O. d& Z! T
[phat, pci] = raylfit(A, alpha)
3 c7 e$ g% i1 p9 G# { p2 C4 r7 pp5=raylcdf(A,phat);4 P7 n5 s V; M; M
[H5,s5]=kstest(A,[A,p5],alpha)
8 i: a N, L3 p7 E$ bif H5==03 j' B3 V! r7 {9 f" z' G
disp('该数据源服从rayleigh分布。') 4 q, T: q* u4 o4 u1 `3 `7 F5 `
else
' N# j8 k; c/ Z# m2 A! Q3 j& `5 l( ddisp('该数据源不服从rayleigh分布。')( B- b5 P+ Y# ~ q0 W0 a
end |
zan
|