- 在线时间
- 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)
8 o3 d4 e9 `, R! jalpha=0.05;
H- Q; x2 k6 ?; D$ I% U9 j8 h% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。+ Z W, r, j& q+ x- l" Y7 a5 A
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';
9 U' t! D: E. P[mu,sigma]=normfit(A);
- x% B% a) ^- V' R6 X& W" Jp1=normcdf(A,mu,sigma);0 i! j, G$ u+ r4 J3 {3 \' v$ O
[H1,s1]=kstest(A,[A,p1],alpha)
1 O" r0 Z4 ~# \ v, P3 `n=length(A);
3 r3 z) O$ U+ p8 Tif H1==03 j5 O6 ]8 E% h8 d( R9 H( R$ {
disp('该数据源服从正态分布。')
+ p# `) B8 R1 _9 melse7 u* \2 a3 U7 @/ o9 R
disp('该数据源不服从正态分布。') , c/ c" V' g* B& {) o
end
( I, H4 N+ \6 \( N0 x$ C) L4 a iphat=gamfit(A,alpha);
# @1 y5 c: K1 F. W- Lp2=gamcdf(A,phat(1),phat(2));
; p& A9 W/ ]5 }8 s. P4 ?) M[H2,s2]=kstest(A,[A,p2],alpha)
7 O9 K9 F4 ?3 ^- i1 m" ^# ~if H2==0
- t# d6 y' j: P4 vdisp('该数据源服从γ分布。')# ^$ f. H/ p& y/ L
else
& B& }6 b( K7 W1 y# x- v; W* O7 {disp('该数据源不服从γ分布。')3 x: J8 `" X6 d
end
/ J$ Q. e3 p- W/ F3 g. t. k9 R6 tlamda=poissfit(A,alpha);" Z u" E0 s4 J" P2 S3 ]6 @, u
p3=poisscdf(A,lamda);
5 j. e! D9 J6 k' K" ^8 N! P: O[H3,s3]=kstest(A,[A,p3],alpha)
" s4 u+ O$ g" j' ~if H3==0
, P9 k9 ~/ N$ ~6 U6 `; q; Xdisp('该数据源服从泊松分布。') / r- F V3 Q$ I* C3 @% w% I
else( l" Q0 `/ H) b8 p w# G
disp('该数据源不服从泊松分布。') # N' A& l! |5 D W& V3 Q. @
end
1 N& `- r2 t4 X' F' Kmu=expfit(A,alpha);# Y5 X1 p3 O* t/ d9 |
p4=expcdf(A,mu);" X1 x z7 U0 P, A) v( X5 y# [" z
[H4,s4]=kstest(A,[A,p4],alpha)# w( s) L1 R0 e6 O* \! T! \3 A C
if H4==0$ H1 J, h1 d, Q4 ~. Q! g
disp('该数据源服从指数分布。')
$ ^1 K+ `7 |6 b# u9 Z7 ]else
" @7 |1 u5 B P# w% gdisp('该数据源不服从指数分布。')
1 E3 |- w m$ }3 n# I8 c: G5 ?end
" }9 ~, ~+ D% Q# t' A7 Q[phat, pci] = raylfit(A, alpha)
: L$ l3 e6 t7 w6 n8 M! Fp5=raylcdf(A,phat);* D% k3 M+ J$ f& i- O
[H5,s5]=kstest(A,[A,p5],alpha)
+ B# ~& ]) V2 I1 ~7 m! f$ q. Hif H5==0
1 K) Y+ n* N* c/ M" u1 n/ z6 @disp('该数据源服从rayleigh分布。')
4 x0 S; l) c3 K5 v0 welse
5 s4 ~' m! r. y7 D hdisp('该数据源不服从rayleigh分布。')
2 V1 \( L/ w9 @! S) p* u( Nend |
zan
|