- 在线时间
- 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)
3 C0 L/ L( C7 t& C% n: i# d& Z& ?alpha=0.05;6 a6 z. T1 B. U: C5 X6 `2 I
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。. l" g1 g3 u' O
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';$ M) i( \: j* U& a# m- v
[mu,sigma]=normfit(A);
/ U0 l5 s i& r. O/ Y' wp1=normcdf(A,mu,sigma);& a: r8 ^ Y5 \" |+ C( \, X
[H1,s1]=kstest(A,[A,p1],alpha)& }8 N" g& W' o \; y, L m' M. ^1 E
n=length(A);
( M8 Z8 t4 o0 E, Vif H1==0
d, `2 a$ T7 X W/ p, ^disp('该数据源服从正态分布。')
, x' S! j2 c1 ~$ Xelse
0 q$ \4 e7 w; s( `* p, Rdisp('该数据源不服从正态分布。')
* v+ B0 p8 m0 \end; l& F p) M# a3 n7 S3 k) [# g
phat=gamfit(A,alpha);5 t P$ H, T* A( ^* c
p2=gamcdf(A,phat(1),phat(2));1 |5 d4 v: A7 N% J4 T1 d: n8 c
[H2,s2]=kstest(A,[A,p2],alpha)2 G- O, T& }% o9 J0 F% O
if H2==0. v! y8 h. x; ]( D) y+ `
disp('该数据源服从γ分布。')' n3 N0 Z4 `/ e) Z
else
: d3 |/ T4 R% t& z; cdisp('该数据源不服从γ分布。')
$ e& Q; u" Z0 c9 r: a9 Gend4 G8 }5 t0 h& p/ n8 g# ?4 k( q
lamda=poissfit(A,alpha);( s: h9 p& e8 g* Y
p3=poisscdf(A,lamda);! ?2 R0 s6 v7 V
[H3,s3]=kstest(A,[A,p3],alpha)
, F) K! ~) x) R8 e2 v# y) eif H3==0
/ ~8 u1 |) l' _! T! odisp('该数据源服从泊松分布。') 4 C! T2 p3 d% u- P
else
: T4 Y. f# B* e7 T" T7 fdisp('该数据源不服从泊松分布。')
, @3 \9 h. n9 g v4 }. g% o$ rend- }% }& G" `7 e: _2 I# r, j. c
mu=expfit(A,alpha);- {, j: s' n: q1 r! D
p4=expcdf(A,mu);
% s$ B4 J& \4 H8 t& O[H4,s4]=kstest(A,[A,p4],alpha)
" T0 U- ^$ b2 Q' y) yif H4==09 Z6 p3 R6 U0 s3 s9 m1 ?
disp('该数据源服从指数分布。')
" k8 N8 }# C6 y) lelse" |) N5 C$ z I. u, _. s4 R
disp('该数据源不服从指数分布。')
$ I2 P+ M5 J/ ^7 I" o" yend
6 Q8 i" G0 G9 O' O% ?[phat, pci] = raylfit(A, alpha); r, A7 R9 T: o9 d3 N6 @
p5=raylcdf(A,phat);
% _/ Q9 m4 k) \6 \6 N[H5,s5]=kstest(A,[A,p5],alpha)
R8 X. q7 }8 V* P+ b, u% \if H5==0' s) V: ]: E M; H0 u
disp('该数据源服从rayleigh分布。')
% b8 ~+ ?- A- X u3 V; K: K5 H' Melse
5 |7 b+ c! C9 P' {* Adisp('该数据源不服从rayleigh分布。')
: w5 e/ b2 U" X% K( w* S! Zend |
zan
|