- 在线时间
- 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)! t' K8 X+ L) L U" \
alpha=0.05;% O l4 W$ F u3 N. b+ N
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。
7 {( S! H. O/ C' F: o- Y2 IA=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';/ Z2 h0 ^; a- S3 A
[mu,sigma]=normfit(A);
# G6 _3 y Y% I- [p1=normcdf(A,mu,sigma);
( c4 I6 Y* p8 n9 r s[H1,s1]=kstest(A,[A,p1],alpha)4 y" ^7 y1 d# A6 t* G* c9 M+ [
n=length(A);7 J# C: u' s& D% x! E# |9 v: S8 i
if H1==04 _( L& c! q) f/ {
disp('该数据源服从正态分布。')! l# y7 \+ E1 m
else
+ Z8 L, h) Q3 C/ X0 V) j- hdisp('该数据源不服从正态分布。') 2 F0 Q& S7 C7 q+ \8 x
end
3 }$ U. O$ \7 q8 r n/ a# D# kphat=gamfit(A,alpha);) x% L9 i& l) H/ V/ y# g
p2=gamcdf(A,phat(1),phat(2));' c4 y1 q* ?9 p& L; {# [3 }
[H2,s2]=kstest(A,[A,p2],alpha)
5 Y( o# ^3 N. F1 b" X, ~! dif H2==0* l& k8 g5 I2 [0 A8 g5 D$ ]: O
disp('该数据源服从γ分布。')
+ P/ j. l& e) E1 N% Pelse
: A$ B O7 s7 t( w3 ~& r0 adisp('该数据源不服从γ分布。')7 x. k2 t) _5 _6 x0 U
end$ v8 U2 {/ F) v0 S: j0 u: g+ V9 ?
lamda=poissfit(A,alpha);4 h: g; i9 o" U
p3=poisscdf(A,lamda);3 M, `- ?5 D& o* R% }
[H3,s3]=kstest(A,[A,p3],alpha)6 G& }. E7 h7 R. {
if H3==0
) ?: t% U8 V( d& {, l% ^9 gdisp('该数据源服从泊松分布。') ! m% b5 [# e* Z3 Y
else
' q( H5 c/ ~: H2 ~0 Sdisp('该数据源不服从泊松分布。') ( p0 M& z j N1 X- ~7 P
end
- S+ U+ d* D9 x4 z: I; Imu=expfit(A,alpha);
9 [2 g& x& _1 K( op4=expcdf(A,mu);: W6 N$ m. O' P i, A0 s/ y1 P
[H4,s4]=kstest(A,[A,p4],alpha)
' F8 v! y5 a5 |( S# yif H4==0
3 s9 C, v% r3 ~) G# K7 x( `$ Udisp('该数据源服从指数分布。') 6 U8 w+ x, p4 s' G
else
+ b4 Z0 F0 F. B2 v+ n. ldisp('该数据源不服从指数分布。') % S. f. J* X% @6 y3 [, Y
end
9 L( ^& |4 ~+ n. P- s! v( Z[phat, pci] = raylfit(A, alpha)
7 h& J' P4 q1 G7 j/ A \p5=raylcdf(A,phat);
0 E. ~6 Z' W& { |+ A4 H. E; m[H5,s5]=kstest(A,[A,p5],alpha)' ?5 W5 P- J3 ]+ y5 M# w& Q s
if H5==0/ W( u$ r* P% V4 M3 [7 C% t
disp('该数据源服从rayleigh分布。')
( s: X2 E: ?# Y3 ^+ ]5 n: Z& R& xelse8 M8 E& E: `+ O* W+ C/ y
disp('该数据源不服从rayleigh分布。')
2 i2 d" s$ B! v% A4 y0 mend |
zan
|