- 在线时间
- 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)
1 Z$ [$ z8 A* p) y0 a# V% m- N) palpha=0.05;+ V$ b( A3 ]! W
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。& `4 O* O! W5 M- h( U
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';
1 t% r1 x- _; d+ i[mu,sigma]=normfit(A);% J& f5 X1 Q1 S4 ^7 f3 b7 x) P) V
p1=normcdf(A,mu,sigma);
) w! ^! E& u- \[H1,s1]=kstest(A,[A,p1],alpha)
) P4 h, L7 k4 P$ h: { I- dn=length(A);
`* V$ e7 ~' Q1 Tif H1==0
% Y# l. [ m# Zdisp('该数据源服从正态分布。'): g2 l- I* Z {' z5 D$ M
else
3 R% r6 U$ c6 U/ P4 H* V5 udisp('该数据源不服从正态分布。')
; q' K9 k" T! p% {$ W# Q* send
5 X% I6 i1 O6 u2 X1 hphat=gamfit(A,alpha);
8 O( Y6 q2 d6 H- ~& W6 G% I1 z7 dp2=gamcdf(A,phat(1),phat(2));
@7 E6 @' a* `[H2,s2]=kstest(A,[A,p2],alpha)
! H) O; q2 S6 v. {1 _if H2==09 o5 S" q9 k1 @
disp('该数据源服从γ分布。')+ @6 ^9 e1 q; R# ^
else
M. X& Y0 U8 S! G- ~8 Rdisp('该数据源不服从γ分布。') P2 V* A9 E: e$ H, c7 s. F, N9 q& G
end
' \6 ?. _" H4 W, Q& wlamda=poissfit(A,alpha);$ H. A) p% Q3 N; Z1 \
p3=poisscdf(A,lamda);
- k+ U1 d: y1 t- w1 N7 s[H3,s3]=kstest(A,[A,p3],alpha)
9 J2 q5 D3 R4 U2 a- j% G' `/ ^if H3==0
% \4 z [/ o! S6 a* D Gdisp('该数据源服从泊松分布。') 0 _, O8 |+ q/ C7 C: }$ I: B
else
1 r' V5 n! L$ \$ Sdisp('该数据源不服从泊松分布。') 6 D, i9 M8 @9 q& ]* X; |+ w& t+ Y
end+ \: v+ i6 O! K9 z
mu=expfit(A,alpha);
& o' g- E% g; _# `2 Mp4=expcdf(A,mu);
7 q2 Q" O" e, o! r[H4,s4]=kstest(A,[A,p4],alpha)
: f" u+ O! b( t; z; j% F0 P- l& zif H4==0
9 Z: r1 c g4 b% z% P; xdisp('该数据源服从指数分布。') % @$ x" A3 c6 ?2 k- p
else+ p! e& S6 }2 W2 Q
disp('该数据源不服从指数分布。') H4 `3 ]% g* A
end8 f4 |: W6 o2 A4 L( b
[phat, pci] = raylfit(A, alpha)
/ D* ?7 ?$ r0 }4 M) `p5=raylcdf(A,phat);& O4 m3 [9 I5 c$ p
[H5,s5]=kstest(A,[A,p5],alpha)% \7 ~" j, n. G8 g4 l% j3 _3 U
if H5==00 ] P4 `9 p! N) t; s$ o* f% l
disp('该数据源服从rayleigh分布。') 7 \3 u# |8 s0 ~
else) u% I+ U L9 L& v: o9 |5 M3 D2 N
disp('该数据源不服从rayleigh分布。')
: |' B% i- N7 Y _) d& \end |
zan
|