- 在线时间
- 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)
# Q0 w# I; p7 W1 ~7 I7 [' Walpha=0.05;
% [0 l4 [' J! j3 O7 A% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。$ g- _ l8 ]9 Q( U
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';: m+ z; { [: W; T2 U
[mu,sigma]=normfit(A);
2 p, P# A( O9 z' d7 |+ b% Kp1=normcdf(A,mu,sigma);
; S6 B& W' A* @2 L& H- m2 x[H1,s1]=kstest(A,[A,p1],alpha)
5 r. Z" t3 W. y# h3 s, D. In=length(A);" z, h2 Y# N6 f' O: @
if H1==0; G: a! k+ P; Z( G
disp('该数据源服从正态分布。')/ @( N! U$ S! G7 C" x# V
else; \8 J3 r" x+ c! D. k3 W
disp('该数据源不服从正态分布。')
# I8 `8 F4 B: d5 w2 c! L% e" kend
- V* t- o i+ v8 Z6 nphat=gamfit(A,alpha);
, z' h) ]; s D+ wp2=gamcdf(A,phat(1),phat(2));8 y, U( h7 O% C) V
[H2,s2]=kstest(A,[A,p2],alpha)" W3 |& M0 i5 _$ W' _
if H2==08 N* A. x! V' }- o( x/ h4 q2 d
disp('该数据源服从γ分布。')5 \! c" }5 G' G7 }
else7 q4 m. y5 H1 l9 Y4 w* k
disp('该数据源不服从γ分布。'), Y- A- ]2 j- q/ S+ h6 t/ ^
end e6 U5 E) i; H/ B: I9 u4 L: I
lamda=poissfit(A,alpha);9 p% `( }0 P6 [: j. e; I
p3=poisscdf(A,lamda); |3 n% m5 j2 r- g: j) G
[H3,s3]=kstest(A,[A,p3],alpha)' B' B0 k6 X- m2 ^" A1 y
if H3==08 ]; d5 E0 q2 p4 Y$ F v
disp('该数据源服从泊松分布。') * V S; A" ?* z: r! ^; u+ [- n- E
else/ Z4 Y- A) b0 F) U8 p, @ L4 C
disp('该数据源不服从泊松分布。') ) c+ {, X Y* I: h# |: P
end6 X. t8 m# A6 t' d2 c
mu=expfit(A,alpha);4 g/ a7 U$ l) O5 d* ?" D0 y
p4=expcdf(A,mu);3 t0 [1 Z0 C+ G8 ?$ N3 H: z4 c
[H4,s4]=kstest(A,[A,p4],alpha)
0 W% P/ F* j$ @! T, L wif H4==03 ^) A: ~$ k4 E/ e- R" e8 } W
disp('该数据源服从指数分布。')
2 I) i: [+ g+ l& I8 h9 f( T8 y* s& Felse7 q0 e/ N- H4 Y! ]3 G( D8 Y
disp('该数据源不服从指数分布。')
: |! [% t7 t' P" rend
( I+ u& G) X' ?' V[phat, pci] = raylfit(A, alpha); z' g' f1 e2 m: }6 w
p5=raylcdf(A,phat);
$ l% Z# b& B. ?& L* K6 R2 s! O! N[H5,s5]=kstest(A,[A,p5],alpha)
; H1 V- }; j1 f" E$ R% @' bif H5==0
8 e. }+ F. p# x/ H, s9 M+ X4 zdisp('该数据源服从rayleigh分布。')
! j" h0 {1 X& n% [8 Z: Pelse
5 F0 S0 K g8 m2 W& ?6 D! _2 cdisp('该数据源不服从rayleigh分布。')7 G M2 U1 x! i: M
end |
zan
|