- 在线时间
- 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)
7 z0 S P8 o% O! g8 |3 k- Walpha=0.05;
9 l' Y' a0 C+ q$ b% N% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。
[( E' v' z) f& d+ K7 pA=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';* O+ R r0 W1 w/ e# O8 T9 H
[mu,sigma]=normfit(A);
+ p. h- W# j: p& [# R# X7 A w' h) x7 np1=normcdf(A,mu,sigma);
1 m3 B$ q9 `& _( f) l8 j+ [8 @[H1,s1]=kstest(A,[A,p1],alpha)% z1 {# S3 w0 o3 v
n=length(A);$ e' }& m, Z+ U2 L* X4 ~8 `
if H1==0+ y$ J2 \% B6 W: U4 f
disp('该数据源服从正态分布。')# @; l7 ]8 D4 Z* {" N0 a
else
C6 x% } | b. [4 ddisp('该数据源不服从正态分布。')
2 _' [1 O4 v& R/ xend" A2 D% ?% R, r/ f
phat=gamfit(A,alpha); k& S, q& ?9 ]0 c" U/ l
p2=gamcdf(A,phat(1),phat(2));
0 b7 p) [8 r5 M7 C3 N9 z5 @[H2,s2]=kstest(A,[A,p2],alpha)
0 v, o3 O6 A, Z& b! _if H2==0
# P3 \; @' l8 v( u; T, {' zdisp('该数据源服从γ分布。')" ~$ a& F4 w5 k4 E- E) Z
else
7 E3 a) _: B) fdisp('该数据源不服从γ分布。')6 U, G8 e! T- \6 u# [8 b
end
; ?; ~. p: j2 Y5 w4 B/ @lamda=poissfit(A,alpha);' e2 p- _# e5 @ Q# R) [
p3=poisscdf(A,lamda);
. w, S7 p/ M! \% w4 H- T8 n[H3,s3]=kstest(A,[A,p3],alpha)5 H! P' b% ]1 v6 Y
if H3==0, p: z/ i' E, G
disp('该数据源服从泊松分布。') ' |- H: a9 E' J/ ]
else
* h6 d: Q6 H3 g$ {7 vdisp('该数据源不服从泊松分布。')
" J/ U2 \/ G9 ~# rend
' W, S- q/ f1 v% b! E4 Xmu=expfit(A,alpha);/ r8 t" Q8 z- I: f
p4=expcdf(A,mu);
" s# N3 J, H0 B1 P! f' K. A4 A[H4,s4]=kstest(A,[A,p4],alpha)
7 G1 t. F8 ?: t- I* d9 v C% Wif H4==0
1 W: F+ I% d8 j, w1 M ?disp('该数据源服从指数分布。') , C D- C& K7 r
else
$ E. n' t, ~7 p# I1 pdisp('该数据源不服从指数分布。')
* z1 \2 `# [% [7 w; |( {end" d$ a- l9 O. W3 A4 M ?
[phat, pci] = raylfit(A, alpha)
$ Q {# w1 o" R7 F$ Jp5=raylcdf(A,phat);
* n7 |2 }. _- ]. T+ b7 J3 M% W[H5,s5]=kstest(A,[A,p5],alpha)
% h0 k& v% `1 s. B$ h1 `( N5 sif H5==06 s1 x: |* z" l$ T( n5 l) O& l9 e
disp('该数据源服从rayleigh分布。')
6 \# |$ f% t5 Q; _else
$ h! e# l: P/ X+ k7 }5 ]disp('该数据源不服从rayleigh分布。')
6 A9 Q7 u6 G; ]$ I6 Jend |
zan
|