- 在线时间
- 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)
0 s2 c. T( A" X( h0 |. Yalpha=0.05;: E1 k \) b% d( d, C. { A
% 本程序用于判别所给数据源在置信率为0.05时的概率分布形式。A的形式为n×1。9 f$ z; ]- V# h3 w; M( B( W
A=[1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1]';* h6 B% l6 [1 u
[mu,sigma]=normfit(A);
$ v& X2 u2 ?1 t/ ~, O' N2 V! K) R+ Qp1=normcdf(A,mu,sigma);
5 @9 U8 M+ e7 A4 K! a8 d[H1,s1]=kstest(A,[A,p1],alpha)) y9 W0 Z' [& w* N9 b) A- `
n=length(A);1 I/ i: j4 y$ r6 |9 q3 Y, \
if H1==0% J: N [3 a* J9 V0 O
disp('该数据源服从正态分布。')# `7 C( [- q& ^( \5 j) }
else ]( t5 H$ [- `+ }/ L0 R/ y
disp('该数据源不服从正态分布。')
, O: T8 U+ ]% Q3 ^* @0 Qend
- v' M" p- U+ N' g# e! Lphat=gamfit(A,alpha);$ w5 S5 p; Z! S& i+ {
p2=gamcdf(A,phat(1),phat(2));, v/ g) M3 p; s3 R
[H2,s2]=kstest(A,[A,p2],alpha); a% ^ r* l( r) @( [# i
if H2==0; ^% F4 B7 p4 h$ N/ l! _
disp('该数据源服从γ分布。')% l: n: d8 l9 Y" B: W" [( Y
else
$ U" x+ @: \1 a4 M5 j0 q7 Qdisp('该数据源不服从γ分布。')* s& D# { v4 L- S" ~( M
end0 I, M: L! W* ^# t# R
lamda=poissfit(A,alpha);
% W U$ I$ h7 Zp3=poisscdf(A,lamda);3 L: K, S0 z4 U n) R6 T2 l3 n" c |& E
[H3,s3]=kstest(A,[A,p3],alpha)3 @3 e1 @! S& r5 ^/ k4 X$ Z
if H3==0
/ o4 j& V. p* y3 M5 k! ^disp('该数据源服从泊松分布。')
4 t# x3 Y. q: @3 p0 r G4 h0 Felse
* Y4 v5 d+ k! ?% }, S+ K. |0 N; Z8 S7 Jdisp('该数据源不服从泊松分布。')
: C# J0 [9 ], ~; k: ?5 V* J! rend
" P) | d O: J; W( p4 m+ @* Tmu=expfit(A,alpha);
, p% ]9 A' f: S5 F- A! B5 X$ `p4=expcdf(A,mu);
" r6 m4 o' Q, y[H4,s4]=kstest(A,[A,p4],alpha)) I- l( G1 e6 `' x N8 n7 T& ~
if H4==0* |. x1 u' o0 G; }( g6 N
disp('该数据源服从指数分布。')
, {# c+ i' `2 z% k3 L kelse' Y! B' K9 j1 g
disp('该数据源不服从指数分布。') % i8 z# F$ c3 b# V+ [
end( [5 U% d/ V7 {+ t( @
[phat, pci] = raylfit(A, alpha)% E" r V2 z6 i& n( h- e8 L4 `
p5=raylcdf(A,phat);
8 q7 P0 L% Q$ Z9 d[H5,s5]=kstest(A,[A,p5],alpha)& `( A7 W- F$ s0 n2 S
if H5==0" x0 V6 h* Z w2 Q6 m
disp('该数据源服从rayleigh分布。') $ ]6 {; r9 T' i$ e/ X, n- n3 ~
else4 F1 [/ q8 }* G1 _; R
disp('该数据源不服从rayleigh分布。')- h0 ]' k( ^3 X& Z$ d r
end |
zan
|