- 在线时间
- 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), D5 M, Z1 ~" u% I/ b
alpha=0.05;# E1 V& i% H1 y3 ? t1 ^- W9 \
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。$ I" p& Y$ c4 W1 m) O
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';
& K3 R+ E6 ~$ w[mu,sigma]=normfit(A);/ D7 H- Q$ f9 D1 l
p1=normcdf(A,mu,sigma);
, d. C0 u" X( X( y* @+ i c0 G[H1,s1]=kstest(A,[A,p1],alpha)& S0 k4 }0 H" _5 W- Q! p
n=length(A);
# X, F2 J3 ], i4 B! M& ~( cif H1==0
- T0 |9 K3 P* L! {! H2 H0 Vdisp('该数据源服从正态分布。')$ Q) [+ h" b" ^- D4 a$ F% D
else5 R* s% t6 ]3 q9 N' v8 t/ P# C
disp('该数据源不服从正态分布。')
5 W5 P, O1 b- ?) y- U; \- Jend
( s. d4 ?; d6 V jphat=gamfit(A,alpha);" d5 P, z E1 O6 o1 @8 u) e
p2=gamcdf(A,phat(1),phat(2));
* m2 o9 }7 x8 b4 ]6 Y* C[H2,s2]=kstest(A,[A,p2],alpha)6 Z. d5 S# ?8 A, b! j% c0 {
if H2==0
. N& D7 J$ h7 {/ J* vdisp('该数据源服从γ分布。')& w) [( C8 M$ c% [ F
else! D4 V0 g* f, _- w9 o! @3 u# P$ _+ V
disp('该数据源不服从γ分布。')
9 n5 n$ Z+ X2 p$ qend" L8 y5 _+ i1 e; H( ~2 t, x
lamda=poissfit(A,alpha);
3 G: ]7 u P3 t4 j7 R; {; R& g" rp3=poisscdf(A,lamda);
6 F* Q6 f2 y0 A- f3 @3 D9 M! S[H3,s3]=kstest(A,[A,p3],alpha)2 b4 r. D! l1 ?& O" h6 c
if H3==04 M( ^: e X, I' A/ A
disp('该数据源服从泊松分布。') # |6 m: a1 i5 e. j
else
3 f: B8 _7 p% d8 bdisp('该数据源不服从泊松分布。') % }1 `- A' S: W' T9 e" A N
end+ ~ ^) E( r! |" e4 h3 U
mu=expfit(A,alpha);
, u9 f/ j7 o2 O* t+ Lp4=expcdf(A,mu);
1 S7 }$ O' I1 b[H4,s4]=kstest(A,[A,p4],alpha)
. U% @( B: G }. q9 }% ?2 [if H4==0- p6 L% G# ^. q) Z
disp('该数据源服从指数分布。')
- \# Q" s0 p8 K2 \+ o9 W, Jelse
6 ~, x y3 |! G7 t* adisp('该数据源不服从指数分布。')
$ o0 D: |- c3 y2 D6 N" ^end+ E" \4 V8 A' o# `) P+ }; H% }" [
[phat, pci] = raylfit(A, alpha): a w( o; f$ |! f; i2 c8 L
p5=raylcdf(A,phat);
- e6 Y5 _2 i* V[H5,s5]=kstest(A,[A,p5],alpha)
0 H, X# c6 _' t" qif H5==0$ u6 g, c: s1 o- v- Z9 b
disp('该数据源服从rayleigh分布。')
) C" B5 x4 I. K- x O1 s7 eelse
- f+ s3 G/ V) y& H0 S! p$ Ydisp('该数据源不服从rayleigh分布。')
& k9 t' p2 y1 m6 ?! {3 c1 c+ Nend |
zan
|