- 在线时间
- 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)
5 p& G6 {* h4 I( P: u" |alpha=0.05;; m9 {* g- S$ [; D! j7 s
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。' [+ \4 R$ W, {# Z4 O/ j! }
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';% P+ G7 U% o% l! l9 k9 D
[mu,sigma]=normfit(A);) C& g! _0 t9 M/ h8 _
p1=normcdf(A,mu,sigma);% r, j' V( |" Y3 l# a- p+ q
[H1,s1]=kstest(A,[A,p1],alpha)9 ? ]1 I" E) g$ S) n# i
n=length(A);
. Y* t- d! s- e9 N+ C jif H1==07 A/ k, B- S7 w' |
disp('该数据源服从正态分布。'): C* a6 m* W ]" R1 d5 Y
else
7 Y- N" B% |; d6 x% \. }6 j4 Gdisp('该数据源不服从正态分布。') % v- `6 |/ m9 Q) {) j
end9 w5 g( g+ h1 W1 y" l
phat=gamfit(A,alpha);
( H. ^! z5 G2 A( Bp2=gamcdf(A,phat(1),phat(2));
1 P4 \, F8 ^- r* Y1 J) G3 z[H2,s2]=kstest(A,[A,p2],alpha)
% U* p3 e( d, N7 t2 Kif H2==0: k5 \9 R% h9 N; R& Z
disp('该数据源服从γ分布。')' n( @2 c( D; ~4 e
else
3 @/ w7 s0 C1 \- K' Q/ F7 e6 s) Ddisp('该数据源不服从γ分布。')
, @8 h1 X' f s. h) I, r$ S3 cend9 m" P7 o* J: y( G
lamda=poissfit(A,alpha);
3 O1 m" a' A& ^p3=poisscdf(A,lamda);
- d3 S X5 @ \" P[H3,s3]=kstest(A,[A,p3],alpha)/ L! L/ X8 D0 Z7 H
if H3==0) E" Z9 I( d* _0 Z( g
disp('该数据源服从泊松分布。') 3 ]- `9 B" A5 k2 R! @4 A% ?2 }9 Z
else2 S2 X* K$ t% m. \( v
disp('该数据源不服从泊松分布。')
0 J3 S& d5 z3 x9 Bend
5 ]! C8 `% h0 Q& fmu=expfit(A,alpha);) i9 I; g# T* U& L
p4=expcdf(A,mu);5 v( o3 g" \" O& A7 R- F
[H4,s4]=kstest(A,[A,p4],alpha)
' V. q) r! A+ i1 h% pif H4==06 V) s5 R/ Y! X6 E( E$ M
disp('该数据源服从指数分布。') ) ~ V# x- b! c' Y+ F L
else9 A4 h8 m/ s! j- o" p
disp('该数据源不服从指数分布。')
6 ]9 S7 H5 S: Q% @" Lend6 C# `- c( o$ e8 _$ U
[phat, pci] = raylfit(A, alpha): p, {/ X& B# L: _
p5=raylcdf(A,phat);3 O7 z* \4 ?2 m
[H5,s5]=kstest(A,[A,p5],alpha)7 o: U2 b a/ v, U8 H6 Z5 h5 G% Q3 c
if H5==00 j2 ~, c) _2 [7 G. h& `' w
disp('该数据源服从rayleigh分布。')
3 g4 Q! _3 o6 F6 p: D+ ^else
" k: V5 n4 d0 `8 E% Ydisp('该数据源不服从rayleigh分布。'), k3 t, D0 Z' z9 D" Z! `
end |
zan
|