- 在线时间
- 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)) ?4 Q, A$ u. F
alpha=0.05;# R, }. I' `7 U v* ?; X+ o' _! D
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。1 H" c) R: f# G9 |, p# a* L6 |* Y
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';# ` v1 D0 I2 p& b% h. Y# \& e% @
[mu,sigma]=normfit(A);4 ~5 d5 Y$ [7 ~; r# x. L; m4 _
p1=normcdf(A,mu,sigma);$ h, s8 J7 i F! G6 v X5 k# @0 \
[H1,s1]=kstest(A,[A,p1],alpha)& c! ]: C& Y! x9 E* z& D- m) u$ C
n=length(A);6 I1 A, i4 D" H
if H1==0* K0 ]5 Q" e4 D* ], A
disp('该数据源服从正态分布。')2 H3 B {# h1 ?
else
% m3 F2 P( X' F+ W# ~3 Fdisp('该数据源不服从正态分布。') 1 S/ @6 S- w* t, c
end" I0 W$ u/ q+ i0 G% F) h+ G
phat=gamfit(A,alpha);
6 ^4 h A2 D( x# @) }, ^; T: ]: Fp2=gamcdf(A,phat(1),phat(2));" X, W2 t+ ]; w1 w \! z8 e1 w
[H2,s2]=kstest(A,[A,p2],alpha)$ h+ H( q9 o/ ]5 w/ v1 }0 G7 ?
if H2==0+ j5 G* [! w2 f$ d. \+ M9 [
disp('该数据源服从γ分布。')) e! n. Y; _8 z
else
& D: H7 `% [2 z% k/ M! ?0 ldisp('该数据源不服从γ分布。')0 T+ i( J; p* U, H3 l5 |
end; b6 X2 \' E$ D' v! W) A/ D3 ?
lamda=poissfit(A,alpha);
% _, c5 c* W: B( O5 c+ E: O$ h" }p3=poisscdf(A,lamda);
5 T3 }7 o& A6 M \" S[H3,s3]=kstest(A,[A,p3],alpha)
& H/ c8 k& Z- v4 b6 H. D/ ~2 zif H3==0! m/ r2 b* V3 j- q
disp('该数据源服从泊松分布。')
8 F6 o+ z. l! u, G$ O& telse4 O1 X8 T, n! ?% I) j1 j/ r7 u
disp('该数据源不服从泊松分布。') ( V$ m2 h) v' u, V
end
3 r, Q& x4 ~0 ]; T7 wmu=expfit(A,alpha);
, _) ?! X. m) y# Wp4=expcdf(A,mu);
) s7 x! z* L" J$ b6 j. h1 A q) E[H4,s4]=kstest(A,[A,p4],alpha)
1 g# [1 P7 e7 |& F6 Vif H4==02 A8 ?( w2 W4 k) l; d* O7 s; l
disp('该数据源服从指数分布。')
1 q1 t( I/ ]2 z! c- Oelse% M% X, I/ g5 K6 ^6 Q
disp('该数据源不服从指数分布。') - E# v7 W* t0 o) T: m$ X# t
end
! q6 `0 n* _* U4 P[phat, pci] = raylfit(A, alpha)+ y, X( y; L% U# N) H. ?
p5=raylcdf(A,phat); @$ D: @6 E X2 g* Q; F% z/ p
[H5,s5]=kstest(A,[A,p5],alpha)
+ w" w+ ~% q2 c. a- `1 G' ]if H5==0. U0 a) P' _, x$ ^, L. x$ }
disp('该数据源服从rayleigh分布。')
3 c' O7 \. w1 U% m3 o( Y% p$ nelse. Q! R5 ` a7 {; e
disp('该数据源不服从rayleigh分布。'); U: E6 \6 Y2 b0 _3 [" [- e
end |
zan
|