- 在线时间
- 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)
& o0 L9 v2 U+ S, l) r, z6 Ialpha=0.05;
" \4 `! ]% D) v: P: C5 |$ C' [% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。, e! `2 W8 Q q7 {2 L( ]
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';/ a: J. G' D/ N, e8 j% p
[mu,sigma]=normfit(A);
# N5 q. o( G$ F. |" A3 X( N4 N. w7 rp1=normcdf(A,mu,sigma);; V: @& |+ A* M/ P
[H1,s1]=kstest(A,[A,p1],alpha)+ K) l% a0 S9 o6 c( N* ?2 _3 r
n=length(A);0 z4 x( @, N: t- ]2 @
if H1==01 `- J8 [3 Z0 b, E; i- W: T( v7 j: y
disp('该数据源服从正态分布。')
; W' }( A% B' v7 D/ I: xelse
6 L1 @* [ _9 S. ]disp('该数据源不服从正态分布。') ~/ W1 W8 w, n9 _. m+ P7 s( |
end- w! N1 @7 b4 @2 ^+ ?) @2 K7 J
phat=gamfit(A,alpha);
8 }9 O1 k4 K0 ?' d2 Y up2=gamcdf(A,phat(1),phat(2));
4 ?4 U( B$ g) K5 K4 b# r[H2,s2]=kstest(A,[A,p2],alpha)7 X# C, c% i1 t1 J" E; o* W4 ]+ k
if H2==0: j- `4 Q6 X% Y; U( b
disp('该数据源服从γ分布。')
% P& v# T9 v# w1 R K2 v) p- nelse3 x* |+ _4 Z9 M
disp('该数据源不服从γ分布。')
# J. w: E# ?0 ^- P3 M0 O' `end
8 s4 ~- {+ R" V |6 c5 dlamda=poissfit(A,alpha);
% T5 J9 }! K# R' p0 w' Y5 ep3=poisscdf(A,lamda);! U' H6 Y% C9 t
[H3,s3]=kstest(A,[A,p3],alpha)
: q4 A0 V2 ~6 L. Lif H3==0% K6 j" H; ^) q6 x o
disp('该数据源服从泊松分布。')
- D) T/ W% H- j lelse
, s: j$ n/ H3 L8 n5 V" ydisp('该数据源不服从泊松分布。') ) P- Z1 Q/ x! [
end3 D2 B+ D1 t! ~# @
mu=expfit(A,alpha);! b4 k I& x9 P6 h" E1 `5 ~
p4=expcdf(A,mu);
2 j& X N! X/ Y8 ~" [% R[H4,s4]=kstest(A,[A,p4],alpha)& [) i+ Y* q# j0 W; u' Z. z2 c" i& z
if H4==03 U& r* A6 {5 ?. c; T8 U- s
disp('该数据源服从指数分布。')
$ o9 w& `& S2 \1 ~2 D- _) h: eelse
4 c" i* |* @ s- ydisp('该数据源不服从指数分布。')
3 x( Y+ v# T1 o9 X! Q7 }+ X- mend
2 P+ `' K6 N6 x( I[phat, pci] = raylfit(A, alpha)2 p G7 C! c( L7 {8 z
p5=raylcdf(A,phat);
1 b+ f" y- T: a[H5,s5]=kstest(A,[A,p5],alpha)
# a4 D3 E0 |5 C. z; vif H5==0- K f0 a& _/ Q. ]4 x! d, N4 i
disp('该数据源服从rayleigh分布。') 7 p: _, r4 w/ @9 G/ l8 Y
else/ j n& t2 j& P# w( U9 x' X: [
disp('该数据源不服从rayleigh分布。')
9 ^' R' ?5 a: e4 H* |end |
zan
|